[test-suite] literals.js

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");
+
+
+});