issue #8 add 5.2.2 tests

lua-5.2.2-tests/all.lua

@@ -0,0 +1,259 @@
+#!../lua
+
+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
+end
+
+
+-- next variables control the execution of some tests
+-- true means no test (so an undefined variable does not skip a test)
+-- defaults are for Linux; test everything
+
+_soft = false      -- true to avoid long or memory consuming tests
+_port = false      -- true to avoid non-portable tests
+_no32 = false      -- true to avoid tests that assume 32 bits
+_nomsg = false     -- true to avoid messages about tests not performed
+_noposix = false   -- false assumes LUA_USE_POSIX
+_nolonglong = false  -- false assumes LUA_USE_LONGLONG
+_noformatA = false   -- false assumes LUA_USE_AFORMAT
+
+
+local usertests = rawget(_G, "_U")
+
+if usertests then
+  -- tests for sissies ;)  Avoid problems
+  _soft = true
+  _port = true
+  _no32 = true
+  _nomsg = true
+  _noposix = true
+  _nolonglong = true
+  _noformatA = true; 
+end
+
+-- no "internal" tests for user tests
+if usertests then T = nil end
+
+T = rawget(_G, "T")  -- avoid problems with 'strict' module
+
+package.path = "?;./?.lua" .. package.path
+
+math.randomseed(0)
+
+collectgarbage("setstepmul", 200)
+collectgarbage("setpause", 200)
+
+
+--[=[
+  example of a long [comment],
+  [[spanning several [lines]]]
+
+]=]
+
+print("current path:\n****" .. package.path .. "****\n")
+
+
+local c = os.clock()
+
+local collectgarbage = collectgarbage
+
+do   -- (
+
+-- track messages for tests not performed
+local msgs = {}
+function Message (m)
+  if not _nomsg then
+    print(m)
+    msgs[#msgs+1] = string.sub(m, 3, -3)
+  end
+end
+
+assert(os.setlocale"C")
+
+local T,print,format,write,assert,type,unpack,floor =
+      T,print,string.format,io.write,assert,type,table.unpack,math.floor
+
+-- use K for 1000 and M for 1000000 (not 2^10 -- 2^20)
+local function F (m)
+  local function round (m)
+    m = m + 0.04999
+    return m - (m % 0.1)     -- keep one decimal digit
+  end
+  if m < 1000 then return m
+  else
+    m = m / 1000
+    if m < 1000 then return round(m).."K"
+    else
+      return round(m/1000).."M"
+    end
+  end
+end
+
+local showmem
+if not T then
+  local max = 0
+  showmem = function ()
+    local m = collectgarbage("count") * 1024
+    max = (m > max) and m or max
+    print(format("    ---- total memory: %s, max memory: %s ----\n",
+          F(m), F(max)))
+  end
+else
+  showmem = function ()
+    T.checkmemory()
+    local total, numblocks, maxmem = T.totalmem()
+    local count = collectgarbage("count")
+    print(format(
+      "\n    ---- total memory: %s (%.0fK), max use: %s,  blocks: %d\n",
+      F(total), count, F(maxmem), numblocks))
+    print(format("\t(strings:  %d, tables: %d, functions: %d, "..
+                 "\n\tudata: %d, threads: %d)",
+                 T.totalmem"string", T.totalmem"table", T.totalmem"function",
+                 T.totalmem"userdata", T.totalmem"thread"))
+  end
+end
+
+
+--
+-- redefine dofile to run files through dump/undump
+--
+local function report (n) print("\n***** FILE '"..n.."'*****") end
+local olddofile = dofile
+dofile = function (n)
+  showmem()
+  report(n)
+  local f = assert(loadfile(n))
+  local b = string.dump(f)
+  f = assert(load(b))
+  return f()
+end
+
+dofile('main.lua')
+
+do
+  local next, setmetatable, stderr = next, setmetatable, io.stderr
+  local mt = {}
+  -- each time a table is collected, create a new one to be
+  -- collected next cycle
+  mt.__gc = function (o)
+    stderr:write'.'    -- mark progress
+    local n = setmetatable({}, mt)   -- replicate object
+    o = nil
+    local a,b,c,d,e = nil    -- erase 'o' from the stack
+  end
+  local n = setmetatable({}, mt)   -- replicate object
+end
+
+report"gc.lua"
+local f = assert(loadfile('gc.lua'))
+f()
+
+collectgarbage("generational")
+dofile('db.lua')
+assert(dofile('calls.lua') == deep and deep)
+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')
+dofile('constructs.lua')
+dofile('api.lua')
+
+collectgarbage("generational")   -- back to generational mode
+collectgarbage("setpause", 200)
+collectgarbage("setmajorinc", 500)
+assert(dofile('locals.lua') == 5)
+dofile('constructs.lua')
+dofile('code.lua')
+if not _G._soft then
+  report('big.lua')
+  local f = coroutine.wrap(assert(loadfile('big.lua')))
+  assert(f() == 'b')
+  assert(f() == 'a')
+end
+dofile('nextvar.lua')
+dofile('pm.lua')
+dofile('api.lua')
+assert(dofile('events.lua') == 12)
+dofile('vararg.lua')
+dofile('closure.lua')
+dofile('coroutine.lua')
+dofile('goto.lua')
+dofile('errors.lua')
+dofile('math.lua')
+dofile('sort.lua')
+dofile('bitwise.lua')
+assert(dofile('verybig.lua') == 10); collectgarbage()
+dofile('files.lua')
+
+if #msgs > 0 then
+  print("\ntests not performed:")
+  for i=1,#msgs do
+    print(msgs[i])
+  end
+  print()
+end
+
+print("final OK !!!")
+
+local debug = require "debug"
+
+debug.sethook(function (a) assert(type(a) == 'string') end, "cr")
+
+-- to survive outside block
+_G.showmem = showmem
+
+end   --)
+
+local _G, showmem, print, format, clock, assert, open =
+      _G, showmem, print, string.format, os.clock, assert, io.open
+
+-- file with time of last performed test
+local fname = T and "time-debug.txt" or "time.txt"
+local lasttime
+
+if not usertests then
+  -- open file with time of last performed test
+  local f = io.open(fname)
+  if f then
+    lasttime = assert(tonumber(f:read'*a'))
+    f:close();
+  else   -- no such file; assume it is recording time for first time
+    lasttime = nil
+  end
+end
+
+-- erase (almost) all globals
+print('cleaning all!!!!')
+for n in pairs(_G) do
+  if not ({___Glob = 1, tostring = 1})[n] then
+    _G[n] = nil
+  end
+end
+
+
+collectgarbage()
+collectgarbage()
+collectgarbage()
+collectgarbage()
+collectgarbage()
+collectgarbage();showmem()
+
+local time = clock() - c
+
+print(format("\n\ntotal time: %.2f\n", time))
+
+if not usertests then
+  lasttime = lasttime or time    -- if there is no last time, ignore difference
+  -- 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(open(fname, "w")):write(time):close()
+end
+