+++ /dev/null
--- Run all *.lua and *.mlua files in this directory.
--- This makes it easy to run all tests in the directory,
-
--{ extension 'xloop' }
-
-LS_COMMANDS = { "ls", "dir /b" }
-for i, cmd in ipairs(LS_COMMANDS) do
- local f = io.popen (cmd)
- ls = f :read '*a'
- f :close()
- if ls ~= '' then
- break
- elseif i == #LS_COMMANDS then
- error "Can't figure out how to list files on your OS"
- end
-end
-
-this_script = arg[1]
-
-local errors = {}
-
-for filename in ls :gmatch "[^\n]+" if filename ~= this_script and filename :strmatch "%.m?lua$" do
- printf ("*** running %s ***", filename)
- local ret = os.execute ("metalua "..filename)
- if ret ~= 0 then
- errors[#errors + 1] = "Test "..filename.." failed, returned "..ret
- end
-end
-
-if #errors > 0 then
- print("\n\n================================================================================")
- error(
- "TEST FAILURES DETECTED:\n" ..
- "-----------------------\n" ..
- " * " .. table.concat(errors, "\n * ")
- )
-end