From ce9fd9bdca0caa6a33ce37a01f41593ca42ba95b Mon Sep 17 00:00:00 2001 From: daurnimator Date: Mon, 2 Apr 2018 22:44:25 +1000 Subject: Start moving test suite from tape => jest --- tests/test-suite/attrib.js | 373 --------------------------------------------- 1 file changed, 373 deletions(-) delete mode 100644 tests/test-suite/attrib.js (limited to 'tests/test-suite/attrib.js') diff --git a/tests/test-suite/attrib.js b/tests/test-suite/attrib.js deleted file mode 100644 index 5053a31..0000000 --- a/tests/test-suite/attrib.js +++ /dev/null @@ -1,373 +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] attrib: testing require", function (t) { - let luaCode = ` - assert(require"string" == string) - assert(require"math" == math) - assert(require"table" == table) - assert(require"io" == io) - assert(require"os" == os) - assert(require"coroutine" == coroutine) - - assert(type(package.path) == "string") - assert(type(package.jspath) == "string") - assert(type(package.loaded) == "table") - assert(type(package.preload) == "table") - - assert(type(package.config) == "string") - print("package config: "..string.gsub(package.config, "\\n", "|")) - - do - -- create a path with 'max' templates, - -- each with 1-10 repetitions of '?' - local max = _soft and 100 or 2000 - local t = {} - for i = 1,max do t[i] = string.rep("?", i%10 + 1) end - t[#t + 1] = ";" -- empty template - local path = table.concat(t, ";") - -- use that path in a search - local s, err = package.searchpath("xuxu", path) - -- search fails; check that message has an occurence of - -- '??????????' with ? replaced by xuxu and at least 'max' lines - assert(not s and - string.find(err, string.rep("xuxu", 10)) and - #string.gsub(err, "[^\\n]", "") >= max) - -- path with one very long template - local path = string.rep("?", max) - local s, err = package.searchpath("xuxu", path) - assert(not s and string.find(err, string.rep('xuxu', max))) - end - - do - local oldpath = package.path - package.path = {} - local s, err = pcall(require, "no-such-file") - assert(not s and string.find(err, "package.path")) - package.path = oldpath - 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"); - -}); - -// TODO: when io.write etc. -test("[test-suite] attrib: system specific tests for 'require'", { skip: true }, function (t) { -}); - - -test("[test-suite] attrib: testing assignments, logical operators, and constructors", function (t) { - let luaCode = ` - local res, res2 = 27 - - a, b = 1, 2+3 - assert(a==1 and b==5) - a={} - function f() return 10, 11, 12 end - a.x, b, a[1] = 1, 2, f() - assert(a.x==1 and b==2 and a[1]==10) - a[f()], b, a[f()+3] = f(), a, 'x' - assert(a[10] == 10 and b == a and a[13] == 'x') - - do - local f = function (n) local x = {}; for i=1,n do x[i]=i end; - return table.unpack(x) end; - local a,b,c - a,b = 0, f(1) - assert(a == 0 and b == 1) - A,b = 0, f(1) - assert(A == 0 and b == 1) - a,b,c = 0,5,f(4) - assert(a==0 and b==5 and c==1) - a,b,c = 0,5,f(0) - assert(a==0 and b==5 and c==nil) - end - - a, b, c, d = 1 and nil, 1 or nil, (1 and (nil or 1)), 6 - assert(not a and b and c and d==6) - - d = 20 - a, b, c, d = f() - assert(a==10 and b==11 and c==12 and d==nil) - a,b = f(), 1, 2, 3, f() - assert(a==10 and b==1) - - assert(ab == true) - assert((10 and 2) == 2) - assert((10 or 2) == 10) - assert((10 or assert(nil)) == 10) - assert(not (nil and assert(nil))) - assert((nil or "alo") == "alo") - assert((nil and 10) == nil) - assert((false and 10) == false) - assert((true or 10) == true) - assert((false or 10) == 10) - assert(false ~= nil) - assert(nil ~= false) - assert(not nil == true) - assert(not not nil == false) - assert(not not 1 == true) - assert(not not a == true) - assert(not not (6 or nil) == true) - assert(not not (nil and 56) == false) - assert(not not (nil and true) == false) - assert(not 10 == false) - assert(not {} == false) - assert(not 0.5 == false) - assert(not "x" == false) - - assert({} ~= {}) - - a = {} - a[true] = 20 - a[false] = 10 - assert(a[1<2] == 20 and a[1>2] == 10) - - function f(a) return a end - - local a = {} - for i=3000,-3000,-1 do a[i + 0.0] = i; end - a[10e30] = "alo"; a[true] = 10; a[false] = 20 - assert(a[10e30] == 'alo' and a[not 1] == 20 and a[10<20] == 10) - for i=3000,-3000,-1 do assert(a[i] == i); end - a[print] = assert - a[f] = print - a[a] = a - assert(a[a][a][a][a][print] == assert) - a[print](a[a[f]] == a[print]) - assert(not pcall(function () local a = {}; a[nil] = 10 end)) - assert(not pcall(function () local a = {[nil] = 10} end)) - assert(a[nil] == nil) - a = nil - - a = {10,9,8,7,6,5,4,3,2; [-3]='a', [f]=print, a='a', b='ab'} - a, a.x, a.y = a, a[-3] - assert(a[1]==10 and a[-3]==a.a and a[f]==print and a.x=='a' and not a.y) - a[1], f(a)[2], b, c = {['alo']=assert}, 10, a[1], a[f], 6, 10, 23, f(a), 2 - a[1].alo(a[2]==10 and b==10 and c==print) - `, 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] attrib: test of large float/integer indices ", function (t) { - let luaCode = ` - a = {} - a[true] = 20 - a[false] = 10 - assert(a[1<2] == 20 and a[1>2] == 10) - - function f(a) return a end - - local a = {} - for i=3000,-3000,-1 do a[i + 0.0] = i; end - a[10e30] = "alo"; a[true] = 10; a[false] = 20 - assert(a[10e30] == 'alo' and a[not 1] == 20 and a[10<20] == 10) - for i=3000,-3000,-1 do assert(a[i] == i); end - a[print] = assert - a[f] = print - a[a] = a - assert(a[a][a][a][a][print] == assert) - a[print](a[a[f]] == a[print]) - assert(not pcall(function () local a = {}; a[nil] = 10 end)) - assert(not pcall(function () local a = {[nil] = 10} end)) - assert(a[nil] == nil) - a = nil - - a = {10,9,8,7,6,5,4,3,2; [-3]='a', [f]=print, a='a', b='ab'} - a, a.x, a.y = a, a[-3] - assert(a[1]==10 and a[-3]==a.a and a[f]==print and a.x=='a' and not a.y) - a[1], f(a)[2], b, c = {['alo']=assert}, 10, a[1], a[f], 6, 10, 23, f(a), 2 - a[1].alo(a[2]==10 and b==10 and c==print) - - -- compute maximum integer where all bits fit in a float - local maxint = math.maxinteger - - while maxint - 1.0 == maxint - 0.0 do -- trim (if needed) to fit in a float - maxint = maxint // 2 - end - - maxintF = maxint + 0.0 -- float version - - assert(math.type(maxintF) == "float" and maxintF >= 2.0^14) - - -- floats and integers must index the same places - a[maxintF] = 10; a[maxintF - 1.0] = 11; - a[-maxintF] = 12; a[-maxintF + 1.0] = 13; - - assert(a[maxint] == 10 and a[maxint - 1] == 11 and - a[-maxint] == 12 and a[-maxint + 1] == 13) - - a[maxint] = 20 - a[-maxint] = 22 - - assert(a[maxintF] == 20 and a[maxintF - 1.0] == 11 and - a[-maxintF] == 22 and a[-maxintF + 1.0] == 13) - `, 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] attrib: test conflicts in multiple assignment", function (t) { - let luaCode = ` - do - local a,i,j,b - a = {'a', 'b'}; i=1; j=2; b=a - i, a[i], a, j, a[j], a[i+j] = j, i, i, b, j, i - assert(i == 2 and b[1] == 1 and a == 1 and j == b and b[2] == 2 and - b[3] == 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] attrib: repeat test with upvalues", function (t) { - let luaCode = ` - do - local a,i,j,b - a = {'a', 'b'}; i=1; j=2; b=a - local function foo () - i, a[i], a, j, a[j], a[i+j] = j, i, i, b, j, i - end - foo() - assert(i == 2 and b[1] == 1 and a == 1 and j == b and b[2] == 2 and - b[3] == 1) - local t = {} - (function (a) t[a], a = 10, 20 end)(1); - assert(t[1] == 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"); - -}); - - -test("[test-suite] attrib: bug in 5.2 beta", function (t) { - let luaCode = ` - local function foo () - local a - return function () - local b - a, b = 3, 14 -- local and upvalue have same index - return a, b - end - end - - local a, b = foo()() - assert(a == 3 and b == 14) - `, 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-70-g09d2