aboutsummaryrefslogtreecommitdiff
path: root/tests/test-suite
diff options
context:
space:
mode:
authorBenoit Giannangeli <giann008@gmail.com>2017-05-13 21:29:07 +0200
committerBenoit Giannangeli <giann008@gmail.com>2017-05-13 23:23:12 +0200
commit880754f4f11fb3746e5c89734da9d8f5387300af (patch)
treeaf7b2d6afb97296a836970a6df3181b79cd6a3ab /tests/test-suite
parent29445c09adc02dcf2f904bdb589bd7cb2b2931b5 (diff)
downloadfengari-880754f4f11fb3746e5c89734da9d8f5387300af.tar.gz
fengari-880754f4f11fb3746e5c89734da9d8f5387300af.tar.bz2
fengari-880754f4f11fb3746e5c89734da9d8f5387300af.zip
[test-suite] literals.js
Diffstat (limited to 'tests/test-suite')
-rw-r--r--tests/test-suite/literals.js371
1 files changed, 363 insertions, 8 deletions
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");
+
+
+});