From ce9fd9bdca0caa6a33ce37a01f41593ca42ba95b Mon Sep 17 00:00:00 2001 From: daurnimator Date: Mon, 2 Apr 2018 22:44:25 +1000 Subject: Start moving test suite from tape => jest --- tests/test-suite/events.js | 753 --------------------------------------------- 1 file changed, 753 deletions(-) delete mode 100644 tests/test-suite/events.js (limited to 'tests/test-suite/events.js') diff --git a/tests/test-suite/events.js b/tests/test-suite/events.js deleted file mode 100644 index 143bdf5..0000000 --- a/tests/test-suite/events.js +++ /dev/null @@ -1,753 +0,0 @@ -"use strict"; - -const test = require('tape'); - -const lua = require('../../src/lua.js'); -const lauxlib = require('../../src/lauxlib.js'); -const lualib = require('../../src/lualib.js'); -const {to_luastring} = require("../../src/fengaricore.js"); - -const ltests = require('./ltests.js'); - -test("[test-suite] events: testing metatable", function (t) { - let luaCode = ` - X = 20; B = 30 - - _ENV = setmetatable({}, {__index=_G}) - - --collectgarbage() - - X = X+10 - assert(X == 30 and _G.X == 20) - B = false - assert(B == false) - B = nil - assert(B == 30) - - assert(getmetatable{} == nil) - assert(getmetatable(4) == nil) - assert(getmetatable(nil) == nil) - a={name = "NAME"}; setmetatable(a, {__metatable = "xuxu", - __tostring=function(x) return x.name end}) - assert(getmetatable(a) == "xuxu") - assert(tostring(a) == "NAME") - -- cannot change a protected metatable - assert(pcall(setmetatable, a, {}) == false) - a.name = "gororoba" - assert(tostring(a) == "gororoba") - - local a, t = {10,20,30; x="10", y="20"}, {} - assert(setmetatable(a,t) == a) - assert(getmetatable(a) == t) - assert(setmetatable(a,nil) == a) - assert(getmetatable(a) == nil) - assert(setmetatable(a,t) == a) - - - function f (t, i, e) - assert(not e) - local p = rawget(t, "parent") - return (p and p[i]+3), "dummy return" - end - - t.__index = f - - a.parent = {z=25, x=12, [4] = 24} - assert(a[1] == 10 and a.z == 28 and a[4] == 27 and a.x == "10") - - --collectgarbage() - - a = setmetatable({}, t) - function f(t, i, v) rawset(t, i, v-3) end - setmetatable(t, t) -- causes a bug in 5.1 ! - t.__newindex = f - a[1] = 30; a.x = "101"; a[5] = 200 - assert(a[1] == 27 and a.x == 98 and a[5] == 197) - - do -- bug in Lua 5.3.2 - local mt = {} - mt.__newindex = mt - local t = setmetatable({}, mt) - t[1] = 10 -- will segfault on some machines - assert(mt[1] == 10) - end - - local c = {} - a = setmetatable({}, t) - t.__newindex = c - a[1] = 10; a[2] = 20; a[3] = 90 - assert(c[1] == 10 and c[2] == 20 and c[3] == 90) - - do - local a; - a = setmetatable({}, {__index = setmetatable({}, - {__index = setmetatable({}, - {__index = function (_,n) return a[n-3]+4, "lixo" end})})}) - a[0] = 20 - for i=0,10 do - assert(a[i*3] == 20 + i*4) - end - end - - do -- newindex - local foi - local a = {} - for i=1,10 do a[i] = 0; a['a'..i] = 0; end - setmetatable(a, {__newindex = function (t,k,v) foi=true; rawset(t,k,v) end}) - foi = false; a[1]=0; assert(not foi) - foi = false; a['a1']=0; assert(not foi) - foi = false; a['a11']=0; assert(foi) - foi = false; a[11]=0; assert(foi) - foi = false; a[1]=nil; assert(not foi) - foi = false; a[1]=nil; assert(foi) - end - - setmetatable(t, nil) - function f (t, ...) return t, {...} end - t.__call = f - - do - local x,y = a(table.unpack{'a', 1}) - assert(x==a and y[1]=='a' and y[2]==1 and y[3]==nil) - x,y = a() - assert(x==a and y[1]==nil) - end - - - local b = setmetatable({}, t) - setmetatable(b,t) - - function f(op) - return function (...) cap = {[0] = op, ...} ; return (...) end - end - t.__add = f("add") - t.__sub = f("sub") - t.__mul = f("mul") - t.__div = f("div") - t.__idiv = f("idiv") - t.__mod = f("mod") - t.__unm = f("unm") - t.__pow = f("pow") - t.__len = f("len") - t.__band = f("band") - t.__bor = f("bor") - t.__bxor = f("bxor") - t.__shl = f("shl") - t.__shr = f("shr") - t.__bnot = f("bnot") - - assert(b+5 == b) - assert(cap[0] == "add" and cap[1] == b and cap[2] == 5 and cap[3]==nil) - assert(b+'5' == b) - assert(cap[0] == "add" and cap[1] == b and cap[2] == '5' and cap[3]==nil) - assert(5+b == 5) - assert(cap[0] == "add" and cap[1] == 5 and cap[2] == b and cap[3]==nil) - assert('5'+b == '5') - assert(cap[0] == "add" and cap[1] == '5' and cap[2] == b and cap[3]==nil) - b=b-3; assert(getmetatable(b) == t) - assert(5-a == 5) - assert(cap[0] == "sub" and cap[1] == 5 and cap[2] == a and cap[3]==nil) - assert('5'-a == '5') - assert(cap[0] == "sub" and cap[1] == '5' and cap[2] == a and cap[3]==nil) - assert(a*a == a) - assert(cap[0] == "mul" and cap[1] == a and cap[2] == a and cap[3]==nil) - assert(a/0 == a) - assert(cap[0] == "div" and cap[1] == a and cap[2] == 0 and cap[3]==nil) - assert(a%2 == a) - assert(cap[0] == "mod" and cap[1] == a and cap[2] == 2 and cap[3]==nil) - assert(a // (1/0) == a) - assert(cap[0] == "idiv" and cap[1] == a and cap[2] == 1/0 and cap[3]==nil) - assert(a & "hi" == a) - assert(cap[0] == "band" and cap[1] == a and cap[2] == "hi" and cap[3]==nil) - assert(a | "hi" == a) - assert(cap[0] == "bor" and cap[1] == a and cap[2] == "hi" and cap[3]==nil) - assert("hi" ~ a == "hi") - assert(cap[0] == "bxor" and cap[1] == "hi" and cap[2] == a and cap[3]==nil) - assert(-a == a) - assert(cap[0] == "unm" and cap[1] == a) - assert(a^4 == a) - assert(cap[0] == "pow" and cap[1] == a and cap[2] == 4 and cap[3]==nil) - assert(a^'4' == a) - assert(cap[0] == "pow" and cap[1] == a and cap[2] == '4' and cap[3]==nil) - assert(4^a == 4) - assert(cap[0] == "pow" and cap[1] == 4 and cap[2] == a and cap[3]==nil) - assert('4'^a == '4') - assert(cap[0] == "pow" and cap[1] == '4' and cap[2] == a and cap[3]==nil) - assert(#a == a) - assert(cap[0] == "len" and cap[1] == a) - assert(~a == a) - assert(cap[0] == "bnot" and cap[1] == a) - assert(a << 3 == a) - assert(cap[0] == "shl" and cap[1] == a and cap[2] == 3) - assert(1.5 >> a == 1.5) - assert(cap[0] == "shr" and cap[1] == 1.5 and cap[2] == a) - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, 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 rawlen", function (t) { - let luaCode = ` - t = setmetatable({1,2,3}, {__len = function () return 10 end}) - assert(#t == 10 and rawlen(t) == 3) - assert(rawlen"abc" == 3) - assert(not pcall(rawlen, io.stdin)) - assert(not pcall(rawlen, 34)) - assert(not pcall(rawlen)) - - -- rawlen for long strings - assert(rawlen(string.rep('a', 1000)) == 1000) - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, 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", function (t) { - let luaCode = ` - t = {} - t.__lt = function (a,b,c) - --collectgarbage() - assert(c == nil) - if type(a) == 'table' then a = a.x end - if type(b) == 'table' then b = b.x end - return aOp(1)) and not(Op(1)>Op(2)) and (Op(2)>Op(1))) - assert(not(Op('a')>Op('a')) and not(Op('a')>Op('b')) and (Op('b')>Op('a'))) - assert((Op(1)>=Op(1)) and not(Op(1)>=Op(2)) and (Op(2)>=Op(1))) - assert((1 >= Op(1)) and not(1 >= Op(2)) and (Op(2) >= 1)) - assert((Op('a')>=Op('a')) and not(Op('a')>=Op('b')) and (Op('b')>=Op('a'))) - assert(('a' >= Op('a')) and not(Op('a') >= 'b') and (Op('b') >= Op('a'))) - end - - test() - - t.__le = function (a,b,c) - assert(c == nil) - if type(a) == 'table' then a = a.x end - if type(b) == 'table' then b = b.x end - return a<=b, "dummy" - end - - test() -- retest comparisons, now using both 'lt' and 'le' - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, 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 'partial order'", function (t) { - let luaCode = ` - t = {} - - local function rawSet(x) - local y = {} - for _,k in pairs(x) do y[k] = 1 end - return y - end - - local function Set(x) - return setmetatable(rawSet(x), t) - end - - t.__lt = function (a,b) - for k in pairs(a) do - if not b[k] then return false end - b[k] = nil - end - return next(b) ~= nil - end - - t.__le = nil - - assert(Set{1,2,3} < Set{1,2,3,4}) - assert(not(Set{1,2,3,4} < Set{1,2,3,4})) - assert((Set{1,2,3,4} <= Set{1,2,3,4})) - assert((Set{1,2,3,4} >= Set{1,2,3,4})) - assert((Set{1,3} <= Set{3,5})) -- wrong!! model needs a 'le' method ;-) - - t.__le = function (a,b) - for k in pairs(a) do - if not b[k] then return false end - end - return true - end - - assert(not (Set{1,3} <= Set{3,5})) -- now its OK! - assert(not(Set{1,3} <= Set{3,5})) - assert(not(Set{1,3} >= Set{3,5})) - - t.__eq = function (a,b) - for k in pairs(a) do - if not b[k] then return false end - b[k] = nil - end - return next(b) == nil - end - - local s = Set{1,3,5} - assert(s == Set{3,5,1}) - assert(not rawequal(s, Set{3,5,1})) - assert(rawequal(s, s)) - assert(Set{1,3,5,1} == rawSet{3,5,1}) - assert(rawSet{1,3,5,1} == Set{3,5,1}) - assert(Set{1,3,5} ~= Set{3,5,1,6}) - - -- '__eq' is not used for table accesses - t[Set{1,3,5}] = 1 - assert(t[Set{1,3,5}] == nil) - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, 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: __eq between userdata", function (t) { - let luaCode = ` - T = require('T') - - local u1 = T.newuserdata(0) - local u2 = T.newuserdata(0) - local u3 = T.newuserdata(0) - assert(u1 ~= u2 and u1 ~= u3) - debug.setuservalue(u1, 1); - debug.setuservalue(u2, 2); - debug.setuservalue(u3, 1); - debug.setmetatable(u1, {__eq = function (a, b) - return debug.getuservalue(a) == debug.getuservalue(b) - end}) - debug.setmetatable(u2, {__eq = function (a, b) - return true - end}) - assert(u1 == u3 and u3 == u1 and u1 ~= u2) - assert(u2 == u1 and u2 == u3 and u3 == u2) - assert(u2 ~= {}) -- different types cannot be equal - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - ltests.luaopen_tests(L); - - lauxlib.luaL_loadstring(L, 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: concat", function (t) { - let luaCode = ` - t = {} - - t.__concat = function (a,b,c) - assert(c == nil) - if type(a) == 'table' then a = a.val end - if type(b) == 'table' then b = b.val end - if A then return a..b - else - return setmetatable({val=a..b}, t) - end - end - - c = {val="c"}; setmetatable(c, t) - d = {val="d"}; setmetatable(d, t) - - A = true - assert(c..d == 'cd') - assert(0 .."a".."b"..c..d.."e".."f"..(5+3).."g" == "0abcdef8g") - - A = false - assert((c..d..c..d).val == 'cdcd') - x = c..d - assert(getmetatable(x) == t and x.val == 'cd') - x = 0 .."a".."b"..c..d.."e".."f".."g" - assert(x.val == "0abcdefg") - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - ltests.luaopen_tests(L); - - lauxlib.luaL_loadstring(L, 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: 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, 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, 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, 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, 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, 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, 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, to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); -- cgit v1.2.3-54-g00ecf