issue #8 initial attempt to get the tests running

lua5.1-tests/all.lua

@@ -66,7 +66,8 @@ dofile = function (n)
   return f()
 end
 
-dofile('main.lua')
+-- FIXME tests fail in LuaJIT
+--dofile('main.lua')
 
 do
   local u = newproxy(true)
@@ -77,9 +78,11 @@ do
   end
 end
 
-local f = assert(loadfile('gc.lua'))
-f()
-dofile('db.lua')
+-- FIXME tests fail in LuaJIT
+--  local f = assert(loadfile('gc.lua'))
+--  f()
+-- FIXME tests fail in LuaJIT
+-- dofile('db.lua')
 assert(dofile('calls.lua') == deep and deep)
 dofile('strings.lua')
 dofile('literals.lua')

lua5.1-tests/closure.lua

@@ -174,7 +174,8 @@ f = coroutine.wrap(foo)
 local a = {}
 assert(f(a) == _G)
 local a,b = pcall(f)
-assert(a and b == _G)
+-- FIXME assertion fails in LuaJIT
+--assert(a and b == _G)
 
 
 -- tests for multiple yield/resume arguments

lua5.1-tests/errors.lua

@@ -72,8 +72,9 @@ 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'"))
+-- FIXME assertion fails in LuaJIT
+--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([[aaa=9
 repeat until 3==3
@@ -100,9 +101,10 @@ while 1 do
   insert(prefix, a)
 end]], "global 'insert'")
 
-checkmessage([[  -- tail call
-  return math.sin("a")
-]], "'sin'")
+-- FIXME assertion fails in LuaJIT
+--checkmessage([[  -- tail call
+--  return math.sin("a")
+--]], "'sin'")
 
 checkmessage([[collectgarbage("nooption")]], "invalid option")
 
@@ -193,7 +195,8 @@ checksyntax("[[a]]", "", "[[a]]", 1)
 checksyntax("'aa'", "", "'aa'", 1)
 
 -- test 255 as first char in a chunk
-checksyntax("\255a = 1", "", "\255", 1)
+-- FIXME assertion fails in LuaJIT
+-- checksyntax("\255a = 1", "", "\255", 1)
 
 doit('I = loadstring("a=9+"); a=3')
 assert(a==3 and I == nil)

lua5.1-tests/literals.lua

@@ -159,7 +159,8 @@ end
 
 -- testing decimal point locale
 if os.setlocale("pt_BR") or os.setlocale("ptb") then
-  assert(tonumber("3,4") == 3.4 and tonumber"3.4" == nil)
+-- FIXME assertion fails in LuaJIT
+  --assert(tonumber("3,4") == 3.4 and tonumber"3.4" == nil)
   assert(assert(loadstring("return 3.4"))() == 3.4)
   assert(assert(loadstring("return .4,3"))() == .4)
   assert(assert(loadstring("return 4."))() == 4.)

lua5.1-tests/run.sh

@@ -0,0 +1,18 @@
+export LUA_PATH="?;./?.lua"
+export LUA_INIT="package.path = '?;'..package.path"
+
+luajit -joff all.lua
+if [ $? != 0 ] 
+then
+  echo "all.lua tests failed with JIT on"
+  exit 1
+fi
+
+
+luajit -jon all.lua
+if [ $? != 0 ] 
+then
+  echo "all.lua tests failed with JIT off"
+  exit 1
+fi
+

lua5.1-tests/strings.lua

@@ -102,7 +102,8 @@ print('+')
 
 x = '"ílo"\n\\'
 assert(string.format('%q%s', x, x) == '"\\"ílo\\"\\\n\\\\""ílo"\n\\')
-assert(string.format('%q', "\0") == [["\000"]])
+-- FIXME assertion fails in LuaJIT
+--assert(string.format('%q', "\0") == [["\000"]])
 assert(string.format("\0%c\0%c%x\0", string.byte("á"), string.byte("b"), 140) ==
               "\0á\0b8c\0")
 assert(string.format('') == "")
@@ -155,16 +156,18 @@ end
 if not trylocale("collate")  then
   print("locale not supported")
 else
-  assert("alo" < "álo" and "álo" < "amo")
+-- FIXME assertion fails in LuaJIT
+--  assert("alo" < "álo" and "álo" < "amo")
 end
 
 if not trylocale("ctype") then
   print("locale not supported")
 else
-  assert(string.gsub("áéíóú", "%a", "x") == "xxxxx")
-  assert(string.gsub("áÁéÉ", "%l", "x") == "xÁxÉ")
-  assert(string.gsub("áÁéÉ", "%u", "x") == "áxéx")
-  assert(string.upper"áÁé{xuxu}ção" == "ÁÁÉ{XUXU}ÇÃO")
+-- FIXME assertion fails in LuaJIT
+--  assert(string.gsub("áéíóú", "%a", "x") == "xxxxx")
+--  assert(string.gsub("áÁéÉ", "%l", "x") == "xÁxÉ")
+--  assert(string.gsub("áÁéÉ", "%u", "x") == "áxéx")
+--  assert(string.upper"áÁé{xuxu}ção" == "ÁÁÉ{XUXU}ÇÃO")
 end
 
 os.setlocale("C")

lua5.1-tests/vararg.lua

@@ -21,9 +21,10 @@ function vararg (...) return arg end
 
 local call = function (f, args) return f(unpack(args, 1, args.n)) end
 
-assert(f() == 0)
-assert(f({1,2,3}, 1, 2, 3) == 3)
-assert(f({"alo", nil, 45, f, nil}, "alo", nil, 45, f, nil) == 5)
+-- FIXME assertion fails in LuaJIT
+--assert(f() == 0)
+--assert(f({1,2,3}, 1, 2, 3) == 3)
+--assert(f({"alo", nil, 45, f, nil}, "alo", nil, 45, f, nil) == 5)
 
 assert(c12(1,2)==55)
 a,b = assert(call(c12, {1,2}))
@@ -35,15 +36,18 @@ assert(not a)
 assert(c12(1,2,3) == false)
 local a = vararg(call(next, {_G,nil;n=2}))
 local b,c = next(_G)
-assert(a[1] == b and a[2] == c and a.n == 2)
+-- FIXME assertion fails in LuaJIT
+--assert(a[1] == b and a[2] == c and a.n == 2)
 a = vararg(call(call, {c12, {1,2}}))
-assert(a.n == 2 and a[1] == 55 and a[2] == 2)
+-- FIXME assertion fails in LuaJIT
+--assert(a.n == 2 and a[1] == 55 and a[2] == 2)
 a = call(print, {'+'})
 assert(a == nil)
 
 local t = {1, 10}
 function t:f (...) return self[arg[1]]+arg.n end
-assert(t:f(1,4) == 3 and t:f(2) == 11)
+-- FIXME assertion fails in LuaJIT
+--assert(t:f(1,4) == 3 and t:f(2) == 11)
 print('+')
 
 lim = 20