summaryrefslogtreecommitdiff
path: root/tests/test-suite/inprogress/code.js
diff options
context:
space:
mode:
Diffstat (limited to 'tests/test-suite/inprogress/code.js')
-rw-r--r--tests/test-suite/inprogress/code.js56
1 files changed, 56 insertions, 0 deletions
diff --git a/tests/test-suite/inprogress/code.js b/tests/test-suite/inprogress/code.js
new file mode 100644
index 0000000..cc4b131
--- /dev/null
+++ b/tests/test-suite/inprogress/code.js
@@ -0,0 +1,56 @@
+"use strict";
+
+const test = require('tape');
+
+global.WEB = false;
+
+const lua = require('../../../src/lua.js');
+const lauxlib = require('../../../src/lauxlib.js');
+const lualib = require('../../../src/lualib.js');
+
+const ltests = require('../ltests.js');
+
+
+test("[test-suite] api: testing reuse in constant table", function (t) {
+ let luaCode = `
+ local function checkKlist (func, list)
+ local k = T.listk(func)
+ assert(#k == #list)
+ for i = 1, #k do
+ assert(k[i] == list[i] and math.type(k[i]) == math.type(list[i]))
+ end
+ end
+
+ local function foo ()
+ local a
+ a = 3;
+ a = 0; a = 0.0; a = -7 + 7
+ a = 3.78/4; a = 3.78/4
+ a = -3.78/4; a = 3.78/4; a = -3.78/4
+ a = -3.79/4; a = 0.0; a = -0;
+ a = 3; a = 3.0; a = 3; a = 3.0
+ end
+
+ checkKlist(foo, {3, 0, 0.0, 3.78/4, -3.78/4, -3.79/4, 3.0})
+ `, L;
+
+ t.plan(2);
+
+ t.doesNotThrow(function () {
+
+ L = lauxlib.luaL_newstate();
+
+ lualib.luaL_openlibs(L);
+
+ ltests.luaopen_tests(L);
+
+ lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode));
+
+ }, "Lua program loaded without error");
+
+ t.doesNotThrow(function () {
+
+ lua.lua_call(L, 0, -1);
+
+ }, "Lua program ran without error");
+});