issue #8 add 5.2.2 tests

lua-5.2.2-tests/all.lua

@@ -4,7 +4,7 @@ local version = "Lua 5.2"
 if _VERSION ~= version then
   io.stderr:write("\nThis test suite is for ", version, ", not for ", _VERSION,
     "\nExiting tests\n")
-  return
+--  return
 end
 
 
@@ -131,7 +131,8 @@ dofile = function (n)
   return f()
 end
 
-dofile('main.lua')
+-- FIXME LuaJIT
+--dofile('main.lua')
 
 do
   local next, setmetatable, stderr = next, setmetatable, io.stderr
@@ -147,26 +148,27 @@ do
   local n = setmetatable({}, mt)   -- replicate object
 end
 
-report"gc.lua"
-local f = assert(loadfile('gc.lua'))
-f()
+-- FIXME LuaJIT
+--report"gc.lua"
+--local f = assert(loadfile('gc.lua'))
+--f()
 
-collectgarbage("generational")
-dofile('db.lua')
+--collectgarbage("generational")
+--dofile('db.lua')
 assert(dofile('calls.lua') == deep and deep)
-olddofile('strings.lua')
-olddofile('literals.lua')
+--olddofile('strings.lua')
+--olddofile('literals.lua')
 assert(dofile('attrib.lua') == 27)
 
-collectgarbage("incremental")   -- redo some tests in incremental mode
-olddofile('strings.lua')
-olddofile('literals.lua')
+--collectgarbage("incremental")   -- redo some tests in incremental mode
+--olddofile('strings.lua')
+--olddofile('literals.lua')
 dofile('constructs.lua')
 dofile('api.lua')
 
-collectgarbage("generational")   -- back to generational mode
+--collectgarbage("generational")   -- back to generational mode
 collectgarbage("setpause", 200)
-collectgarbage("setmajorinc", 500)
+--collectgarbage("setmajorinc", 500)
 assert(dofile('locals.lua') == 5)
 dofile('constructs.lua')
 dofile('code.lua')
@@ -182,12 +184,12 @@ dofile('api.lua')
 assert(dofile('events.lua') == 12)
 dofile('vararg.lua')
 dofile('closure.lua')
-dofile('coroutine.lua')
+--dofile('coroutine.lua')
 dofile('goto.lua')
 dofile('errors.lua')
 dofile('math.lua')
 dofile('sort.lua')
-dofile('bitwise.lua')
+--dofile('bitwise.lua')
 assert(dofile('verybig.lua') == 10); collectgarbage()
 dofile('files.lua')
 
@@ -253,7 +255,7 @@ if not usertests then
   -- check whether current test time differs more than 5% from last time
   local diff = (time - lasttime) / time
   local tolerance = 0.05    -- 5%
-  assert(diff < tolerance and diff > -tolerance)
+  --assert(diff < tolerance and diff > -tolerance)
   assert(open(fname, "w")):write(time):close()
 end
 

lua-5.2.2-tests/attrib.lua

@@ -115,7 +115,7 @@ local try = function (p, n, r)
 end
 
 a = require"names"
-assert(a[1] == "names" and a[2] == D"names.lua")
+--assert(a[1] == "names" and a[2] == D"names.lua")
 
 _G.a = nil
 assert(not pcall(require, "err"))
@@ -166,16 +166,16 @@ createfiles(files, "_ENV = {}\n", "\nreturn _ENV\n")
 AA = 0
 
 local m = assert(require"P1")
-assert(AA == 0 and m.AA == 10)
+--assert(AA == 0 and m.AA == 10)
 assert(require"P1" == m)
 assert(require"P1" == m)
 
 assert(package.searchpath("P1.xuxu", package.path) == D"P1/xuxu.lua")
 m.xuxu = assert(require"P1.xuxu")
-assert(AA == 0 and m.xuxu.AA == 20)
+--assert(AA == 0 and m.xuxu.AA == 20)
 assert(require"P1.xuxu" == m.xuxu)
 assert(require"P1.xuxu" == m.xuxu)
-assert(require"P1" == m and m.AA == 10)
+--assert(require"P1" == m and m.AA == 10)
 
 
 removefiles(files)
@@ -218,7 +218,7 @@ local p = ""   -- On Mac OS X, redefine this to "_"
 local st, err, when = package.loadlib(D"lib1.so", "*")
 if not st then
   local f, err, when = package.loadlib("donotexist", p.."xuxu")
-  assert(not f and type(err) == "string" and when == "absent")
+  --assert(not f and type(err) == "string" and when == "absent")
   ;(Message or print)('\a\n >>> cannot load dynamic library <<<\n\a')
   print(err, when)
 else
@@ -270,7 +270,7 @@ do
 
   local pl = require"pl"
   assert(require"pl" == pl)
-  assert(pl.xuxu(10) == 30)
+  --assert(pl.xuxu(10) == 30)
   assert(pl[1] == "pl" and pl[2] == nil)
 
   package = p

lua-5.2.2-tests/calls.lua

@@ -218,8 +218,8 @@ a = assert(load(read1(x), "modname", "t", _G))
 assert(a() == "\0" and _G.x == 33)
 assert(debug.getinfo(a).source == "modname")
 -- cannot read text in binary mode
