From ce9fd9bdca0caa6a33ce37a01f41593ca42ba95b Mon Sep 17 00:00:00 2001
From: daurnimator <quae@daurnimator.com>
Date: Mon, 2 Apr 2018 22:44:25 +1000
Subject: Start moving test suite from tape => jest

---
 tests/test-suite/calls.js | 756 ----------------------------------------------
 1 file changed, 756 deletions(-)
 delete mode 100644 tests/test-suite/calls.js

(limited to 'tests/test-suite/calls.js')

diff --git a/tests/test-suite/calls.js b/tests/test-suite/calls.js
deleted file mode 100644
index 2044e5c..0000000
--- a/tests/test-suite/calls.js
+++ /dev/null
@@ -1,756 +0,0 @@
-"use strict";
-
-const test     = require('tape');
-
-const lua     = require('../../src/lua.js');
-const lauxlib = require('../../src/lauxlib.js');
-const lualib  = require('../../src/lualib.js');
-const {to_luastring} = require("../../src/fengaricore.js");
-
-test("[test-suite] calls: test 'type'", function (t) {
-    let luaCode = `
-        assert(type(1<2) == 'boolean')
-        assert(type(true) == 'boolean' and type(false) == 'boolean')
-        assert(type(nil) == 'nil'
-           and type(-3) == 'number'
-           and type'x' == 'string'
-           and type{} == 'table'
-           and type(type) == 'function')
-
-        assert(type(assert) == type(print))
-        function f (x) return a:x (x) end
-        assert(type(f) == 'function')
-        assert(not pcall(type))
-    `, L;
-
-    t.plan(2);
-
-    t.doesNotThrow(function () {
-
-        L = lauxlib.luaL_newstate();
-
-        lualib.luaL_openlibs(L);
-
-        lauxlib.luaL_loadstring(L, to_luastring(luaCode));
-
-    }, "Lua program loaded without error");
-
-    t.doesNotThrow(function () {
-
-        lua.lua_call(L, 0, -1);
-
-    }, "Lua program ran without error");
-
-});
-
-
-test("[test-suite] calls: test error in 'print'", function (t) {
-    let luaCode = `
-        do    -- test error in 'print' too...
-          local tostring = _ENV.tostring
-
-          _ENV.tostring = nil
-          local st, msg = pcall(print, 1)
-          assert(st == false and string.find(msg, "attempt to call a nil value"))
-
-          _ENV.tostring = function () return {} end
-          local st, msg = pcall(print, 1)
-          assert(st == false and string.find(msg, "must return a string"))
-
-          _ENV.tostring = tostring
-        end
-    `, L;
-
-    t.plan(2);
-
-    t.doesNotThrow(function () {
-
-        L = lauxlib.luaL_newstate();
-
-        lualib.luaL_openlibs(L);
-
-        lauxlib.luaL_loadstring(L, to_luastring(luaCode));
-
-    }, "Lua program loaded without error");
-
-    t.doesNotThrow(function () {
-
-        lua.lua_call(L, 0, -1);
-
-    }, "Lua program ran without error");
-
-});
-
-
-test("[test-suite] calls: testing local-function recursion", function (t) {
-    let luaCode = `
-        fact = false
-        do
-          local res = 1
-          local function fact (n)
-            if n==0 then return res
-            else return n*fact(n-1)
-            end
-          end
-          assert(fact(5) == 120)
-        end
-        assert(fact == false)
-    `, L;
-
-    t.plan(2);
-
-    t.doesNotThrow(function () {
-
-        L = lauxlib.luaL_newstate();
-
-        lualib.luaL_openlibs(L);
-
-        lauxlib.luaL_loadstring(L, to_luastring(luaCode));
-
-    }, "Lua program loaded without error");
-
-    t.doesNotThrow(function () {
-
-        lua.lua_call(L, 0, -1);
-
-    }, "Lua program ran without error");
-
-});
-
-
-test("[test-suite] calls: testing declarations", function (t) {
-    let luaCode = `
-        a = {i = 10}
-        self = 20
-        function a:x (x) return x+self.i end
-        function a.y (x) return x+self end
-
-        assert(a:x(1)+10 == a.y(1))
-
-        a.t = {i=-100}
-        a["t"].x = function (self, a,b) return self.i+a+b end
-
-        assert(a.t:x(2,3) == -95)
-
-        do
-          local a = {x=0}
-          function a:add (x) self.x, a.y = self.x+x, 20; return self end
-          assert(a:add(10):add(20):add(30).x == 60 and a.y == 20)
-        end
-
-        local a = {b={c={}}}
-
-        function a.b.c.f1 (x) return x+1 end
-        function a.b.c:f2 (x,y) self[x] = y end
-        assert(a.b.c.f1(4) == 5)
-        a.b.c:f2('k', 12); assert(a.b.c.k == 12)
-
-
-        t = nil   -- 'declare' t
-        function f(a,b,c) local d = 'a'; t={a,b,c,d} end
-
-        f(      -- this line change must be valid
-          1,2)
-        assert(t[1] == 1 and t[2] == 2 and t[3] == nil and t[4] == 'a')
-        f(1,2,   -- this one too
-              3,4)
-        assert(t[1] == 1 and t[2] == 2 and t[3] == 3 and t[4] == 'a')
-
-        function fat(x)
-          if x <= 1 then return 1
-          else return x*load("return fat(" .. x-1 .. ")", "")()
-          end
-        end
-
-        assert(load "load 'assert(fat(6)==720)' () ")()
-        a = load('return fat(5), 3')
-        a,b = a()
-        assert(a == 120 and b == 3)
-
-        function err_on_n (n)
-          if n==0 then error(); exit(1);
-          else err_on_n (n-1); exit(1);
-          end
-        end
-
-        do
-          function dummy (n)
-            if n > 0 then
-              assert(not pcall(err_on_n, n))
-              dummy(n-1)
-            end
-          end
-        end
-
-        dummy(10)
-
-        function deep (n)
-          if n>0 then deep(n-1) end
-        end
-        deep(10)
-        deep(200)
-
-        -- testing tail call
-        function deep (n) if n>0 then return deep(n-1) else return 101 end end
-        assert(deep(30000) == 101)
-        a = {}
-        function a:deep (n) if n>0 then return self:deep(n-1) else return 101 end end
-        assert(a:deep(30000) == 101)
-
-
-
-        a = nil
-        (function (x) a=x end)(23)
-        assert(a == 23 and (function (x) return x*2 end)(20) == 40)
-    `, L;
-
-    t.plan(2);
-
-    t.doesNotThrow(function () {
-
-        L = lauxlib.luaL_newstate();
-
-        lualib.luaL_openlibs(L);
-
-        lauxlib.luaL_loadstring(L, to_luastring(luaCode));
-
-    }, "Lua program loaded without error");
-
-    t.doesNotThrow(function () {
-
-        lua.lua_call(L, 0, -1);
-
-    }, "Lua program ran without error");
-
-});
-
-
-test("[test-suite] calls: testing closures", function (t) {
-    let luaCode = `
-        -- fixed-point operator
-        Z = function (le)
-              local function a (f)
-                return le(function (x) return f(f)(x) end)
-              end
-              return a(a)
-            end
-
-
-        -- non-recursive factorial
-
-        F = function (f)
-              return function (n)
-                       if n == 0 then return 1
-                       else return n*f(n-1) end
-                     end
-            end
-
-        fat = Z(F)
-
-        assert(fat(0) == 1 and fat(4) == 24 and Z(F)(5)==5*Z(F)(4))
-
-        local function g (z)
-          local function f (a,b,c,d)
-            return function (x,y) return a+b+c+d+a+x+y+z end
-          end
-          return f(z,z+1,z+2,z+3)
-        end
-
-        f = g(10)
-        assert(f(9, 16) == 10+11+12+13+10+9+16+10)
-
-        Z, F, f = nil
-    `, L;
-
-    t.plan(2);
-
-    t.doesNotThrow(function () {
-
-        L = lauxlib.luaL_newstate();
-
-        lualib.luaL_openlibs(L);
-
-        lauxlib.luaL_loadstring(L, to_luastring(luaCode));
-
-    }, "Lua program loaded without error");
-
-    t.doesNotThrow(function () {
-
-        lua.lua_call(L, 0, -1);
-
-    }, "Lua program ran without error");
-
-});
-
-
-test("[test-suite] calls: testing multiple returns", function (t) {
-    let luaCode = `
-        function unlpack (t, i)
-          i = i or 1
-          if (i <= #t) then
-            return t[i], unlpack(t, i+1)
-          end
-        end
-
-        function equaltab (t1, t2)
-          assert(#t1 == #t2)
-          for i = 1, #t1 do
-            assert(t1[i] == t2[i])
-          end
-        end
-
-        local pack = function (...) return (table.pack(...)) end
-
-        function f() return 1,2,30,4 end
-        function ret2 (a,b) return a,b end
-
-        local a,b,c,d = unlpack{1,2,3}
-        assert(a==1 and b==2 and c==3 and d==nil)
-        a = {1,2,3,4,false,10,'alo',false,assert}
-        equaltab(pack(unlpack(a)), a)
-        equaltab(pack(unlpack(a), -1), {1,-1})
-        a,b,c,d = ret2(f()), ret2(f())
-        assert(a==1 and b==1 and c==2 and d==nil)
-        a,b,c,d = unlpack(pack(ret2(f()), ret2(f())))
-        assert(a==1 and b==1 and c==2 and d==nil)
-        a,b,c,d = unlpack(pack(ret2(f()), (ret2(f()))))
-        assert(a==1 and b==1 and c==nil and d==nil)
-
-        a = ret2{ unlpack{1,2,3}, unlpack{3,2,1}, unlpack{"a", "b"}}
-        assert(a[1] == 1 and a[2] == 3 and a[3] == "a" and a[4] == "b")
-    `, L;
-
-    t.plan(2);
-
-    t.doesNotThrow(function () {
-
-        L = lauxlib.luaL_newstate();
-
-        lualib.luaL_openlibs(L);
-
-        lauxlib.luaL_loadstring(L, to_luastring(luaCode));
-
-    }, "Lua program loaded without error");
-
-    t.doesNotThrow(function () {
-
-        lua.lua_call(L, 0, -1);
-
-    }, "Lua program ran without error");
-
-});
-
-
-test("[test-suite] calls: testing calls with 'incorrect' arguments", function (t) {
-    let luaCode = `
-        rawget({}, "x", 1)
-        rawset({}, "x", 1, 2)
-        assert(math.sin(1,2) == math.sin(1))
-        table.sort({10,9,8,4,19,23,0,0}, function (a,b) return a<b end, "extra arg")
-    `, L;
-
-    t.plan(2);
-
-    t.doesNotThrow(function () {
-
-        L = lauxlib.luaL_newstate();
-
-        lualib.luaL_openlibs(L);
-
-        lauxlib.luaL_loadstring(L, to_luastring(luaCode));
-
-    }, "Lua program loaded without error");
-
-    t.doesNotThrow(function () {
-
-        lua.lua_call(L, 0, -1);
-
-    }, "Lua program ran without error");
-
-});
-
-
-test("[test-suite] calls: test for generic load", function (t) {
-    let luaCode = `
-        local x = "-- a comment\\0\\0\\0\\n  x = 10 + \\n23; \\
-             local a = function () x = 'hi' end; \\
-             return '\\0'"
-
-        function read1 (x)
-          local i = 0
-          return function ()
-            i=i+1
-            return string.sub(x, i, i)
-          end
-        end
-
-        function cannotload (msg, a,b)
-          assert(not a and string.find(b, msg))
-        end
-
-        a = assert(load(read1(x), "modname", "t", _G))
-        assert(a() == "\0" and _G.x == 33)
-        assert(debug.getinfo(a).source == "modname")
-        -- cannot read text in binary mode
-        cannotload("attempt to load a text chunk", load(read1(x), "modname", "b", {}))
-        cannotload("attempt to load a text chunk", load(x, "modname", "b"))
-
-        a = assert(load(function () return nil end))
-        a()  -- empty chunk
-
-        assert(not load(function () return true end))
-
-        local t = {nil, "return ", "3"}
-        f, msg = load(function () return table.remove(t, 1) end)
-        assert(f() == nil)   -- should read the empty chunk
-
-        f = load(string.dump(function () return 1 end), nil, "b", {})
-        assert(type(f) == "function" and f() == 1)
-
-
-        x = string.dump(load("x = 1; return x"))
-        a = assert(load(read1(x), nil, "b"))
-        assert(a() == 1 and _G.x == 1)
-        cannotload("attempt to load a binary chunk", load(read1(x), nil, "t"))
-        cannotload("attempt to load a binary chunk", load(x, nil, "t"))
-
-        assert(not pcall(string.dump, print))  -- no dump of C functions
-
-        cannotload("unexpected symbol", load(read1("*a = 123")))
-        cannotload("unexpected symbol", load("*a = 123"))
-        cannotload("hhi", load(function () error("hhi") end))
-    `, L;
-
-    t.plan(2);
-
-    t.doesNotThrow(function () {
-
-        L = lauxlib.luaL_newstate();
-
-        lualib.luaL_openlibs(L);
-
-        lauxlib.luaL_loadstring(L, to_luastring(luaCode));
-
-    }, "Lua program loaded without error");
-
-    t.doesNotThrow(function () {
-
-        lua.lua_call(L, 0, -1);
-
-    }, "Lua program ran without error");
-
-});
-
-
-test("[test-suite] calls: any value is valid for _ENV", function (t) {
-    let luaCode = `
-        assert(load("return _ENV", nil, nil, 123)() == 123)
-    `, L;
-
-    t.plan(2);
-
-    t.doesNotThrow(function () {
-
-        L = lauxlib.luaL_newstate();
-
-        lualib.luaL_openlibs(L);
-
-        lauxlib.luaL_loadstring(L, to_luastring(luaCode));
-
-    }, "Lua program loaded without error");
-
-    t.doesNotThrow(function () {
-
-        lua.lua_call(L, 0, -1);
-
-    }, "Lua program ran without error");
-
-});
-
-
-test("[test-suite] calls: load when _ENV is not first upvalue", function (t) {
-    let luaCode = `
-        local x; XX = 123
-        local function h ()
-          local y=x   -- use 'x', so that it becomes 1st upvalue
-          return XX   -- global name
-        end
-        local d = string.dump(h)
-        x = load(d, "", "b")
-        assert(debug.getupvalue(x, 2) == '_ENV')
-        debug.setupvalue(x, 2, _G)
-        assert(x() == 123)
-
-        assert(assert(load("return XX + ...", nil, nil, {XX = 13}))(4) == 17)
-    `, L;
-
-    t.plan(2);
-
-    t.doesNotThrow(function () {
-
-        L = lauxlib.luaL_newstate();
-
-        lualib.luaL_openlibs(L);
-
-        lauxlib.luaL_loadstring(L, to_luastring(luaCode));
-
-    }, "Lua program loaded without error");
-
-    t.doesNotThrow(function () {
-
-        lua.lua_call(L, 0, -1);
-
-    }, "Lua program ran without error");
-
-});
-
-
-test("[test-suite] calls: test generic load with nested functions", function (t) {
-    let luaCode = `
-        function read1 (x)
-          local i = 0
-          return function ()
-            i=i+1
-            return string.sub(x, i, i)
-          end
-        end
-
-        x = [[
-          return function (x)
-            return function (y)
-             return function (z)
-               return x+y+z
-             end
-           end
-          end
-        ]]
-
-        a = assert(load(read1(x)))
-        assert(a()(2)(3)(10) == 15)
-    `, L;
-
-    t.plan(2);
-
-    t.doesNotThrow(function () {
-
-        L = lauxlib.luaL_newstate();
-
-        lualib.luaL_openlibs(L);
-
-        lauxlib.luaL_loadstring(L, to_luastring(luaCode));
-
-    }, "Lua program loaded without error");
-
-    t.doesNotThrow(function () {
-
-        lua.lua_call(L, 0, -1);
-
-    }, "Lua program ran without error");
-
-});
-
-
-test("[test-suite] calls: test for dump/undump with upvalues", function (t) {
-    let luaCode = `
-        local a, b = 20, 30
-        x = load(string.dump(function (x)
-          if x == "set" then a = 10+b; b = b+1 else
-          return a
-          end
-        end), "", "b", nil)
-        assert(x() == nil)
-        assert(debug.setupvalue(x, 1, "hi") == "a")
-        assert(x() == "hi")
-        assert(debug.setupvalue(x, 2, 13) == "b")
-        assert(not debug.setupvalue(x, 3, 10))   -- only 2 upvalues
-        x("set")
-        assert(x() == 23)
-        x("set")
-        assert(x() == 24)
-    `, L;
-
-    t.plan(2);
-
-    t.doesNotThrow(function () {
-
-        L = lauxlib.luaL_newstate();
-
-        lualib.luaL_openlibs(L);
-
-        lauxlib.luaL_loadstring(L, to_luastring(luaCode));
-
-    }, "Lua program loaded without error");
-
-    t.doesNotThrow(function () {
-
-        lua.lua_call(L, 0, -1);
-
-    }, "Lua program ran without error");
-
-});
-
-
-test("[test-suite] calls: test for dump/undump with many upvalues", function (t) {
-    let luaCode = `
-        do
-          local nup = 200    -- maximum number of local variables
-          local prog = {"local a1"}
-          for i = 2, nup do prog[#prog + 1] = ", a" .. i end
-          prog[#prog + 1] = " = 1"
-          for i = 2, nup do prog[#prog + 1] = ", " .. i end
-          local sum = 1
-          prog[#prog + 1] = "; return function () return a1"
-          for i = 2, nup do prog[#prog + 1] = " + a" .. i; sum = sum + i end
-          prog[#prog + 1] = " end"
-          prog = table.concat(prog)
-          local f = assert(load(prog))()
-          assert(f() == sum)
-
-          f = load(string.dump(f))   -- main chunk now has many upvalues
-          local a = 10
-          local h = function () return a end
-          for i = 1, nup do
-            debug.upvaluejoin(f, i, h, 1)
-          end
-          assert(f() == 10 * nup)
-        end
-    `, L;
-
-    t.plan(2);
-
-    t.doesNotThrow(function () {
-
-        L = lauxlib.luaL_newstate();
-
-        lualib.luaL_openlibs(L);
-
-        lauxlib.luaL_loadstring(L, to_luastring(luaCode));
-
-    }, "Lua program loaded without error");
-
-    t.doesNotThrow(function () {
-
-        lua.lua_call(L, 0, -1);
-
-    }, "Lua program ran without error");
-
-});
-
-
-test("[test-suite] calls: test for long method names", function (t) {
-    let luaCode = `
-        do
-          local t = {x = 1}
-          function t:_012345678901234567890123456789012345678901234567890123456789 ()
-            return self.x
-          end
-          assert(t:_012345678901234567890123456789012345678901234567890123456789() == 1)
-        end
-    `, L;
-
-    t.plan(2);
-
-    t.doesNotThrow(function () {
-
-        L = lauxlib.luaL_newstate();
-
-        lualib.luaL_openlibs(L);
-
-        lauxlib.luaL_loadstring(L, to_luastring(luaCode));
-
-    }, "Lua program loaded without error");
-
-    t.doesNotThrow(function () {
-
-        lua.lua_call(L, 0, -1);
-
-    }, "Lua program ran without error");
-
-});
-
-
-test("[test-suite] calls: test for bug in parameter adjustment", function (t) {
-    let luaCode = `
-        assert((function () return nil end)(4) == nil)
-        assert((function () local a; return a end)(4) == nil)
-        assert((function (a) return a end)() == nil)
-    `, L;
-
-    t.plan(2);
-
-    t.doesNotThrow(function () {
-
-        L = lauxlib.luaL_newstate();
-
-        lualib.luaL_openlibs(L);
-
-        lauxlib.luaL_loadstring(L, to_luastring(luaCode));
-
-    }, "Lua program loaded without error");
-
-    t.doesNotThrow(function () {
-
-        lua.lua_call(L, 0, -1);
-
-    }, "Lua program ran without error");
-
-});
-
-
-test("[test-suite] calls: testing binary chunks", function (t) {
-    let luaCode = `
-        do
-          local header = string.pack("c4BBc6BBBBBj",
-            "\\27Lua",                -- signature
-            5*16 + 3,                -- version 5.3
-            0,                       -- format
-            "\\x19\\x93\\r\\n\\x1a\\n",    -- data
-            string.packsize("i"),    -- sizeof(int)
-            string.packsize("T"),    -- sizeof(size_t)
-            4,                       -- size of instruction
-            string.packsize("j"),    -- sizeof(lua integer)
-            string.packsize("n"),    -- sizeof(lua number)
-            0x5678                   -- LUAC_INT
-            -- LUAC_NUM may not have a unique binary representation (padding...)
-          )
-          local c = string.dump(function () local a = 1; local b = 3; return a+b*3 end)
-
-          assert(string.sub(c, 1, #header) == header)
-
-          -- corrupted header
-          for i = 1, #header do
-            local s = string.sub(c, 1, i - 1) ..
-                      string.char(string.byte(string.sub(c, i, i)) + 1) ..
-                      string.sub(c, i + 1, -1)
-            assert(#s == #c)
-            assert(not load(s))
-          end
-
-          -- loading truncated binary chunks
-          for i = 1, #c - 1 do
-            local st, msg = load(string.sub(c, 1, i))
-            assert(not st and string.find(msg, "truncated"))
-          end
-          assert(assert(load(c))() == 10)
-        end
-    `, L;
-
-    t.plan(2);
-
-    t.doesNotThrow(function () {
-
-        L = lauxlib.luaL_newstate();
-
-        lualib.luaL_openlibs(L);
-
-        lauxlib.luaL_loadstring(L, to_luastring(luaCode));
-
-    }, "Lua program loaded without error");
-
-    t.doesNotThrow(function () {
-
-        lua.lua_call(L, 0, -1);
-
-    }, "Lua program ran without error");
-
-});
-- 
cgit v1.2.3-54-g00ecf