aboutsummaryrefslogtreecommitdiff
path: root/tests/ltm.js
diff options
context:
space:
mode:
Diffstat (limited to 'tests/ltm.js')
-rw-r--r--tests/ltm.js867
1 files changed, 184 insertions, 683 deletions
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 <hello.lua:0,0> (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 <hello.lua:2,4> (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 <hello.lua:0,0> (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 <hello.lua:2,4> (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 <hello.lua:0,0> (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 <hello.lua:0,0> (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 <hello.lua:0,0> (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 <hello.lua:2,4> (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 <hello.lua:0,0> (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 <hello.lua:4,6> (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 <hello.lua:0,0> (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 <hello.lua:0,0> (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 <hello.lua:0,0> (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 <hello.lua:0,0> (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 <hello.lua:0,0> (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 <hello.lua:0,0> (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 <hello.lua:0,0> (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 <hello.lua:0,0> (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 <hello.lua:0,0> (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"
);
generated by cgit v1.2.3-54-g00ecf (git 2.45.2) at 2024-07-01 12:48:38 +0000