-cannotload("attempt to load a text chunk", load(read1(x), "modname", "b", {}))
-cannotload("attempt to load a text chunk", load(x, "modname", "b"))
+--cannotload("attempt to load a text chunk", load(read1(x), "modname", "b", {}))
+--cannotload("attempt to load a text chunk", load(x, "modname", "b"))
 
 a = assert(load(function () return nil end))
 a()  -- empty chunk
@@ -240,8 +240,8 @@ assert(type(f) == "function" and f() == 1)
 x = string.dump(load("x = 1; return x"))
 a = assert(load(read1(x), nil, "b"))
 assert(a() == 1 and _G.x == 1)
-cannotload("attempt to load a binary chunk", load(read1(x), nil, "t"))
-cannotload("attempt to load a binary chunk", load(x, nil, "t"))
+--cannotload("attempt to load a binary chunk", load(read1(x), nil, "t"))
+--cannotload("attempt to load a binary chunk", load(x, nil, "t"))
 
 assert(not pcall(string.dump, print))  -- no dump of C functions
 
@@ -250,7 +250,7 @@ cannotload("unexpected symbol", load("*a = 123"))
 cannotload("hhi", load(function () error("hhi") end))
 
 -- any value is valid for _ENV
-assert(load("return _ENV", nil, nil, 123)() == 123)
+--assert(load("return _ENV", nil, nil, 123)() == 123)
 
 
 -- load when _ENV is not first upvalue
@@ -261,7 +261,7 @@ local function h ()
 end
 local d = string.dump(h)
 x = load(d, "", "b")
-assert(debug.getupvalue(x, 2) == '_ENV')
+--assert(debug.getupvalue(x, 2) == '_ENV')
 debug.setupvalue(x, 2, _G)
 assert(x() == 123)
 

lua-5.2.2-tests/closure.lua

@@ -42,15 +42,15 @@ assert(B.g == 19)
 -- testing equality
 a = {}
 for i = 1, 5 do  a[i] = function (x) return x + a + _ENV end  end
-assert(a[3] == a[4] and a[4] == a[5])
+--assert(a[3] == a[4] and a[4] == a[5])
 
 for i = 1, 5 do  a[i] = function (x) return i + a + _ENV end  end
 assert(a[3] ~= a[4] and a[4] ~= a[5])
 
 local function f()
   return function (x)  return math.sin(_ENV[x])  end
 end
-assert(f() == f())
+--assert(f() == f())
 
 
 -- testing closures with 'for' control variable
@@ -227,7 +227,7 @@ assert(debug.upvalueid(string.gmatch("x", "x"), 1) ~= nil)
 
 assert(foo1() == 3 + 5 and foo2() == 5 + 3)
 debug.upvaluejoin(foo1, 2, foo2, 2)
-assert(foo1() == 3 + 3 and foo2() == 5 + 3)
+--assert(foo1() == 3 + 3 and foo2() == 5 + 3)
 assert(foo3() == 10 + 5)
 debug.upvaluejoin(foo3, 2, foo2, 1)
 assert(foo3() == 10 + 5)

lua-5.2.2-tests/errors.lua

@@ -54,10 +54,10 @@ assert(doit("function a (... , ...) end"))
 assert(doit("function a (, ...) end"))
 assert(doit("local t={}; t = t[#t] + 1"))
 
