diff options
| -rw-r--r-- | tests/test-suite/literals.js | 186 |
1 files changed, 186 insertions, 0 deletions
diff --git a/tests/test-suite/literals.js b/tests/test-suite/literals.js new file mode 100644 index 0000000..fa11959 --- /dev/null +++ b/tests/test-suite/literals.js @@ -0,0 +1,186 @@ +"use strict"; + +const test = require('tape'); + +global.WEB = false; + +const lua = require('../../src/lua.js'); +const lauxlib = require('../../src/lauxlib.js'); +const lualib = require('../../src/lualib.js'); + + +const dostring = `local function dostring (x) return assert(load(x), "")() end`; + +test("[test-suite] events: 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) + `, 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"); + +}); + + +// TODO: bell character '\a' in JS is parsed as 'a' +test("[test-suite] events: escape sequences", function (t) { + let luaCode = ` + assert('\\n\\"\\'\\\\' == [[ + +"'\\]]) + assert(string.find("\\b\\f\\n\\r\\t\\v", "^%c%c%c%c%c%c$")) + `, 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] events: assume ASCII just for tests", function (t) { + let luaCode = ` + assert("\\09912" == 'c12') + assert("\\99ab" == 'cab') + assert("\\099" == '\\99') + assert("\\099\\n" == 'c\\10') + assert('\\0\\0\\0alo' == '\\0' .. '\\0\\0' .. 'alo') + + assert(010 .. 020 .. -030 == "1020-30") + `, 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] events: hexadecimal escapes", function (t) { + let luaCode = ` + assert("\\x00\\x05\\x10\\x1f\\x3C\\xfF\\xe8" == "\\0\\5\\16\\31\\60\\255\\232") + + local function lexstring (x, y, n) + local f = assert(load('return ' .. x .. + ', require"debug".getinfo(1).currentline', '')) + local s, l = f() + assert(s == y and l == n) + end + + lexstring("'abc\\\\z \\n efg'", "abcefg", 2) + lexstring("'abc\\\\z \\n\\n\\n'", "abc", 4) + lexstring("'\\\\z \\n\\t\\f\\v\\n'", "", 3) + lexstring("[[\\nalo\\nalo\\n\\n]]", "alo\\nalo\\n\\n", 5) + lexstring("[[\\nalo\\ralo\\n\\n]]", "alo\\nalo\\n\\n", 5) + lexstring("[[\\nalo\\ralo\\r\\n]]", "alo\\nalo\\n", 4) + lexstring("[[\\ralo\\n\\ralo\\r\\n]]", "alo\\nalo\\n", 4) + lexstring("[[alo]\\n]alo]]", "alo]\\n]alo", 2) + +assert("abc\\z + def\\z + ghi\\z + " == 'abcdefghi') + `, 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] events: UTF-8 sequences", function (t) { + let luaCode = ` + assert("\\u{0}\\u{00000000}\\x00\\0" == string.char(0, 0, 0, 0)) + + -- limits for 1-byte sequences + assert("\\u{0}\\u{7F}" == "\\x00\\z\\x7F") + + -- limits for 2-byte sequences + assert("\\u{80}\\u{7FF}" == "\\xC2\\x80\\z\\xDF\\xBF") + + -- limits for 3-byte sequences + assert("\\u{800}\\u{FFFF}" == "\\xE0\\xA0\\x80\\z\\xEF\\xBF\\xBF") + + -- limits for 4-byte sequences + assert("\\u{10000}\\u{10FFFF}" == "\\xF0\\x90\\x80\\x80\\z\\xF4\\x8F\\xBF\\xBF") + `, 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"); + +}); + |