diff options
| -rw-r--r-- | README.md | 2 | ||||
| -rw-r--r-- | tests/test-suite/literals.js | 371 |
2 files changed, 364 insertions, 9 deletions
@@ -68,6 +68,7 @@ - [x] `calls.lua` - [x] `constructs.lua` (`_soft`) - [x] `events.lua` + - [x] `literals.lua` - [x] `locals.lua` - [x] `strings.lua` - [x] `vararg.lua` @@ -86,7 +87,6 @@ - [ ] `gc.lua` - [ ] `goto.lua` - [ ] `heavy.lua` - - [ ] `literals.lua` - [ ] `main.lua` - [ ] `math.lua` - [ ] `nextvar.lua` diff --git a/tests/test-suite/literals.js b/tests/test-suite/literals.js index 8dac1fa..a4eb32d 100644 --- a/tests/test-suite/literals.js +++ b/tests/test-suite/literals.js @@ -9,9 +9,11 @@ const lauxlib = require('../../src/lauxlib.js'); const lualib = require('../../src/lualib.js'); -const dostring = `local function dostring (x) return assert(load(x), "")() end`; +const dostring = ` + local function dostring (x) return assert(load(x), "")() end +`; -test("[test-suite] events: dostring", function (t) { +test("[test-suite] literals: dostring", function (t) { let luaCode = ` dostring("x \\v\\f = \\t\\r 'a\\0a' \\v\\f\\f") assert(x == 'a\\0a' and string.len(x) == 3) @@ -39,7 +41,7 @@ test("[test-suite] events: dostring", function (t) { // TODO: bell character '\a' in JS is parsed as 'a' -test("[test-suite] events: escape sequences", function (t) { +test("[test-suite] literals: escape sequences", function (t) { let luaCode = ` assert('\\n\\"\\'\\\\' == [[ @@ -68,7 +70,7 @@ test("[test-suite] events: escape sequences", function (t) { }); -test("[test-suite] events: assume ASCII just for tests", function (t) { +test("[test-suite] literals: assume ASCII just for tests", function (t) { let luaCode = ` assert("\\09912" == 'c12') assert("\\99ab" == 'cab') @@ -100,7 +102,7 @@ test("[test-suite] events: assume ASCII just for tests", function (t) { }); -test("[test-suite] events: hexadecimal escapes", function (t) { +test("[test-suite] literals: hexadecimal escapes", function (t) { let luaCode = ` assert("\\x00\\x05\\x10\\x1f\\x3C\\xfF\\xe8" == "\\0\\5\\16\\31\\60\\255\\232") @@ -147,7 +149,7 @@ assert("abc\\z }); -test("[test-suite] events: UTF-8 sequences", function (t) { +test("[test-suite] literals: UTF-8 sequences", function (t) { let luaCode = ` assert("\\u{0}\\u{00000000}\\x00\\0" == string.char(0, 0, 0, 0)) @@ -185,7 +187,7 @@ test("[test-suite] events: UTF-8 sequences", function (t) { }); -test("[test-suite] events: Error in escape sequences", function (t) { +test("[test-suite] literals: Error in escape sequences", function (t) { let luaCode = ` local function lexerror (s, err) local st, msg = load('return ' .. s, '') @@ -248,4 +250,357 @@ test("[test-suite] events: Error in escape sequences", function (t) { }, "Lua program ran without error"); -});
\ No newline at end of file +}); + + +test("[test-suite] literals: valid characters in variable names", function (t) { + let luaCode = ` + for i = 0, 255 do + local s = string.char(i) + assert(not string.find(s, "[a-zA-Z_]") == not load(s .. "=1", "")) + assert(not string.find(s, "[a-zA-Z_0-9]") == + not load("a" .. s .. "1 = 1", "")) + end + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(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"); + +}); + + +test("[test-suite] literals: long variable names", function (t) { + let luaCode = ` + var1 = string.rep('a', 15000) .. '1' + var2 = string.rep('a', 15000) .. '2' + prog = string.format([[ + %s = 5 + %s = %s + 1 + return function () return %s - %s end + ]], var1, var2, var1, var1, var2) + local f = dostring(prog) + assert(_G[var1] == 5 and _G[var2] == 6 and f() == -1) + var1, var2, f = nil + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(dostring + luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] literals: escapes", function (t) { + let luaCode = `assert("\\n\\t" == [[\n\n\t]]) +assert([[\n\n $debug]] == "\\n $debug") +assert([[ [ ]] ~= [[ ] ]])`, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(dostring + luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] literals: long strings", function (t) { + let luaCode = `b = "001234567890123456789012345678901234567891234567890123456789012345678901234567890012345678901234567890123456789012345678912345678901234567890123456789012345678900123456789012345678901234567890123456789123456789012345678901234567890123456789001234567890123456789012345678901234567891234567890123456789012345678901234567890012345678901234567890123456789012345678912345678901234567890123456789012345678900123456789012345678901234567890123456789123456789012345678901234567890123456789001234567890123456789012345678901234567891234567890123456789012345678901234567890012345678901234567890123456789012345678912345678901234567890123456789012345678900123456789012345678901234567890123456789123456789012345678901234567890123456789001234567890123456789012345678901234567891234567890123456789012345678901234567890012345678901234567890123456789012345678912345678901234567890123456789012345678900123456789012345678901234567890123456789123456789012345678901234567890123456789" +assert(string.len(b) == 960) +prog = [=[ +print('+') + +a1 = [["this is a 'string' with several 'quotes'"]] +a2 = "'quotes'" + +assert(string.find(a1, a2) == 34) +print('+') + +a1 = [==[temp = [[an arbitrary value]]; ]==] +assert(load(a1))() +assert(temp == 'an arbitrary value') +-- long strings -- +b = "001234567890123456789012345678901234567891234567890123456789012345678901234567890012345678901234567890123456789012345678912345678901234567890123456789012345678900123456789012345678901234567890123456789123456789012345678901234567890123456789001234567890123456789012345678901234567891234567890123456789012345678901234567890012345678901234567890123456789012345678912345678901234567890123456789012345678900123456789012345678901234567890123456789123456789012345678901234567890123456789001234567890123456789012345678901234567891234567890123456789012345678901234567890012345678901234567890123456789012345678912345678901234567890123456789012345678900123456789012345678901234567890123456789123456789012345678901234567890123456789001234567890123456789012345678901234567891234567890123456789012345678901234567890012345678901234567890123456789012345678912345678901234567890123456789012345678900123456789012345678901234567890123456789123456789012345678901234567890123456789" +assert(string.len(b) == 960) +print('+') + +a = [[00123456789012345678901234567890123456789123456789012345678901234567890123456789 +00123456789012345678901234567890123456789123456789012345678901234567890123456789 +00123456789012345678901234567890123456789123456789012345678901234567890123456789 +00123456789012345678901234567890123456789123456789012345678901234567890123456789 +00123456789012345678901234567890123456789123456789012345678901234567890123456789 +00123456789012345678901234567890123456789123456789012345678901234567890123456789 +00123456789012345678901234567890123456789123456789012345678901234567890123456789 +00123456789012345678901234567890123456789123456789012345678901234567890123456789 +00123456789012345678901234567890123456789123456789012345678901234567890123456789 +00123456789012345678901234567890123456789123456789012345678901234567890123456789 +00123456789012345678901234567890123456789123456789012345678901234567890123456789 +00123456789012345678901234567890123456789123456789012345678901234567890123456789 +00123456789012345678901234567890123456789123456789012345678901234567890123456789 +00123456789012345678901234567890123456789123456789012345678901234567890123456789 +00123456789012345678901234567890123456789123456789012345678901234567890123456789 +00123456789012345678901234567890123456789123456789012345678901234567890123456789 +00123456789012345678901234567890123456789123456789012345678901234567890123456789 +00123456789012345678901234567890123456789123456789012345678901234567890123456789 +00123456789012345678901234567890123456789123456789012345678901234567890123456789 +00123456789012345678901234567890123456789123456789012345678901234567890123456789 +00123456789012345678901234567890123456789123456789012345678901234567890123456789 +00123456789012345678901234567890123456789123456789012345678901234567890123456789 +00123456789012345678901234567890123456789123456789012345678901234567890123456789 +]] +assert(string.len(a) == 1863) +assert(string.sub(a, 1, 40) == string.sub(b, 1, 40)) +x = 1 +]=] + +print('+') +x = nil +dostring(prog) +assert(x) + +prog = nil +a = nil +b = nil`, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(dostring + luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] literals: testing line ends", function (t) { + let luaCode = `prog = [[ +a = 1 -- a comment +b = 2 + + +x = [=[ +hi +]=] +y = "\\ +hello\\r\\n\\ +" +return require"debug".getinfo(1).currentline +]] + +for _, n in pairs{"\\n", "\\r", "\\n\\r", "\\r\\n"} do + local prog, nn = string.gsub(prog, "\\n", n) + assert(dostring(prog) == nn) + assert(_G.x == "hi\\n" and _G.y == "\\nhello\\r\\n\\n") +end`, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(dostring + luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] literals: testing comments and strings with long brackets", function (t) { + let luaCode = `a = [==[]=]==] +assert(a == "]=") + +a = [==[[===[[=[]]=][====[]]===]===]==] +assert(a == "[===[[=[]]=][====[]]===]===") + +a = [====[[===[[=[]]=][====[]]===]===]====] +assert(a == "[===[[=[]]=][====[]]===]===") + +a = [=[]]]]]]]]]=] +assert(a == "]]]]]]]]") + + +--[===[ +x y z [==[ blu foo +]== +] +]=]==] +error error]=]===]`, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(dostring + luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + + +}); + + +test("[test-suite] literals: generate all strings of four of these chars", function (t) { + let luaCode = `local x = {"=", "[", "]", "\\n"} +local len = 4 +local function gen (c, n) + if n==0 then coroutine.yield(c) + else + for _, a in pairs(x) do + gen(c..a, n-1) + end + end +end + +for s in coroutine.wrap(function () gen("", len) end) do + assert(s == load("return [====[\\n"..s.."]====]", "")()) +end`, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(dostring + luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + + +}); + + +test("[test-suite] literals: testing %q x line ends", function (t) { + let luaCode = ` + local s = "a string with \\r and \\n and \\r\\n and \\n\\r" + local c = string.format("return %q", s) + assert(assert(load(c))() == s) + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(dostring + luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + + +}); + + +test("[test-suite] literals: testing errors", function (t) { + let luaCode = ` + assert(not load"a = 'non-ending string") + assert(not load"a = 'non-ending string\\n'") + assert(not load"a = '\\\\345'") + assert(not load"a = [=x]") + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(dostring + luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + + +}); |