1 files changed, 559 insertions, 0 deletions
diff --git a/test/ltm.test.js b/test/ltm.test.js
new file mode 100644
index 0000000..c4e03da
--- /dev/null
+++ b/test/ltm.test.js
@@ -0,0 +1,559 @@
+"use strict";
+
+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', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    let luaCode = `
+        local t = {yo=1}
+        return t.yo, t.lo
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        expect(lauxlib.luaL_loadstring(L, to_luastring(luaCode))).toBe(lua.LUA_OK);
+        lua.lua_call(L, 0, -1);
+    }
+
+    expect(lua.lua_isnil(L, -1)).toBe(true);
+    expect(lua.lua_tointeger(L, -2)).toBe(1);
+});
+
+
+test('__newindex: with non table', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    let luaCode = `
+        local t = "a string"
+        t.yo = "hello"
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        expect(lauxlib.luaL_loadstring(L, to_luastring(luaCode))).toBe(lua.LUA_OK);
+    }
+
+    expect(() => {
+        lua.lua_call(L, 0, -1);
+    }).toThrow();
+});
+
+
+test('__index function in metatable', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    let luaCode = `
+        local mt = {
+            __index = function (table, key)
+                return "__index"
+            end
+        }
+
+        local t = {}
+
+        setmetatable(t, mt)
+
+        return t.yo
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        expect(lauxlib.luaL_loadstring(L, to_luastring(luaCode))).toBe(lua.LUA_OK);
+        lua.lua_call(L, 0, -1);
+    }
+
+    expect(lua.lua_tojsstring(L, -1)).toBe("__index");
+});
+
+
+test('__newindex function in metatable', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    let luaCode = `
+        local mt = {
+            __newindex = function (table, key, value)
+                return "__newindex"
+            end
+        }
+
+        local t = {}
+
+        setmetatable(t, mt)
+
+        t.yo = "hello"
+
+        return t.yo
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        expect(lauxlib.luaL_loadstring(L, to_luastring(luaCode))).toBe(lua.LUA_OK);
+        lua.lua_call(L, 0, -1);
+    }
+
+    expect(lua.lua_isnil(L, -1)).toBe(true);
+});
+
+
+test('__index table in metatable', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    let luaCode = `
+        local mmt = {
+            yo = "hello"
+        }
+
+        local mt = {
+            __index = mmt
+        }
+
+        local t = {}
+
+        setmetatable(t, mt)
+
+        return t.yo
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        expect(lauxlib.luaL_loadstring(L, to_luastring(luaCode))).toBe(lua.LUA_OK);
+        lua.lua_call(L, 0, -1);
+    }
+
+    expect(lua.lua_tojsstring(L, -1)).toBe("hello");
+});
+
+
+test('__newindex table in metatable', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    let luaCode = `
+        local mmt = {
+            yo = "hello"
+        }
+
+        local mt = {
+            __newindex = mmt
+        }
+
+        local t = {}
+
+        setmetatable(t, mt)
+
+        t.yo = "world"
+
+        return t.yo, mmt.yo
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        expect(lauxlib.luaL_loadstring(L, to_luastring(luaCode))).toBe(lua.LUA_OK);
+        lua.lua_call(L, 0, -1);
+    }
+
+    expect(lua.lua_tojsstring(L, -1)).toBe("world");
+    expect(lua.lua_isnil(L, -2)).toBe(true);
+});
+
+
+test('__index table with own metatable', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    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
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        expect(lauxlib.luaL_loadstring(L, to_luastring(luaCode))).toBe(lua.LUA_OK);
+        lua.lua_call(L, 0, -1);
+    }
+
+    expect(lua.lua_tojsstring(L, -1)).toBe("hello");
+});
+
+
+test('__newindex table with own metatable', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    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
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        expect(lauxlib.luaL_loadstring(L, to_luastring(luaCode))).toBe(lua.LUA_OK);
+        lua.lua_call(L, 0, -1);
+    }
+
+    expect(lua.lua_tojsstring(L, -1)).toBe("hello");
+    expect(lua.lua_isnil(L, -2)).toBe(true);
+});
+
+
+test('binary __xxx functions in metatable', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    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
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        expect(lauxlib.luaL_loadstring(L, to_luastring(luaCode))).toBe(lua.LUA_OK);
+        lua.lua_call(L, 0, -1);
+    }
+
+    expect(L.stack.slice(L.top - 12, L.top).map(e => e.jsstring()))
+        .toEqual([
+            "{} + 1",
+            "{} - 1",
+            "{} * 1",
+            "{} % 1",
+            "{} ^ 1",
+            "{} / 1",
+            "{} // 1",
+            "{} & 1",
+            "{} | 1",
+            "{} ~ 1",
+            "{} << 1",
+            "{} >> 1"
+        ]);
+});
+
+
+test('__eq', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    let luaCode = `
+        local mt = {
+            __eq = function (a, b)
+                return true
+            end
+        }
+
+        local t = {}
+
+        setmetatable(t, mt)
+
+        return t == {}
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        expect(lauxlib.luaL_loadstring(L, to_luastring(luaCode))).toBe(lua.LUA_OK);
+        lua.lua_call(L, 0, -1);
+    }
+
+    expect(lua.lua_toboolean(L, -1)).toBe(true);
+});
+
+
+test('__lt', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    let luaCode = `
+        local mt = {
+            __lt = function (a, b)
+                return true
+            end
+        }
+
+        local t = {}
+
+        setmetatable(t, mt)
+
+        return t < {}
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        expect(lauxlib.luaL_loadstring(L, to_luastring(luaCode))).toBe(lua.LUA_OK);
+        lua.lua_call(L, 0, -1);
+    }
+
+    expect(lua.lua_toboolean(L, -1)).toBe(true);
+});
+
+
+test('__le', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    let luaCode = `
+        local mt = {
+            __le = function (a, b)
+                return true
+            end
+        }
+
+        local t = {}
+
+        setmetatable(t, mt)
+
+        return t <= {}
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        expect(lauxlib.luaL_loadstring(L, to_luastring(luaCode))).toBe(lua.LUA_OK);
+        lua.lua_call(L, 0, -1);
+    }
+
+    expect(lua.lua_toboolean(L, -1)).toBe(true);
+});
+
+
+test('__le that uses __lt', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    let luaCode = `
+        local mt = {
+            __lt = function (a, b)
+                return false
+            end
+        }
+
+        local t = {}
+
+        setmetatable(t, mt)
+
+        return {} <= t
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        expect(lauxlib.luaL_loadstring(L, to_luastring(luaCode))).toBe(lua.LUA_OK);
+        lua.lua_call(L, 0, -1);
+    }
+
+    expect(lua.lua_toboolean(L, -1)).toBe(true);
+});
+
+
+test('__unm, __bnot', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    let luaCode = `
+        local mt = {
+            __unm = function (a)
+                return "hello"
+            end,
+
+            __bnot = function (a)
+                return "world"
+            end
+        }
+
+        local t = {}
+
+        setmetatable(t, mt)
+
+        return -t, ~t
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        expect(lauxlib.luaL_loadstring(L, to_luastring(luaCode))).toBe(lua.LUA_OK);
+        lua.lua_call(L, 0, -1);
+    }
+
+    expect(lua.lua_tojsstring(L, -1)).toBe("world");
+    expect(lua.lua_tojsstring(L, -2)).toBe("hello");
+});
+
+
+test('__len', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    let luaCode = `
+        local mt = {
+            __len = function (a)
+                return "hello"
+            end
+        }
+
+        local t = {}
+
+        setmetatable(t, mt)
+
+        return #t
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        expect(lauxlib.luaL_loadstring(L, to_luastring(luaCode))).toBe(lua.LUA_OK);
+        lua.lua_call(L, 0, -1);
+    }
+
+    expect(lua.lua_tojsstring(L, -1)).toBe("hello");
+});
+
+
+test('__concat', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    let luaCode = `
+        local mt = {
+            __concat = function (a)
+                return "hello"
+            end
+        }
+
+        local t = {}
+
+        setmetatable(t, mt)
+
+        return t .. " world"
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        expect(lauxlib.luaL_loadstring(L, to_luastring(luaCode))).toBe(lua.LUA_OK);
+        lua.lua_call(L, 0, -1);
+    }
+
+    expect(lua.lua_tojsstring(L, -1)).toBe("hello");
+});
+
+
+test('__call', () => {
+    let L = lauxlib.luaL_newstate();
+    if (!L) throw Error("failed to create lua state");
+
+    let luaCode = `
+        local mt = {
+            __call = function (a, ...)
+                return "hello", ...
+            end
+        }
+
+        local t = {}
+
+        setmetatable(t, mt)
+
+        return t("world","wow")
+    `;
+    {
+        lualib.luaL_openlibs(L);
+        expect(lauxlib.luaL_loadstring(L, to_luastring(luaCode))).toBe(lua.LUA_OK);
+        lua.lua_call(L, 0, -1);
+    }
+
+    expect(L.stack.slice(L.top - 3, L.top).map(e => e.jsstring()))
+        .toEqual(["hello", "world", "wow"]);
+});