More tests

Examples/test-suite/lua/static_const_member_2_runme.lua

@@ -0,0 +1,37 @@
+require("import")	-- the import fn
+import("static_const_member_2")	-- import lib
+scm=static_const_member_2
+
+-- catch "undefined" global variables
+local env = _ENV -- Lua 5.2
+if not env then env = getfenv () end -- Lua 5.1
+setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
+
+assert(scm.CavityPackFlags.forward_field == 1)
+assert(scm.CavityPackFlags.backward_field == 2)
+assert(scm.CavityPackFlags.cavity_flags == 3)
+
+assert(scm.CavityPackFlags.flags == 0)
+scm.CavityPackFlags.flags = 91
+assert(scm.CavityPackFlags.flags == 91)
+assert(scm.CavityPackFlags_flags == 91) -- old style bindings
+
+assert(scm.CavityPackFlags.reftest == 42)
+
+assert(scm.Test_int.LeftIndex ~= nil)
+assert(scm.Test_int.current_profile == 4)
+
+assert(scm.Foo.BAR.val == 1)
+assert(scm.Foo.BAZ.val == 2)
+
+assert(scm.Foo_BAR.val == 1)
+assert(scm.Foo_BAZ.val == 2)
+
+scm.Foo.BAR.val = 4
+scm.Foo.BAZ.val = 5
+
+assert(scm.Foo.BAR.val == 4)
+assert(scm.Foo.BAZ.val == 5)
+
+assert(scm.Foo_BAR.val == 4)
+assert(scm.Foo_BAZ.val == 5)