summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/test-suite/events.js274
1 files changed, 274 insertions, 0 deletions
diff --git a/tests/test-suite/events.js b/tests/test-suite/events.js
index 090b104..14391f2 100644
--- a/tests/test-suite/events.js
+++ b/tests/test-suite/events.js
@@ -480,3 +480,277 @@ test("[test-suite] events: concat", function (t) {
}, "Lua program ran without error");
});
+
+
+test("[test-suite] events: concat metamethod x numbers (bug in 5.1.1)", function (t) {
+ let luaCode = `
+ c = {}
+ local x
+ setmetatable(c, {__concat = function (a,b)
+ assert(type(a) == "number" and b == c or type(b) == "number" and a == c)
+ return c
+ end})
+ assert(c..5 == c and 5 .. c == c)
+ assert(4 .. c .. 5 == c and 4 .. 5 .. 6 .. 7 .. c == c)
+ `, L;
+
+ t.plan(2);
+
+ t.doesNotThrow(function () {
+
+ L = lauxlib.luaL_newstate();
+
+ lualib.luaL_openlibs(L);
+
+ ltests.luaopen_tests(L);
+
+ lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode));
+
+ }, "Lua program loaded without error");
+
+ t.doesNotThrow(function () {
+
+ lua.lua_call(L, 0, -1);
+
+ }, "Lua program ran without error");
+
+});
+
+
+test("[test-suite] events: test comparison compatibilities", function (t) {
+ let luaCode = `
+ local t1, t2, c, d
+ t1 = {}; c = {}; setmetatable(c, t1)
+ d = {}
+ t1.__eq = function () return true end
+ t1.__lt = function () return true end
+ setmetatable(d, t1)
+ assert(c == d and c < d and not(d <= c))
+ t2 = {}
+ t2.__eq = t1.__eq
+ t2.__lt = t1.__lt
+ setmetatable(d, t2)
+ assert(c == d and c < d and not(d <= c))
+ `, L;
+
+ t.plan(2);
+
+ t.doesNotThrow(function () {
+
+ L = lauxlib.luaL_newstate();
+
+ lualib.luaL_openlibs(L);
+
+ ltests.luaopen_tests(L);
+
+ lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode));
+
+ }, "Lua program loaded without error");
+
+ t.doesNotThrow(function () {
+
+ lua.lua_call(L, 0, -1);
+
+ }, "Lua program ran without error");
+
+});
+
+
+test("[test-suite] events: test for several levels of callstest for several levels of calls", function (t) {
+ let luaCode = `
+ local i
+ local tt = {
+ __call = function (t, ...)
+ i = i+1
+ if t.f then return t.f(...)
+ else return {...}
+ end
+ end
+ }
+
+ local a = setmetatable({}, tt)
+ local b = setmetatable({f=a}, tt)
+ local c = setmetatable({f=b}, tt)
+
+ i = 0
+ x = c(3,4,5)
+ assert(i == 3 and x[1] == 3 and x[3] == 5)
+ `, L;
+
+ t.plan(2);
+
+ t.doesNotThrow(function () {
+
+ L = lauxlib.luaL_newstate();
+
+ lualib.luaL_openlibs(L);
+
+ ltests.luaopen_tests(L);
+
+ lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode));
+
+ }, "Lua program loaded without error");
+
+ t.doesNotThrow(function () {
+
+ lua.lua_call(L, 0, -1);
+
+ }, "Lua program ran without error");
+
+});
+
+
+test("[test-suite] events: __index on _ENV", function (t) {
+ let luaCode = `
+ local _g = _G
+ _ENV = setmetatable({}, {__index=function (_,k) return _g[k] end})
+
+ a = {}
+ rawset(a, "x", 1, 2, 3)
+ assert(a.x == 1 and rawget(a, "x", 3) == 1)
+ `, L;
+
+ t.plan(2);
+
+ t.doesNotThrow(function () {
+
+ L = lauxlib.luaL_newstate();
+
+ lualib.luaL_openlibs(L);
+
+ ltests.luaopen_tests(L);
+
+ lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode));
+
+ }, "Lua program loaded without error");
+
+ t.doesNotThrow(function () {
+
+ lua.lua_call(L, 0, -1);
+
+ }, "Lua program ran without error");
+
+});
+
+
+test("[test-suite] events: testing metatables for basic types", function (t) {
+ let luaCode = `
+ mt = {__index = function (a,b) return a+b end,
+ __len = function (x) return math.floor(x) end}
+ debug.setmetatable(10, mt)
+ assert(getmetatable(-2) == mt)
+ assert((10)[3] == 13)
+ assert((10)["3"] == 13)
+ assert(#3.45 == 3)
+ debug.setmetatable(23, nil)
+ assert(getmetatable(-2) == nil)
+
+ debug.setmetatable(true, mt)
+ assert(getmetatable(false) == mt)
+ mt.__index = function (a,b) return a or b end
+ assert((true)[false] == true)
+ assert((false)[false] == false)
+ debug.setmetatable(false, nil)
+ assert(getmetatable(true) == nil)
+
+ debug.setmetatable(nil, mt)
+ assert(getmetatable(nil) == mt)
+ mt.__add = function (a,b) return (a or 0) + (b or 0) end
+ assert(10 + nil == 10)
+ assert(nil + 23 == 23)
+ assert(nil + nil == 0)
+ debug.setmetatable(nil, nil)
+ assert(getmetatable(nil) == nil)
+
+ debug.setmetatable(nil, {})
+ `, L;
+
+ t.plan(2);
+
+ t.doesNotThrow(function () {
+
+ L = lauxlib.luaL_newstate();
+
+ lualib.luaL_openlibs(L);
+
+ ltests.luaopen_tests(L);
+
+ lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode));
+
+ }, "Lua program loaded without error");
+
+ t.doesNotThrow(function () {
+
+ lua.lua_call(L, 0, -1);
+
+ }, "Lua program ran without error");
+
+});
+
+
+test("[test-suite] events: loops in delegation", function (t) {
+ let luaCode = `
+ a = {}; setmetatable(a, a); a.__index = a; a.__newindex = a
+ assert(not pcall(function (a,b) return a[b] end, a, 10))
+ assert(not pcall(function (a,b,c) a[b] = c end, a, 10, true))
+ `, L;
+
+ t.plan(2);
+
+ t.doesNotThrow(function () {
+
+ L = lauxlib.luaL_newstate();
+
+ lualib.luaL_openlibs(L);
+
+ ltests.luaopen_tests(L);
+
+ lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode));
+
+ }, "Lua program loaded without error");
+
+ t.doesNotThrow(function () {
+
+ lua.lua_call(L, 0, -1);
+
+ }, "Lua program ran without error");
+
+});
+
+
+test("[test-suite] events: bug in 5.1", function (t) {
+ let luaCode = `
+ T, K, V = nil
+ grandparent = {}
+ grandparent.__newindex = function(t,k,v) T=t; K=k; V=v end
+
+ parent = {}
+ parent.__newindex = parent
+ setmetatable(parent, grandparent)
+
+ child = setmetatable({}, parent)
+ child.foo = 10 --> CRASH (on some machines)
+ assert(T == parent and K == "foo" and V == 10)
+ `, L;
+
+ t.plan(2);
+
+ t.doesNotThrow(function () {
+
+ L = lauxlib.luaL_newstate();
+
+ lualib.luaL_openlibs(L);
+
+ ltests.luaopen_tests(L);
+
+ lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode));
+
+ }, "Lua program loaded without error");
+
+ t.doesNotThrow(function () {
+
+ lua.lua_call(L, 0, -1);
+
+ }, "Lua program ran without error");
+
+});