1 files changed, 145 insertions, 0 deletions
diff --git a/Data/Libraries/Penlight/tests/test-strict.lua b/Data/Libraries/Penlight/tests/test-strict.lua
new file mode 100644
index 0000000..12b0fad
--- /dev/null
+++ b/Data/Libraries/Penlight/tests/test-strict.lua
@@ -0,0 +1,145 @@
+require 'pl.compat' -- require this one before loading strict
+local strict = require 'pl.strict'
+local test = require 'pl.test'
+local app = require 'pl.app'
+
+-- in strict mode, you must assign to a global first, even if just nil.
+test.assertraise(function()
+   print(x)
+   print 'ok?'
+end,"variable 'x' is not declared")
+
+-- can assign to globals in main (or from C extensions) but not anywhere else!
+test.assertraise(function()
+   Boo = 3
+end,"assign to undeclared global 'Boo'")
+
+Boo = true
+Boo2 = nil
+
+-- once declared, you can assign to globals from anywhere
+(function() Boo = 42; Boo2 = 6*7 end)()
+
+--- a module may use strict.module() to generate a simularly strict environment
+-- (see lua/mymod.lua)
+app.require_here 'lua'
+local M = require 'mymod'
+
+--- these are fine
+M.answer()
+M.question()
+
+-- spelling mistakes become errors...
+test.assertraise(function()
+    print(M.Answer())
+end,"variable 'Answer' is not declared in 'mymod'")
+
+--- for the extra paranoid, you can choose to make all global tables strict...
+strict.make_all_strict(_G)
+
+test.assertraise(function()
+    print(math.sine(1.2))
+end,"variable 'sine' is not declared in 'math'")
+
+
+
+-- module
+do
+  local testmodule = {
+    hello = function() return "supremacy" end
+  }
+  -- make strict and allow extra field "world"
+  strict.module("my_test", testmodule, { world = true })
+
+  test.asserteq(testmodule.hello(), "supremacy")
+  test.assertraise(function()
+    print(testmodule.not_allowed_key)
+  end, "variable 'not_allowed_key' is not declared in 'my_test'")
+
+  test.asserteq(testmodule.world, nil)
+  testmodule.world = "supremacy"
+  test.asserteq(testmodule.world, "supremacy")
+
+
+  -- table with a __newindex method
+  local mod1 = strict.module("mod1", setmetatable(
+    {
+      hello = "world",
+    }, {
+      __newindex = function(self, key, value)
+        if key == "Lua" then
+          rawset(self, key, value)
+        end
+      end,
+    }
+  ))
+  test.asserteq(mod1.hello, "world")
+  mod1.Lua = "hello world"
+  test.asserteq(mod1.Lua, "hello world")
+  test.assertraise(function()
+    print(mod1.not_allowed_key)
+  end, "variable 'not_allowed_key' is not declared in 'mod1'")
+
+
+  -- table with a __index method
+  local mod1 = strict.module("mod1", setmetatable(
+    {
+      hello = "world",
+    }, {
+      __index = function(self, key)
+        if key == "Lua" then
+          return "rocks"
+        end
+      end,
+    }
+  ))
+  test.asserteq(mod1.hello, "world")
+  test.asserteq(mod1.Lua, "rocks")
+  test.assertraise(function()
+    print(mod1.not_allowed_key)
+  end, "variable 'not_allowed_key' is not declared in 'mod1'")
+
+
+  -- table with a __index table
+  local mod1 = strict.module("mod1", setmetatable(
+    {
+      hello = "world",
+    }, {
+      __index = {
+        Lua = "rocks!"
+      }
+    }
+  ))
+  test.asserteq(mod1.hello, "world")
+  test.asserteq(mod1.Lua, "rocks!")
+  test.assertraise(function()
+    print(mod1.not_allowed_key)
+  end, "variable 'not_allowed_key' is not declared in 'mod1'")
+
+end
+
+
+do
+  -- closed_module
+  -- what does this do? this does not seem a usefull function???
+
+  local testmodule = {
+    hello = function() return "supremacy" end
+  }
+  local M = strict.closed_module(testmodule, "my_test")
+
+  -- read acces to original is granted, but not to the new one
+  test.asserteq(testmodule.hello(), "supremacy")
+  test.assertraise(function()
+    print(M.hello())
+  end, "variable 'hello' is not declared in 'my_test'")
+
+  -- write access to both is granted
+  testmodule.world = "domination"
+  M.world = "domination"
+
+  -- read acces to set field in original is granted, but not set
+  test.asserteq(testmodule.world, nil)
+  test.asserteq(M.world, "domination")
+
+end