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/ltm.js | 732 ----------------------------------------------------------- 1 file changed, 732 deletions(-) delete mode 100644 tests/ltm.js (limited to 'tests/ltm.js') diff --git a/tests/ltm.js b/tests/ltm.js deleted file mode 100644 index 156d63b..0000000 --- a/tests/ltm.js +++ /dev/null @@ -1,732 +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"); - -test('__index, __newindex: with actual table', function (t) { - let luaCode = ` - local t = {yo=1} - return t.yo, t.lo - `, L; - - t.plan(3); - - t.doesNotThrow(function () { - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - lua.lua_call(L, 0, -1); - }, "Program executed without errors"); - - t.ok( - lua.lua_isnil(L, -1), - "Program output is correct" - ); - - t.strictEqual( - lua.lua_tointeger(L, -2), - 1, - "Program output is correct" - ); -}); - - -test('__newindex: with non table', function (t) { - let luaCode = ` - local t = "a string" - t.yo = "hello" - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - }, "Bytecode parsed without errors"); - - t.throws(function () { - lua.lua_call(L, 0, -1); - }, "Program executed with expected error"); -}); - - -test('__index function in metatable', function (t) { - let luaCode = ` - local mt = { - __index = function (table, key) - return "__index" - end - } - - local t = {} - - setmetatable(t, mt) - - return t.yo - `, L; - - t.plan(3); - - t.doesNotThrow(function () { - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - }, "Bytecode parsed without errors"); - - - t.doesNotThrow(function () { - lua.lua_call(L, 0, -1); - }, "Program executed without errors"); - - t.strictEqual( - lua.lua_tojsstring(L, -1), - "__index", - "Program output is correct" - ); -}); - - -test('__newindex function in metatable', function (t) { - let luaCode = ` - local mt = { - __newindex = function (table, key, value) - return "__newindex" - end - } - - local t = {} - - setmetatable(t, mt) - - t.yo = "hello" - - return t.yo - `, L; - - t.plan(3); - - t.doesNotThrow(function () { - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - }, "Bytecode parsed without errors"); - - t.doesNotThrow(function () { - lua.lua_call(L, 0, -1); - }, "Program executed without errors"); - - t.ok( - lua.lua_isnil(L, -1), - "Program output is correct" - ); -}); - - -test('__index table in metatable', function (t) { - let luaCode = ` - local mmt = { - yo = "hello" - } - - local mt = { - __index = mmt - } - - local t = {} - - setmetatable(t, mt) - - return t.yo - `, L; - - t.plan(3); - - t.doesNotThrow(function () { - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - }, "Bytecode parsed without errors"); - - t.doesNotThrow(function () { - lua.lua_call(L, 0, -1); - }, "Program executed without errors"); - - t.strictEqual( - lua.lua_tojsstring(L, -1), - "hello", - "Program output is correct" - ); -}); - - -test('__newindex table in metatable', function (t) { - let luaCode = ` - local mmt = { - yo = "hello" - } - - local mt = { - __newindex = mmt - } - - local t = {} - - setmetatable(t, mt) - - t.yo = "world" - - return t.yo, mmt.yo - `, L; - - t.plan(4); - - t.doesNotThrow(function () { - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - }, "Bytecode parsed without errors"); - - t.doesNotThrow(function () { - lua.lua_call(L, 0, -1); - }, "Program executed without errors"); - - t.strictEqual( - lua.lua_tojsstring(L, -1), - "world", - "Program output is correct" - ); - - t.ok( - lua.lua_isnil(L, -2), - "Program output is correct" - ); -}); - - -test('__index table with own metatable', function (t) { - let luaCode = ` - local mmmt = { - __index = function (t, k) - return "hello" - end - } - - local mmt = { - yoo = "bye" - } - - setmetatable(mmt, mmmt) - - local mt = { - __index = mmt - } - - local t = {} - - setmetatable(t, mt) - - return t.yo - `, L; - - t.plan(3); - - t.doesNotThrow(function () { - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - }, "Bytecode parsed without errors"); - - t.doesNotThrow(function () { - lua.lua_call(L, 0, -1); - }, "Program executed without errors"); - - t.strictEqual( - lua.lua_tojsstring(L, -1), - "hello", - "Program output is correct" - ); -}); - - -test('__newindex table with own metatable', function (t) { - let luaCode = ` - local up = nil - - local mmmt = { - __newindex = function (t, k, v) - up = v - end - } - - local mmt = {} - - setmetatable(mmt, mmmt) - - local mt = { - __newindex = mmt - } - - setmetatable(mt, mmt) - - local t = {} - - setmetatable(t, mt) - - t.yo = "hello" - - return t.yo, up - `, L; - - t.plan(4); - - t.doesNotThrow(function () { - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - }, "Bytecode parsed without errors"); - - t.doesNotThrow(function () { - lua.lua_call(L, 0, -1); - }, "Program executed without errors"); - - t.strictEqual( - lua.lua_tojsstring(L, -1), - "hello", - "Program output is correct" - ); - - t.ok( - lua.lua_isnil(L, -2), - "Program output is correct" - ); -}); - - -test('binary __xxx functions in metatable', function (t) { - let luaCode = ` - local mt = { - __add = function (a, b) - return "{} + " .. b - end, - - __sub = function (a, b) - return "{} - " .. b - end, - - __mul = function (a, b) - return "{} * " .. b - end, - - __mod = function (a, b) - return "{} % " .. b - end, - - __pow = function (a, b) - return "{} ^ " .. b - end, - - __div = function (a, b) - return "{} / " .. b - end, - - __idiv = function (a, b) - return "{} // " .. b - end, - - __band = function (a, b) - return "{} & " .. b - end, - - __bor = function (a, b) - return "{} | " .. b - end, - - __bxor = function (a, b) - return "{} ~ " .. b - end, - - __shl = function (a, b) - return "{} << " .. b - end, - - __shr = function (a, b) - return "{} >> " .. b - end - - } - - local t = {} - - setmetatable(t, mt) - - return - t + 1, - t - 1, - t * 1, - t % 1, - t ^ 1, - t / 1, - t // 1, - t & 1, - t | 1, - t ~ 1, - t << 1, - t >> 1 - `, L; - - t.plan(3); - - t.doesNotThrow(function () { - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - }, "Bytecode parsed without errors"); - - t.doesNotThrow(function () { - lua.lua_call(L, 0, -1); - }, "Program executed without errors"); - - t.deepEqual( - L.stack.slice(L.top - 12, L.top).map(e => e.jsstring()), - [ - "{} + 1", - "{} - 1", - "{} * 1", - "{} % 1", - "{} ^ 1", - "{} / 1", - "{} // 1", - "{} & 1", - "{} | 1", - "{} ~ 1", - "{} << 1", - "{} >> 1" - ], - "Program output is correct" - ); -}); - - -test('__eq', function (t) { - let luaCode = ` - local mt = { - __eq = function (a, b) - return true - end - } - - local t = {} - - setmetatable(t, mt) - - return t == {} - `, L; - - t.plan(3); - - t.doesNotThrow(function () { - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - }, "Bytecode parsed without errors"); - - t.doesNotThrow(function () { - lua.lua_call(L, 0, -1); - }, "Program executed without errors"); - - t.ok( - lua.lua_toboolean(L, -1), - "Program output is correct" - ); -}); - - -test('__lt', function (t) { - let luaCode = ` - local mt = { - __lt = function (a, b) - return true - end - } - - local t = {} - - setmetatable(t, mt) - - return t < {} - `, L; - - t.plan(3); - - t.doesNotThrow(function () { - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - }, "Bytecode parsed without errors"); - - t.doesNotThrow(function () { - lua.lua_call(L, 0, -1); - }, "Program executed without errors"); - - t.ok( - lua.lua_toboolean(L, -1), - "Program output is correct" - ); -}); - - -test('__le', function (t) { - let luaCode = ` - local mt = { - __le = function (a, b) - return true - end - } - - local t = {} - - setmetatable(t, mt) - - return t <= {} - `, L; - - t.plan(3); - - t.doesNotThrow(function () { - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - }, "Bytecode parsed without errors"); - - t.doesNotThrow(function () { - lua.lua_call(L, 0, -1); - }, "Program executed without errors"); - - t.ok( - lua.lua_toboolean(L, -1), - "Program output is correct" - ); -}); - - -test('__le that uses __lt', function (t) { - let luaCode = ` - local mt = { - __lt = function (a, b) - return false - end - } - - local t = {} - - setmetatable(t, mt) - - return {} <= t - `, L; - - t.plan(3); - - t.doesNotThrow(function () { - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - }, "Bytecode parsed without errors"); - - t.doesNotThrow(function () { - lua.lua_call(L, 0, -1); - }, "Program executed without errors"); - - t.ok( - lua.lua_toboolean(L, -1), - "Program output is correct" - ); -}); - - -test('__unm, __bnot', function (t) { - let luaCode = ` - local mt = { - __unm = function (a) - return "hello" - end, - - __bnot = function (a) - return "world" - end - } - - local t = {} - - setmetatable(t, mt) - - return -t, ~t - `, L; - - t.plan(4); - - t.doesNotThrow(function () { - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - }, "Bytecode parsed without errors"); - - t.doesNotThrow(function () { - lua.lua_call(L, 0, -1); - }, "Program executed without errors"); - - t.strictEqual( - lua.lua_tojsstring(L, -1), - "world", - "Program output is correct" - ); - - t.strictEqual( - lua.lua_tojsstring(L, -2), - "hello", - "Program output is correct" - ); -}); - - -test('__len', function (t) { - let luaCode = ` - local mt = { - __len = function (a) - return "hello" - end - } - - local t = {} - - setmetatable(t, mt) - - return #t - `, L; - - t.plan(3); - - t.doesNotThrow(function () { - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - }, "Bytecode parsed without errors"); - - t.doesNotThrow(function () { - lua.lua_call(L, 0, -1); - }, "Program executed without errors"); - - t.strictEqual( - lua.lua_tojsstring(L, -1), - "hello", - "Program output is correct" - ); -}); - - -test('__concat', function (t) { - let luaCode = ` - local mt = { - __concat = function (a) - return "hello" - end - } - - local t = {} - - setmetatable(t, mt) - - return t .. " world" - `, L; - - t.plan(3); - - t.doesNotThrow(function () { - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - }, "Bytecode parsed without errors"); - - t.doesNotThrow(function () { - lua.lua_call(L, 0, -1); - }, "Program executed without errors"); - - t.strictEqual( - lua.lua_tojsstring(L, -1), - "hello", - "Program output is correct" - ); -}); - - -test('__call', function (t) { - let luaCode = ` - local mt = { - __call = function (a, ...) - return "hello", ... - end - } - - local t = {} - - setmetatable(t, mt) - - return t("world","wow") - `, L; - - t.plan(3); - - t.doesNotThrow(function () { - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, to_luastring(luaCode)); - }, "Bytecode parsed without errors"); - - t.doesNotThrow(function () { - lua.lua_call(L, 0, -1); - }, "Program executed without errors"); - - t.deepEqual( - L.stack.slice(L.top - 3, L.top).map(e => e.jsstring()), - ["hello", "world", "wow"], - "Program output is correct" - ); -}); -- cgit v1.2.3-54-g00ecf