table.concat

2 files changed, 50 insertions, 3 deletions

diff --git a/tests/ltablib.js b/tests/ltablib.js
new file mode 100644
index 0000000..22a6797
--- /dev/null
+++ b/tests/ltablib.js
@@ -0,0 +1,47 @@
+/*jshint esversion: 6 */
+"use strict";
+
+const test       = require('tape');
+const beautify   = require('js-beautify').js_beautify;
+
+const tests      = require("./tests.js");
+const getState   = tests.getState;
+const toByteCode = tests.toByteCode;
+
+const VM         = require("../src/lvm.js");
+const ldo        = require("../src/ldo.js");
+const lapi       = require("../src/lapi.js");
+const lauxlib    = require("../src/lauxlib.js");
+const lua        = require('../src/lua.js');
+const linit      = require('../src/linit.js');
+const lstate     = require('../src/lstate.js');
+const CT         = lua.constant_types;
+
+
+test('table.concat', function (t) {
+    let luaCode = `
+        return table.concat({1, 2, 3, 4, 5, 6, 7}, ",", 3, 5)
+    `, L;
+    
+    t.plan(2);
+
+    t.doesNotThrow(function () {
+
+        let bc = toByteCode(luaCode).dataView;
+
+        L = lauxlib.luaL_newstate();
+
+        linit.luaL_openlibs(L);
+
+        lapi.lua_load(L, bc, "test-table.concat");
+
+        lapi.lua_call(L, 0, -1);
+
+    }, "JS Lua program ran without error");
+
+    t.strictEqual(
+        lapi.lua_tostring(L, -1),
+        "3,4,5",
+        "Correct element(s) on the stack"
+    );
+});
\ No newline at end of file
diff --git a/tests/lvm.js b/tests/lvm.js
index 8517393..4f02ed5 100644
--- a/tests/lvm.js
+++ b/tests/lvm.js
@@ -758,19 +758,19 @@ test('LEN', function (t) {
     }, "Program executed without errors");
 
     t.strictEqual(
-        L.stack[L.top - 1],
+        L.stack[L.top - 1].value,
         5,
         "Program output is correct"
     );
 
     t.strictEqual(
-        L.stack[L.top - 2],
+        L.stack[L.top - 2].value,
         3,
         "Program output is correct"
     );
 
     t.strictEqual(
-        L.stack[L.top - 3],
+        L.stack[L.top - 3].value,
         0,
         "Program output is correct"
     );