From 2a6993bf0e23e2a3759abb9d7127525577dc346c Mon Sep 17 00:00:00 2001 From: Benoit Giannangeli Date: Sun, 12 Mar 2017 16:48:53 +0100 Subject: Testing 8-bit strings --- tests/lexparse.js | 10 +- tests/ltm.js | 867 ++++++++++++------------------------------------------ tests/lvm.js | 62 ++-- tests/tests.js | 1 - 4 files changed, 221 insertions(+), 719 deletions(-) (limited to 'tests') diff --git a/tests/lexparse.js b/tests/lexparse.js index cd80e43..704f875 100644 --- a/tests/lexparse.js +++ b/tests/lexparse.js @@ -741,13 +741,13 @@ test('SETTABLE, GETTABLE', function (t) { }, "Lua program ran without error"); t.strictEqual( - lapi.lua_topointer(L, -1).get(0).value, + lapi.lua_topointer(L, -1).get(0).jsstring(), "hello", "Program output is correct" ); t.strictEqual( - lapi.lua_topointer(L, -1).get("two").value, + lapi.lua_topointer(L, -1).get('116|119|111|').jsstring(), "world", "Program output is correct" ); @@ -834,13 +834,13 @@ test('SETTABUP, GETTABUP', function (t) { }, "Lua program ran without error"); t.strictEqual( - lapi.lua_topointer(L, -1).get(0).value, + lapi.lua_topointer(L, -1).get(0).jsstring(), "hello", "Program output is correct" ); t.strictEqual( - lapi.lua_topointer(L, -1).get("two").value, + lapi.lua_topointer(L, -1).get('116|119|111|').jsstring(), "world", "Program output is correct" ); @@ -1149,7 +1149,7 @@ test('CONCAT', function (t) { }, "Lua program ran without error"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tostring(L, -1), "hello 2 you", "Program output is correct" ); diff --git a/tests/ltm.js b/tests/ltm.js index d749d7b..9eedc4c 100644 --- a/tests/ltm.js +++ b/tests/ltm.js @@ -1,13 +1,17 @@ "use strict"; -const test = require('tape'); -const beautify = require('js-beautify').js_beautify; +const test = require('tape'); +const beautify = require('js-beautify').js_beautify; -const VM = require("../src/lvm.js"); -const lapi = require("../src/lapi.js"); -const OC = require('../src/lopcodes.js'); +const VM = require("../src/lvm.js"); +const lapi = require("../src/lapi.js"); +const linit = require("../src/linit.js"); +const lauxlib = require("../src/lauxlib.js"); +const OC = require('../src/lopcodes.js'); -const getState = require("./tests.js").getState; +const tests = require("./tests.js"); +const getState = tests.getState; +const toByteCode = tests.toByteCode; test('__index, __newindex: with actual table', function (t) { @@ -21,28 +25,33 @@ test('__index, __newindex: with actual table', function (t) { t.comment("Running following code: \n" + luaCode); t.doesNotThrow(function () { - L = getState(luaCode); + let bc = toByteCode(luaCode).dataView; + + L = lauxlib.luaL_newstate(); + + linit.luaL_openlibs(L); + + lapi.lua_load(L, null, bc, "test", "binary"); lapi.lua_call(L, 0, -1); }, "Program executed without errors"); - t.strictEqual( - L.stack[L.top - 1].value, - null, + t.ok( + lapi.lua_isnil(L, -1), "Program output is correct" ); t.strictEqual( - L.stack[L.top - 2].value, + lapi.lua_tointeger(L, -2), 1, "Program output is correct" ); }); -test('__index: with non table', function (t) { +test('__newindex: with non table', function (t) { let luaCode = ` local t = "a string" - return t.yo + t.yo = "hello" `, L; t.plan(2); @@ -50,27 +59,13 @@ test('__index: with non table', function (t) { t.comment("Running following code: \n" + luaCode); t.doesNotThrow(function () { - L = getState(luaCode); - }, "Bytecode parsed without errors"); - - t.throws(function () { - lapi.lua_call(L, 0, -1); - }, "Program executed with expected error"); -}); - + let bc = toByteCode(luaCode).dataView; -test('__newindex: with non table', function (t) { - let luaCode = ` - local t = "a string" - t.yo = "hello" - `, L; - - t.plan(2); + L = lauxlib.luaL_newstate(); - t.comment("Running following code: \n" + luaCode); + linit.luaL_openlibs(L); - t.doesNotThrow(function () { - L = getState(luaCode); + lapi.lua_load(L, null, bc, "test", "binary"); }, "Bytecode parsed without errors"); t.throws(function () { @@ -89,78 +84,32 @@ test('__index function in metatable', function (t) { local t = {} - -- setmetatable(t, mt) + setmetatable(t, mt) return t.yo `, L; - t.plan(8); + t.plan(3); t.comment("Running following code: \n" + luaCode); t.doesNotThrow(function () { - L = getState(luaCode); - }, "Bytecode parsed without errors"); + let bc = toByteCode(luaCode).dataView; + L = lauxlib.luaL_newstate(); - // main (7 instructions at 0x7fe6b4403050) - // 0+ params, 3 slots, 1 upvalue, 2 locals, 2 constants, 1 function - // 1 [1] NEWTABLE 0 0 1 - // 2 [4] CLOSURE 1 0 ; 0x7fe6b4403290 - // 3 [4] SETTABLE 0 -1 1 ; "__index" - - // 4 [7] NEWTABLE 1 0 0 - // 5 [9] GETTABLE 2 1 -2 ; "yo" <=== We stop here - // 6 [9] RETURN 2 2 - // 7 [9] RETURN 0 1 - // - // function (3 instructions at 0x7fe6b4403290) - // 2 params, 3 slots, 0 upvalues, 2 locals, 1 constant, 0 functions - // 1 [3] LOADK 2 -1 ; "__index" - // 2 [3] RETURN 2 2 - // 3 [4] RETURN 0 1 + linit.luaL_openlibs(L); - t.strictEqual( - OC.OpCodes[L.stack[1].p.code[4].opcode], - "OP_GETTABLE", - "Correct opcode marked as breakpoint" - ); + lapi.lua_load(L, null, bc, "test", "binary"); + }, "Bytecode parsed without errors"); - t.comment("We set a breakpoint") - L.stack[1].p.code[4].breakpoint = true; t.doesNotThrow(function () { lapi.lua_call(L, 0, -1); - }, "First part of the program executed without errors"); - - t.strictEqual( - OC.OpCodes[L.ci.u.l.savedpc[L.ci.pcOff - 1].opcode], - "OP_GETTABLE", - "Stopped at correct opcode" - ); - - t.comment("We unset the breakpoint and correct pcOff"); - L.ci.pcOff--; - L.stack[1].p.code[4].breakpoint = false; - - t.ok( - L.stack[3].ttistable() && !L.stack[3].value.get("__index"), - "t is on stack at 3" - ); - - t.ok( - L.stack[2].ttistable() && L.stack[2].value.get("__index"), - "mt is on stack at 2" - ); - - t.comment("We manually set t's metatable to mt"); - L.stack[3].metatable = L.stack[2]; - - t.doesNotThrow(function () { - VM.luaV_execute(L); - }, "Second part of the program executed without errors"); + }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tostring(L, -1), "__index", "Program output is correct" ); @@ -177,82 +126,33 @@ test('__newindex function in metatable', function (t) { local t = {} - -- setmetatable(t, mt) + setmetatable(t, mt) t.yo = "hello" return t.yo `, L; - t.plan(8); + t.plan(3); t.comment("Running following code: \n" + luaCode); t.doesNotThrow(function () { - L = getState(luaCode); - }, "Bytecode parsed without errors"); + let bc = toByteCode(luaCode).dataView; + L = lauxlib.luaL_newstate(); - // main (8 instructions at 0x7faadcf00ac0) - // 0+ params, 3 slots, 1 upvalue, 2 locals, 3 constants, 1 function - // 1 [1] NEWTABLE 0 0 1 - // 2 [4] CLOSURE 1 0 ; 0x7faadcf00d10 - // 3 [4] SETTABLE 0 -1 1 ; "__newindex" - - // 4 [7] NEWTABLE 1 0 0 - // 5 [11] SETTABLE 1 -2 -3 ; "yo" "hello" <=== We stop here - // 6 [13] GETTABLE 2 1 -2 ; "yo" - // 7 [13] RETURN 2 2 - // 8 [13] RETURN 0 1 - // - // function (3 instructions at 0x7faadcf00d10) - // 3 params, 4 slots, 0 upvalues, 3 locals, 1 constant, 0 functions - // 1 [3] LOADK 3 -1 ; "__newindex" - // 2 [3] RETURN 3 2 - // 3 [4] RETURN 0 1 + linit.luaL_openlibs(L); - t.strictEqual( - OC.OpCodes[L.stack[1].p.code[4].opcode], - "OP_SETTABLE", - "Correct opcode marked as breakpoint" - ); - - t.comment("We set a breakpoint") - L.stack[1].p.code[4].breakpoint = true; + lapi.lua_load(L, null, bc, "test", "binary"); + }, "Bytecode parsed without errors"); t.doesNotThrow(function () { lapi.lua_call(L, 0, -1); - }, "First part of the program executed without errors"); - - t.strictEqual( - OC.OpCodes[L.ci.u.l.savedpc[L.ci.pcOff - 1].opcode], - "OP_SETTABLE", - "Stopped at correct opcode" - ); - - t.comment("We unset the breakpoint and correct pcOff"); - L.ci.pcOff--; - L.stack[1].p.code[4].breakpoint = false; - - t.ok( - L.stack[3].ttistable() && !L.stack[3].value.get("__newindex"), - "t is on stack at 3" - ); + }, "Program executed without errors"); t.ok( - L.stack[2].ttistable() && L.stack[2].value.get("__newindex"), - "mt is on stack at 2" - ); - - t.comment("We manually set t's metatable to mt"); - L.stack[3].metatable = L.stack[2]; - - t.doesNotThrow(function () { - VM.luaV_execute(L); - }, "Second part of the program executed without errors"); - - t.strictEqual( - L.stack[L.top - 1].value, - null, + lapi.lua_isnil(L, -1), "Program output is correct" ); }); @@ -270,73 +170,31 @@ test('__index table in metatable', function (t) { local t = {} - -- setmetatable(t, mt) + setmetatable(t, mt) return t.yo `, L; - t.plan(8); + t.plan(3); t.comment("Running following code: \n" + luaCode); t.doesNotThrow(function () { - L = getState(luaCode); - }, "Bytecode parsed without errors"); + let bc = toByteCode(luaCode).dataView; + L = lauxlib.luaL_newstate(); - // main (8 instructions at 0x7fb57cc03210) - // 0+ params, 4 slots, 1 upvalue, 3 locals, 3 constants, 0 functions - // 1 [1] NEWTABLE 0 0 1 - // 2 [2] SETTABLE 0 -1 -2 ; "yo" "hello" - // 3 [4] NEWTABLE 1 0 1 - // 4 [5] SETTABLE 1 -3 0 ; "__index" - - // 5 [7] NEWTABLE 2 0 0 - // 6 [9] GETTABLE 3 2 -1 ; "yo" <=== We stop here - // 7 [9] RETURN 3 2 - // 8 [9] RETURN 0 1 + linit.luaL_openlibs(L); - t.strictEqual( - OC.OpCodes[L.stack[1].p.code[5].opcode], - "OP_GETTABLE", - "Correct opcode marked as breakpoint" - ); - - t.comment("We set a breakpoint") - L.stack[1].p.code[5].breakpoint = true; + lapi.lua_load(L, null, bc, "test", "binary"); + }, "Bytecode parsed without errors"); t.doesNotThrow(function () { lapi.lua_call(L, 0, -1); - }, "First part of the program executed without errors"); - - t.strictEqual( - OC.OpCodes[L.ci.u.l.savedpc[L.ci.pcOff - 1].opcode], - "OP_GETTABLE", - "Stopped at correct opcode" - ); - - t.comment("We unset the breakpoint and correct pcOff"); - L.ci.pcOff--; - L.stack[1].p.code[5].breakpoint = false; - - t.ok( - L.stack[4].ttistable() && !L.stack[4].value.get("__index"), - "t is on stack at 4" - ); - - t.ok( - L.stack[3].ttistable() && L.stack[3].value.get("__index"), - "mt is on stack at 3" - ); - - t.comment("We manually set t's metatable to mt"); - L.stack[4].metatable = L.stack[3]; - - t.doesNotThrow(function () { - VM.luaV_execute(L); - }, "Second part of the program executed without errors"); + }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tostring(L, -1), "hello", "Program output is correct" ); @@ -355,84 +213,39 @@ test('__newindex table in metatable', function (t) { local t = {} - -- setmetatable(t, mt) + setmetatable(t, mt) t.yo = "world" return t.yo, mmt.yo `, L; - t.plan(9); + t.plan(4); t.comment("Running following code: \n" + luaCode); t.doesNotThrow(function () { - L = getState(luaCode); - }, "Bytecode parsed without errors"); + let bc = toByteCode(luaCode).dataView; + L = lauxlib.luaL_newstate(); - // main (10 instructions at 0x7fba6a403210) - // 0+ params, 5 slots, 1 upvalue, 3 locals, 4 constants, 0 functions - // 1 [1] NEWTABLE 0 0 1 - // 2 [2] SETTABLE 0 -1 -2 ; "yo" "hello" - // 3 [5] NEWTABLE 1 0 1 - // 4 [6] SETTABLE 1 -3 0 ; "__newindex" - - // 5 [9] NEWTABLE 2 0 0 - // 6 [13] SETTABLE 2 -1 -4 ; "yo" "world" <=== We stop here - // 7 [15] GETTABLE 3 2 -1 ; "yo" - // 8 [15] GETTABLE 4 0 -1 ; "yo" - // 9 [15] RETURN 3 3 - // 10 [15] RETURN 0 1 + linit.luaL_openlibs(L); - t.strictEqual( - OC.OpCodes[L.stack[1].p.code[5].opcode], - "OP_SETTABLE", - "Correct opcode marked as breakpoint" - ); - - t.comment("We set a breakpoint") - L.stack[1].p.code[5].breakpoint = true; + lapi.lua_load(L, null, bc, "test", "binary"); + }, "Bytecode parsed without errors"); t.doesNotThrow(function () { lapi.lua_call(L, 0, -1); - }, "First part of the program executed without errors"); - - t.strictEqual( - OC.OpCodes[L.ci.u.l.savedpc[L.ci.pcOff - 1].opcode], - "OP_SETTABLE", - "Stopped at correct opcode" - ); - - t.comment("We unset the breakpoint and correct pcOff"); - L.ci.pcOff--; - L.stack[1].p.code[5].breakpoint = false; - - t.ok( - L.stack[4].ttistable() && !L.stack[4].value.get("__newindex"), - "t is on stack at 4" - ); - - t.ok( - L.stack[3].ttistable() && L.stack[3].value.get("__newindex"), - "mt is on stack at 3" - ); - - t.comment("We manually set t's metatable to mt"); - L.stack[4].metatable = L.stack[3]; - - t.doesNotThrow(function () { - VM.luaV_execute(L); - }, "Second part of the program executed without errors"); + }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tostring(L, -1), "world", "Program output is correct" ); - t.strictEqual( - L.stack[L.top - 2].value, - null, + t.ok( + lapi.lua_isnil(L, -2), "Program output is correct" ); }); @@ -450,7 +263,7 @@ test('__index table with own metatable', function (t) { yoo = "bye" } - -- setmetatable(mmt, mmmt) + setmetatable(mmt, mmmt) local mt = { __index = mmt @@ -458,69 +271,31 @@ test('__index table with own metatable', function (t) { local t = {} - -- setmetatable(t, mt) + setmetatable(t, mt) return t.yo `, L; - t.plan(5); + t.plan(3); t.comment("Running following code: \n" + luaCode); t.doesNotThrow(function () { - L = getState(luaCode); - }, "Bytecode parsed without errors"); - - - // main (11 instructions at 0x7f96e3403210) - // 0+ params, 5 slots, 1 upvalue, 4 locals, 3 constants, 1 function - // 1 [1] NEWTABLE 0 0 1 - // 2 [4] CLOSURE 1 0 ; 0x7f96e3403440 - // 3 [4] SETTABLE 0 -1 1 ; "__index" - - // 4 [7] NEWTABLE 1 0 1 - // 5 [8] SETTABLE 1 -2 -3 ; "yo" "bye" - // 6 [13] NEWTABLE 2 0 1 <=== We stop here - // 7 [14] SETTABLE 2 -1 1 ; "__index" - - // 8 [17] NEWTABLE 3 0 0 - // 9 [21] GETTABLE 4 3 -2 ; "yo" <=== We stop here - // 10 [21] RETURN 4 2 - // 11 [21] RETURN 0 1 - // - // function (3 instructions at 0x7f96e3403440) - // 2 params, 3 slots, 0 upvalues, 2 locals, 1 constant, 0 functions - // 1 [3] LOADK 2 -1 ; "hello" - // 2 [3] RETURN 2 2 - // 3 [4] RETURN 0 1 - - L.stack[1].p.code[5].breakpoint = true; - L.stack[1].p.code[8].breakpoint = true; - - t.doesNotThrow(function () { - lapi.lua_call(L, 0, -1); - }, "First part of the program executed without errors"); - - L.ci.pcOff--; - L.stack[1].p.code[5].breakpoint = false; + let bc = toByteCode(luaCode).dataView; - t.comment("We manually set mmt's metatable to mmmt"); - L.stack[3].metatable = L.stack[2]; - - t.doesNotThrow(function () { - VM.luaV_execute(L); - }, "Second part of the program executed without errors"); + L = lauxlib.luaL_newstate(); - L.ci.pcOff--; - L.stack[1].p.code[8].breakpoint = false; + linit.luaL_openlibs(L); - t.comment("We manually set t's metatable to mt"); - L.stack[5].metatable = L.stack[4]; + lapi.lua_load(L, null, bc, "test", "binary"); + }, "Bytecode parsed without errors"); t.doesNotThrow(function () { - VM.luaV_execute(L); - }, "Third part of the program executed without errors"); + lapi.lua_call(L, 0, -1); + }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tostring(L, -1), "hello", "Program output is correct" ); @@ -539,100 +314,49 @@ test('__newindex table with own metatable', function (t) { local mmt = {} - -- setmetatable(mmt, mmmt) + setmetatable(mmt, mmmt) local mt = { __newindex = mmt } - -- setmetatable(mt, mmt) + setmetatable(mt, mmt) local t = {} - -- setmetatable(t, mt) + setmetatable(t, mt) t.yo = "hello" return t.yo, up `, L; - t.plan(7); + t.plan(4); t.comment("Running following code: \n" + luaCode); t.doesNotThrow(function () { - L = getState(luaCode); - }, "Bytecode parsed without errors"); - - - // main (13 instructions at 0x7ff6ed500640) - // 0+ params, 7 slots, 1 upvalue, 5 locals, 3 constants, 1 function - // 1 [1] LOADNIL 0 0 - // 2 [3] NEWTABLE 1 0 1 - // 3 [6] CLOSURE 2 0 ; 0x7ff6ed5007f0 - // 4 [6] SETTABLE 1 -1 2 ; "__newindex" - - // 5 [9] NEWTABLE 2 0 0 - // 6 [13] NEWTABLE 3 0 1 <=== We stop here - // 7 [14] SETTABLE 3 -1 2 ; "__newindex" - - // 8 [19] NEWTABLE 4 0 0 <=== We stop here - // 9 [23] SETTABLE 4 -2 -3 ; "yo" "hello" <=== We stop here - // 10 [25] GETTABLE 5 4 -2 ; "yo" - // 11 [25] MOVE 6 0 - // 12 [25] RETURN 5 3 - // 13 [25] RETURN 0 1 - // - // function (2 instructions at 0x7ff6ed5007f0) - // 3 params, 3 slots, 1 upvalue, 3 locals, 0 constants, 0 functions - // 1 [5] SETUPVAL 2 0 ; up - // 2 [6] RETURN 0 1 - - L.stack[1].p.code[5].breakpoint = true; - L.stack[1].p.code[7].breakpoint = true; - L.stack[1].p.code[8].breakpoint = true; - - t.doesNotThrow(function () { - lapi.lua_call(L, 0, -1); - }, "First part of the program executed without errors"); + let bc = toByteCode(luaCode).dataView; - L.ci.pcOff--; - L.stack[1].p.code[5].breakpoint = false; + L = lauxlib.luaL_newstate(); - t.comment("We manually set mmt's metatable to mmmt"); - L.stack[4].metatable = L.stack[3]; + linit.luaL_openlibs(L); - t.doesNotThrow(function () { - VM.luaV_execute(L); - }, "Second part of the program executed without errors"); - - L.ci.pcOff--; - L.stack[1].p.code[7].breakpoint = false; - - t.comment("We manually set mt's metatable to mmt"); - L.stack[5].metatable = L.stack[4]; - - t.doesNotThrow(function () { - VM.luaV_execute(L); - }, "Third part of the program executed without errors"); - - L.ci.pcOff--; - L.stack[1].p.code[8].breakpoint = false; - - t.comment("We manually set t's metatable to mt"); - L.stack[6].metatable = L.stack[5]; + lapi.lua_load(L, null, bc, "test", "binary"); + }, "Bytecode parsed without errors"); t.doesNotThrow(function () { - VM.luaV_execute(L); - }, "Fourth part of the program executed without errors"); + lapi.lua_call(L, 0, -1); + }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tostring(L, -1), "hello", "Program output is correct" ); - t.strictEqual( - L.stack[L.top - 2].value, - null, + t.ok( + lapi.lua_isnil(L, -2), "Program output is correct" ); }); @@ -693,7 +417,7 @@ test('binary __xxx functions in metatable', function (t) { local t = {} - -- setmetatable(t, mt) + setmetatable(t, mt) return t + 1, @@ -710,79 +434,26 @@ test('binary __xxx functions in metatable', function (t) { t >> 1 `, L; - t.plan(4); + t.plan(3); t.comment("Running following code: \n" + luaCode); t.doesNotThrow(function () { - L = getState(luaCode); - }, "Bytecode parsed without errors"); + let bc = toByteCode(luaCode).dataView; + L = lauxlib.luaL_newstate(); - - //main (40 instructions at 0x7fd29ac03210) - //0+ params, 14 slots, 1 upvalue, 2 locals, 13 constants, 12 functions - // 1 [1] NEWTABLE 0 0 12 - // 2 [4] CLOSURE 1 0 ; 0x7fd29ac03440 - // 3 [4] SETTABLE 0 -1 1 ; "__add" - - // 4 [8] CLOSURE 1 1 ; 0x7fd29ac03500 - // 5 [8] SETTABLE 0 -2 1 ; "__sub" - - // 6 [12] CLOSURE 1 2 ; 0x7fd29ac038c0 - // 7 [12] SETTABLE 0 -3 1 ; "__mul" - - // 8 [16] CLOSURE 1 3 ; 0x7fd29ac039e0 - // 9 [16] SETTABLE 0 -4 1 ; "__mod" - - // 10 [20] CLOSURE 1 4 ; 0x7fd29ac03c00 - // 11 [20] SETTABLE 0 -5 1 ; "__pow" - - // 12 [24] CLOSURE 1 5 ; 0x7fd29ac036a0 - // 13 [24] SETTABLE 0 -6 1 ; "__div" - - // 14 [28] CLOSURE 1 6 ; 0x7fd29ac037c0 - // 15 [28] SETTABLE 0 -7 1 ; "__idiv" - - // 16 [32] CLOSURE 1 7 ; 0x7fd29ac03ce0 - // 17 [32] SETTABLE 0 -8 1 ; "__band" - - // 18 [36] CLOSURE 1 8 ; 0x7fd29ac03b00 - // 19 [36] SETTABLE 0 -9 1 ; "__bor" - - // 20 [40] CLOSURE 1 9 ; 0x7fd29ac04060 - // 21 [40] SETTABLE 0 -10 1 ; "__bxor" - - // 22 [44] CLOSURE 1 10 ; 0x7fd29ac04180 - // 23 [44] SETTABLE 0 -11 1 ; "__shl" - - // 24 [48] CLOSURE 1 11 ; 0x7fd29ac042a0 - // 25 [48] SETTABLE 0 -12 1 ; "__shr" - - // 26 [52] NEWTABLE 1 0 0 - // 27 [57] ADD 2 1 -13 ; - 1 <=== We stop here - // 28 [58] SUB 3 1 -13 ; - 1 - // 29 [59] MUL 4 1 -13 ; - 1 - // 30 [60] MOD 5 1 -13 - // 31 [61] POW 6 1 -13 ; - 1 - // 32 [62] DIV 7 1 -13 ; - 1 - // 33 [63] IDIV 8 1 -13 ; - 1 - // 34 [64] BAND 9 1 -13 ; - 1 - // 35 [65] BOR 10 1 -13 ; - 1 - // 36 [66] BXOR 11 1 -13 ; - 1 - // 37 [67] SHL 12 1 -13 ; - 1 - // 38 [68] SHR 13 1 -13 ; - 1 - // 39 [68] RETURN 2 13 - // 40 [68] RETURN 0 1 - // - // ... - - L.stack[1].p.code[26].breakpoint = true; + linit.luaL_openlibs(L); - t.doesNotThrow(function () { - lapi.lua_call(L, 0, -1); - }, "First part of the program executed without errors"); - - L.ci.pcOff--; - L.stack[1].p.code[26].breakpoint = false; - - t.comment("We manually set t's metatable to mt"); - L.stack[3].metatable = L.stack[2]; + lapi.lua_load(L, null, bc, "test", "binary"); + }, "Bytecode parsed without errors"); t.doesNotThrow(function () { - VM.luaV_execute(L); - }, "Second part of the program executed without errors"); + lapi.lua_call(L, 0, -1); + }, "Program executed without errors"); t.deepEqual( - L.stack.slice(L.top - 12, L.top).map(e => e.value), + L.stack.slice(L.top - 12, L.top).map(e => e.jsstring()), [ "{} + 1", "{} - 1", @@ -812,54 +483,31 @@ test('__eq', function (t) { local t = {} - -- setmetatable(t, mt) + setmetatable(t, mt) return t == {} `, L; - t.plan(4); + t.plan(3); t.comment("Running following code: \n" + luaCode); - // main (11 instructions at 0x7fce9fc03210) - // 0+ params, 3 slots, 1 upvalue, 2 locals, 1 constant, 1 function - // 1 [1] NEWTABLE 0 0 1 - // 2 [4] CLOSURE 1 0 ; 0x7fce9fc03440 - // 3 [4] SETTABLE 0 -1 1 ; "__eq" - - // 4 [7] NEWTABLE 1 0 0 - // 5 [11] NEWTABLE 2 0 0 - // 6 [11] EQ 1 1 2 <=== We stop here - // 7 [11] JMP 0 1 ; to 9 - // 8 [11] LOADBOOL 2 0 1 - // 9 [11] LOADBOOL 2 1 0 - // 10 [11] RETURN 2 2 - // 11 [11] RETURN 0 1 - // - // ... - t.doesNotThrow(function () { - L = getState(luaCode); - }, "Bytecode parsed without errors"); + let bc = toByteCode(luaCode).dataView; - L.stack[1].p.code[5].breakpoint = true; + L = lauxlib.luaL_newstate(); - t.doesNotThrow(function () { - lapi.lua_call(L, 0, -1); - }, "First part of the program executed without errors"); + linit.luaL_openlibs(L); - L.ci.pcOff--; - L.stack[1].p.code[5].breakpoint = false; - - t.comment("We manually set t's metatable to mt"); - L.stack[3].metatable = L.stack[2]; + lapi.lua_load(L, null, bc, "test", "binary"); + }, "Bytecode parsed without errors"); t.doesNotThrow(function () { - VM.luaV_execute(L); - }, "Second part of the program executed without errors"); + lapi.lua_call(L, 0, -1); + }, "Program executed without errors"); - t.strictEqual( - L.stack[L.top - 1].value, - true, + t.ok( + lapi.lua_toboolean(L, -1), "Program output is correct" ); }); @@ -875,54 +523,31 @@ test('__lt', function (t) { local t = {} - -- setmetatable(t, mt) + setmetatable(t, mt) return t < {} `, L; - t.plan(4); + t.plan(3); t.comment("Running following code: \n" + luaCode); - // main (11 instructions at 0x7fc879d00ac0) - // 0+ params, 3 slots, 1 upvalue, 2 locals, 1 constant, 1 function - // 1 [1] NEWTABLE 0 0 1 - // 2 [4] CLOSURE 1 0 ; 0x7fc879d00d10 - // 3 [4] SETTABLE 0 -1 1 ; "__lt" - - // 4 [7] NEWTABLE 1 0 0 - // 5 [11] NEWTABLE 2 0 0 - // 6 [11] LT 1 1 2 <=== We stop here - // 7 [11] JMP 0 1 ; to 9 - // 8 [11] LOADBOOL 2 0 1 - // 9 [11] LOADBOOL 2 1 0 - // 10 [11] RETURN 2 2 - // 11 [11] RETURN 0 1 - // - // ... - t.doesNotThrow(function () { - L = getState(luaCode); - }, "Bytecode parsed without errors"); - - L.stack[1].p.code[5].breakpoint = true; + let bc = toByteCode(luaCode).dataView; - t.doesNotThrow(function () { - lapi.lua_call(L, 0, -1); - }, "First part of the program executed without errors"); + L = lauxlib.luaL_newstate(); - L.ci.pcOff--; - L.stack[1].p.code[5].breakpoint = false; + linit.luaL_openlibs(L); - t.comment("We manually set t's metatable to mt"); - L.stack[3].metatable = L.stack[2]; + lapi.lua_load(L, null, bc, "test", "binary"); + }, "Bytecode parsed without errors"); t.doesNotThrow(function () { - VM.luaV_execute(L); - }, "Second part of the program executed without errors"); + lapi.lua_call(L, 0, -1); + }, "Program executed without errors"); - t.strictEqual( - L.stack[L.top - 1].value, - true, + t.ok( + lapi.lua_toboolean(L, -1), "Program output is correct" ); }); @@ -938,54 +563,31 @@ test('__le', function (t) { local t = {} - -- setmetatable(t, mt) + setmetatable(t, mt) return t <= {} `, L; - t.plan(4); + t.plan(3); t.comment("Running following code: \n" + luaCode); - // main (11 instructions at 0x7fc879d00ac0) - // 0+ params, 3 slots, 1 upvalue, 2 locals, 1 constant, 1 function - // 1 [1] NEWTABLE 0 0 1 - // 2 [4] CLOSURE 1 0 ; 0x7fc879d00d10 - // 3 [4] SETTABLE 0 -1 1 ; "__lt" - - // 4 [7] NEWTABLE 1 0 0 - // 5 [11] NEWTABLE 2 0 0 - // 6 [11] LE 1 1 2 <=== We stop here - // 7 [11] JMP 0 1 ; to 9 - // 8 [11] LOADBOOL 2 0 1 - // 9 [11] LOADBOOL 2 1 0 - // 10 [11] RETURN 2 2 - // 11 [11] RETURN 0 1 - // - // ... - t.doesNotThrow(function () { - L = getState(luaCode); - }, "Bytecode parsed without errors"); + let bc = toByteCode(luaCode).dataView; - L.stack[1].p.code[5].breakpoint = true; + L = lauxlib.luaL_newstate(); - t.doesNotThrow(function () { - lapi.lua_call(L, 0, -1); - }, "First part of the program executed without errors"); - - L.ci.pcOff--; - L.stack[1].p.code[5].breakpoint = false; + linit.luaL_openlibs(L); - t.comment("We manually set t's metatable to mt"); - L.stack[3].metatable = L.stack[2]; + lapi.lua_load(L, null, bc, "test", "binary"); + }, "Bytecode parsed without errors"); t.doesNotThrow(function () { - VM.luaV_execute(L); - }, "Second part of the program executed without errors"); + lapi.lua_call(L, 0, -1); + }, "Program executed without errors"); - t.strictEqual( - L.stack[L.top - 1].value, - true, + t.ok( + lapi.lua_toboolean(L, -1), "Program output is correct" ); }); @@ -1001,54 +603,31 @@ test('__le that uses __lt', function (t) { local t = {} - -- setmetatable(t, mt) + setmetatable(t, mt) return {} <= t `, L; - t.plan(4); + t.plan(3); t.comment("Running following code: \n" + luaCode); - // main (11 instructions at 0x7fc879d00ac0) - // 0+ params, 3 slots, 1 upvalue, 2 locals, 1 constant, 1 function - // 1 [1] NEWTABLE 0 0 1 - // 2 [4] CLOSURE 1 0 ; 0x7fc879d00d10 - // 3 [4] SETTABLE 0 -1 1 ; "__lt" - - // 4 [7] NEWTABLE 1 0 0 - // 5 [11] NEWTABLE 2 0 0 - // 6 [11] LE 1 1 2 <=== We stop here - // 7 [11] JMP 0 1 ; to 9 - // 8 [11] LOADBOOL 2 0 1 - // 9 [11] LOADBOOL 2 1 0 - // 10 [11] RETURN 2 2 - // 11 [11] RETURN 0 1 - // - // ... - t.doesNotThrow(function () { - L = getState(luaCode); - }, "Bytecode parsed without errors"); + let bc = toByteCode(luaCode).dataView; - L.stack[1].p.code[5].breakpoint = true; + L = lauxlib.luaL_newstate(); - t.doesNotThrow(function () { - lapi.lua_call(L, 0, -1); - }, "First part of the program executed without errors"); - - L.ci.pcOff--; - L.stack[1].p.code[5].breakpoint = false; + linit.luaL_openlibs(L); - t.comment("We manually set t's metatable to mt"); - L.stack[3].metatable = L.stack[2]; + lapi.lua_load(L, null, bc, "test", "binary"); + }, "Bytecode parsed without errors"); t.doesNotThrow(function () { - VM.luaV_execute(L); - }, "Second part of the program executed without errors"); + lapi.lua_call(L, 0, -1); + }, "Program executed without errors"); - t.strictEqual( - L.stack[L.top - 1].value, - true, + t.ok( + lapi.lua_toboolean(L, -1), "Program output is correct" ); }); @@ -1068,58 +647,37 @@ test('__unm, __bnot', function (t) { local t = {} - -- setmetatable(t, mt) + setmetatable(t, mt) return -t, ~t `, L; - t.plan(5); + t.plan(4); t.comment("Running following code: \n" + luaCode); - // main (10 instructions at 0x7ff10e403210) - // 0+ params, 4 slots, 1 upvalue, 2 locals, 2 constants, 2 functions - // 1 [1] NEWTABLE 0 0 2 - // 2 [4] CLOSURE 1 0 ; 0x7ff10e403440 - // 3 [4] SETTABLE 0 -1 1 ; "__unm" - - // 4 [8] CLOSURE 1 1 ; 0x7ff10e4033c0 - // 5 [8] SETTABLE 0 -2 1 ; "__bnot" - - // 6 [11] NEWTABLE 1 0 0 - // 7 [15] UNM 2 1 <=== We stop here - // 8 [15] BNOT 3 1 - // 9 [15] RETURN 2 3 - // 10 [15] RETURN 0 1 - // - // ... - t.doesNotThrow(function () { - L = getState(luaCode); - }, "Bytecode parsed without errors"); + let bc = toByteCode(luaCode).dataView; - L.stack[1].p.code[6].breakpoint = true; + L = lauxlib.luaL_newstate(); - t.doesNotThrow(function () { - lapi.lua_call(L, 0, -1); - }, "First part of the program executed without errors"); + linit.luaL_openlibs(L); - L.ci.pcOff--; - L.stack[1].p.code[6].breakpoint = false; - - t.comment("We manually set t's metatable to mt"); - L.stack[3].metatable = L.stack[2]; + lapi.lua_load(L, null, bc, "test", "binary"); + }, "Bytecode parsed without errors"); t.doesNotThrow(function () { - VM.luaV_execute(L); - }, "Second part of the program executed without errors"); + lapi.lua_call(L, 0, -1); + }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tostring(L, -1), "world", "Program output is correct" ); t.strictEqual( - L.stack[L.top - 2].value, + lapi.lua_tostring(L, -2), "hello", "Program output is correct" ); @@ -1136,49 +694,31 @@ test('__len', function (t) { local t = {} - -- setmetatable(t, mt) + setmetatable(t, mt) return #t `, L; - t.plan(4); + t.plan(3); t.comment("Running following code: \n" + luaCode); - // main (7 instructions at 0x7f91f0600ac0) - // 0+ params, 3 slots, 1 upvalue, 2 locals, 1 constant, 1 function - // 1 [1] NEWTABLE 0 0 1 - // 2 [4] CLOSURE 1 0 ; 0x7f91f0600d10 - // 3 [4] SETTABLE 0 -1 1 ; "__len" - - // 4 [7] NEWTABLE 1 0 0 - // 5 [11] LEN 2 1 <=== We stop here - // 6 [11] RETURN 2 2 - // 7 [11] RETURN 0 1 - // - // ... - t.doesNotThrow(function () { - L = getState(luaCode); - }, "Bytecode parsed without errors"); - - L.stack[1].p.code[4].breakpoint = true; + let bc = toByteCode(luaCode).dataView; - t.doesNotThrow(function () { - lapi.lua_call(L, 0, -1); - }, "First part of the program executed without errors"); + L = lauxlib.luaL_newstate(); - L.ci.pcOff--; - L.stack[1].p.code[4].breakpoint = false; + linit.luaL_openlibs(L); - t.comment("We manually set t's metatable to mt"); - L.stack[3].metatable = L.stack[2]; + lapi.lua_load(L, null, bc, "test", "binary"); + }, "Bytecode parsed without errors"); t.doesNotThrow(function () { - VM.luaV_execute(L); - }, "Second part of the program executed without errors"); + lapi.lua_call(L, 0, -1); + }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tostring(L, -1), "hello", "Program output is correct" ); @@ -1195,51 +735,31 @@ test('__concat', function (t) { local t = {} - -- setmetatable(t, mt) + setmetatable(t, mt) return t .. " world" `, L; - t.plan(4); + t.plan(3); t.comment("Running following code: \n" + luaCode); - // main (9 instructions at 0x7ffacdc03210) - // 0+ params, 4 slots, 1 upvalue, 2 locals, 2 constants, 1 function - // 1 [1] NEWTABLE 0 0 1 - // 2 [4] CLOSURE 1 0 ; 0x7ffacdc03440 - // 3 [4] SETTABLE 0 -1 1 ; "__concat" - - // 4 [7] NEWTABLE 1 0 0 - // 5 [11] MOVE 2 1 - // 6 [11] LOADK 3 -2 ; " world" - // 7 [11] CONCAT 2 2 3 <=== We stop here - // 8 [11] RETURN 2 2 - // 9 [11] RETURN 0 1 - // - // ... - t.doesNotThrow(function () { - L = getState(luaCode); - }, "Bytecode parsed without errors"); + let bc = toByteCode(luaCode).dataView; - L.stack[1].p.code[6].breakpoint = true; + L = lauxlib.luaL_newstate(); - t.doesNotThrow(function () { - lapi.lua_call(L, 0, -1); - }, "First part of the program executed without errors"); + linit.luaL_openlibs(L); - L.ci.pcOff--; - L.stack[1].p.code[6].breakpoint = false; - - t.comment("We manually set t's metatable to mt"); - L.stack[3].metatable = L.stack[2]; + lapi.lua_load(L, null, bc, "test", "binary"); + }, "Bytecode parsed without errors"); t.doesNotThrow(function () { - VM.luaV_execute(L); - }, "Second part of the program executed without errors"); + lapi.lua_call(L, 0, -1); + }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tostring(L, -1), "hello", "Program output is correct" ); @@ -1256,50 +776,31 @@ test('__call', function (t) { local t = {} - -- setmetatable(t, mt) + setmetatable(t, mt) return t("world","wow") `, L; - t.plan(4); + t.plan(3); t.comment("Running following code: \n" + luaCode); - // main (10 instructions at 0x7fc4c9403210) - // 0+ params, 5 slots, 1 upvalue, 2 locals, 3 constants, 1 function - // 1 [1] NEWTABLE 0 0 1 - // 2 [4] CLOSURE 1 0 ; 0x7fc4c9403440 - // 3 [4] SETTABLE 0 -1 1 ; "__call" - - // 4 [7] NEWTABLE 1 0 0 - // 5 [11] MOVE 2 1 - // 6 [11] LOADK 3 -2 ; "world" - // 7 [11] LOADK 4 -3 ; "wow" - // 8 [11] TAILCALL 2 3 0 <=== We stop here - // 9 [11] RETURN 2 0 - // 10 [11] RETURN 0 1 - t.doesNotThrow(function () { - L = getState(luaCode); - }, "Bytecode parsed without errors"); - - L.stack[1].p.code[7].breakpoint = true; + let bc = toByteCode(luaCode).dataView; - t.doesNotThrow(function () { - lapi.lua_call(L, 0, -1); - }, "First part of the program executed without errors"); + L = lauxlib.luaL_newstate(); - L.ci.pcOff--; - L.stack[1].p.code[7].breakpoint = false; + linit.luaL_openlibs(L); - t.comment("We manually set t's metatable to mt"); - L.stack[3].metatable = L.stack[2]; + lapi.lua_load(L, null, bc, "test", "binary"); + }, "Bytecode parsed without errors"); t.doesNotThrow(function () { - VM.luaV_execute(L); - }, "Second part of the program executed without errors"); + lapi.lua_call(L, 0, -1); + }, "Program executed without errors"); t.deepEqual( - L.stack.slice(L.top - 3, L.top).map(e => e.value), + L.stack.slice(L.top - 3, L.top).map(e => e.jsstring()), ["hello", "world", "wow"], "Program output is correct" ); diff --git a/tests/lvm.js b/tests/lvm.js index f5948eb..69195d1 100644 --- a/tests/lvm.js +++ b/tests/lvm.js @@ -26,7 +26,7 @@ test('LOADK, RETURN', function (t) { }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tostring(L, -1), "hello world", "Program output is correct" ); @@ -50,7 +50,7 @@ test('MOVE', function (t) { }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tostring(L, -1), "hello world", "Program output is correct" ); @@ -147,7 +147,7 @@ test('CALL', function (t) { }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tointeger(L, -1), 3, "Program output is correct" ); @@ -205,7 +205,7 @@ test('TAILCALL', function (t) { }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tointeger(L, -1), 3, "Program output is correct" ); @@ -255,7 +255,7 @@ test('LE, JMP', function (t) { }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_toboolean(L, -1), true, "Program output is correct" ); @@ -279,7 +279,7 @@ test('LT', function (t) { }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_toboolean(L, -1), false, "Program output is correct" ); @@ -303,7 +303,7 @@ test('EQ', function (t) { }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_toboolean(L, -1), true, "Program output is correct" ); @@ -328,7 +328,7 @@ test('TESTSET (and)', function (t) { }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tostring(L, -1), "hello", "Program output is correct" ); @@ -353,7 +353,7 @@ test('TESTSET (or)', function (t) { }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tostring(L, -1), "hello", "Program output is correct" ); @@ -382,7 +382,7 @@ test('TEST (true)', function (t) { }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tostring(L, -1), "hello", "Program output is correct" ); @@ -411,7 +411,7 @@ test('TEST (false)', function (t) { }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tostring(L, -1), "goodbye", "Program output is correct" ); @@ -439,7 +439,7 @@ test('FORPREP, FORLOOP (int)', function (t) { }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tointeger(L, -1), 55, "Program output is correct" ); @@ -467,7 +467,7 @@ test('FORPREP, FORLOOP (float)', function (t) { }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tonumber(L, -1), 60.5, "Program output is correct" ); @@ -493,14 +493,16 @@ test('SETTABLE, GETTABLE', function (t) { lapi.lua_call(L, 0, -1); }, "Program executed without errors"); - t.strictEqual( - L.stack[L.top - 1].value.get(0).value, + console.log(L.stack[L.top - 1]); + + t.deepEqual( + L.stack[L.top - 1].value.get(0).jsstring(), "hello", "Program output is correct" ); - t.strictEqual( - L.stack[L.top - 1].value.get("two").value, + t.deepEqual( + L.stack[L.top - 1].value.get('116|119|111|').jsstring(), // "two" "world", "Program output is correct" ); @@ -530,7 +532,7 @@ test('SETUPVAL, GETUPVAL', function (t) { }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tostring(L, -1), "world", "Program output is correct" ); @@ -556,15 +558,15 @@ test('SETTABUP, GETTABUP', function (t) { lapi.lua_call(L, 0, -1); }, "Program executed without errors"); - t.strictEqual( - L.stack[L.top - 1].value.get(0).value, - "hello", + t.deepEqual( + L.stack[L.top - 1].value.get(0).jsstring(), + "hello", // "hello" "Program output is correct" ); - t.strictEqual( - L.stack[L.top - 1].value.get("two").value, - "world", + t.deepEqual( + L.stack[L.top - 1].value.get('116|119|111|').jsstring(), // "two" + "world", // "world" "Program output is correct" ); }); @@ -592,7 +594,7 @@ test('SELF', function (t) { }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tostring(L, -1), "hello", "Program output is correct" ); @@ -732,7 +734,7 @@ test('TFORCALL, TFORLOOP', function (t) { }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tointeger(L, -1), 6, "Program output is correct" ); @@ -758,19 +760,19 @@ test('LEN', function (t) { }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tointeger(L, -1), 5, "Program output is correct" ); t.strictEqual( - L.stack[L.top - 2].value, + lapi.lua_tointeger(L, -2), 3, "Program output is correct" ); t.strictEqual( - L.stack[L.top - 3].value, + lapi.lua_tointeger(L, -3), 0, "Program output is correct" ); @@ -792,7 +794,7 @@ test('CONCAT', function (t) { }, "Program executed without errors"); t.strictEqual( - L.stack[L.top - 1].value, + lapi.lua_tostring(L, -1), "hello 2 you", "Program output is correct" ); diff --git a/tests/tests.js b/tests/tests.js index 32f6563..40bebd8 100644 --- a/tests/tests.js +++ b/tests/tests.js @@ -40,6 +40,5 @@ const getState = function(luaCode) { return L; }; - module.exports.getState = getState; module.exports.toByteCode = toByteCode; \ No newline at end of file -- cgit v1.2.3-70-g09d2