Testing 8-bit strings

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"
     );