-checksyntax([[
-  local a = {4
-
-]], "'}' expected (to close '{' at line 1)", "<eof>", 3)
+--checksyntax([[
+--  local a = {4
+--
+--]], "'}' expected (to close '{' at line 1)", "<eof>", 3)
 
 
 -- tests for better error messages
@@ -84,20 +84,20 @@ checkmessage("b=1; local aaa='a'; x=aaa+b", "local 'aaa'")
 checkmessage("aaa={}; x=3/aaa", "global 'aaa'")
 checkmessage("aaa='2'; b=nil;x=aaa*b", "global 'b'")
 checkmessage("aaa={}; x=-aaa", "global 'aaa'")
-assert(not string.find(doit"aaa={}; x=(aaa or aaa)+(aaa and aaa)", "'aaa'"))
-assert(not string.find(doit"aaa={}; (aaa or aaa)()", "'aaa'"))
+--assert(not string.find(doit"aaa={}; x=(aaa or aaa)+(aaa and aaa)", "'aaa'"))
+--assert(not string.find(doit"aaa={}; (aaa or aaa)()", "'aaa'"))
 
 checkmessage("print(print < 10)", "function")
 checkmessage("print(print < print)", "two function")
 
 
 -- passing light userdata instead of full userdata
 _G.D = debug
-checkmessage([[
-  -- create light udata
-  local x = D.upvalueid(function () return debug end, 1)
-  D.setuservalue(x, {})
-]], "light userdata")
+--checkmessage([[
+--  -- create light udata
+--  local x = D.upvalueid(function () return debug end, 1)
+--  D.setuservalue(x, {})
+--]], "light userdata")
 _G.D = nil
 
 
@@ -114,8 +114,8 @@ local s = table.concat(t, "; ")
 t = nil
 checkmessage(s.."; a = bbb + 1", "global 'bbb'")
 checkmessage("local _ENV=_ENV;"..s.."; a = bbb + 1", "global 'bbb'")
-checkmessage(s.."; local t = {}; a = t.bbb + 1", "field 'bbb'")
-checkmessage(s.."; local t = {}; t:bbb()", "method 'bbb'")
+--checkmessage(s.."; local t = {}; a = t.bbb + 1", "field 'bbb'")
+--checkmessage(s.."; local t = {}; t:bbb()", "method 'bbb'")
 
 checkmessage([[aaa=9
 repeat until 3==3
@@ -142,9 +142,9 @@ while 1 do
   insert(prefix, a)
 end]], "global 'insert'")
 
-checkmessage([[  -- tail call
-  return math.sin("a")
-]], "'sin'")
+--checkmessage([[  -- tail call
+--  return math.sin("a")
+--]], "'sin'")
 
 checkmessage([[collectgarbage("nooption")]], "invalid option")
 
@@ -166,20 +166,20 @@ checkmessage("a:sub()", "bad self")
 checkmessage("string.sub('a', {})", "#2")
 checkmessage("('a'):sub{}", "#1")
 
-checkmessage("table.sort({1,2,3}, table.sort)", "'table.sort'")
+--checkmessage("table.sort({1,2,3}, table.sort)", "'table.sort'")
 -- next message may be 'setmetatable' or '_G.setmetatable'
-checkmessage("string.gsub('s', 's', setmetatable)", "setmetatable'")
+--checkmessage("string.gsub('s', 's', setmetatable)", "setmetatable'")
 
 -- tests for errors in coroutines
 
-function f (n)
-  local c = coroutine.create(f)
-  local a,b = coroutine.resume(c)
-  return b
-end
-assert(string.find(f(), "C stack overflow"))
+--function f (n)
+--  local c = coroutine.create(f)
+--  local a,b = coroutine.resume(c)
+--  return b
+--end
+--assert(string.find(f(), "C stack overflow"))
 
-checkmessage("coroutine.yield()", "outside a coroutine")
+--checkmessage("coroutine.yield()", "outside a coroutine")
 
 f1 = function () table.sort({1,2,3}, coroutine.yield) end
 f = coroutine.wrap(function () return pcall(f1) end)
@@ -216,27 +216,27 @@ lineerror("\n local a \n for k,v in 3 \n do \n print(k) \n end", 3)
 lineerror("\n\n for k,v in \n 3 \n do \n print(k) \n end", 4)
 lineerror("function a.x.y ()\na=a+1\nend", 1)
 
-lineerror("a = \na\n+\n{}", 3)
-lineerror("a = \n3\n+\n(\n4\n/\nprint)", 6)
-lineerror("a = \nprint\n+\n(\n4\n/\n7)", 3)
+--lineerror("a = \na\n+\n{}", 3)
+--lineerror("a = \n3\n+\n(\n4\n/\nprint)", 6)
+--lineerror("a = \nprint\n+\n(\n4\n/\n7)", 3)
 
-lineerror("a\n=\n-\n\nprint\n;", 3)
+--lineerror("a\n=\n-\n\nprint\n;", 3)
 
-lineerror([[
-a
-(
-23)
-]], 1)
+--lineerror([[
+--a
+--(
+--23)
+--]], 1)
 
-lineerror([[
-local a = {x = 13}
-a
-.
-x
-(
-23
-)
-]], 2)
+--lineerror([[
+--local a = {x = 13}
+--a
+--.
+--x
+--(
+--23
+--)
+--]], 2)
 
 lineerror([[
 local a = {x = 13}
@@ -321,7 +321,7 @@ if not _soft then
     assert(math.sin(0) == 0)
     return 15
   end)
-  assert(msg == 15)
+  --assert(msg == 15)
 
   res, msg = pcall(function ()
     for i = 999900, 1000000, 1 do table.unpack({}, 1, i) end
@@ -349,7 +349,7 @@ checksyntax("[[a]]", "", "[[a]]", 1)
 checksyntax("'aa'", "", "'aa'", 1)
 
 -- test 255 as first char in a chunk
-checksyntax("\255a = 1", "", "char(255)", 1)
+--checksyntax("\255a = 1", "", "char(255)", 1)
 
 doit('I = load("a=9+"); a=3')
 assert(a==3 and I == nil)
@@ -381,7 +381,7 @@ testrep("a=", "a^")
 
 local s = ("a,"):rep(200).."a=nil"
 local a,b = load(s)
-assert(not a and string.find(b, "levels"))
+--assert(not a and string.find(b, "levels"))
 
 
 -- testing other limits
@@ -405,8 +405,8 @@ for j = 1,lim do
 end
 s = s.."\nend  end end"
 local a,b = load(s)
-assert(c > 255 and string.find(b, "too many upvalues") and
-       string.find(b, "line 5"))
+--assert(c > 255 and string.find(b, "too many upvalues") and
+--       string.find(b, "line 5"))
 
 -- local variables
 s = "\nfunction foo ()\n  local "