compat53/tests/test.lua

32     print(sep)
48   print("testing Lua API using `compat53.module` ...")
52   print("testing Lua API using `compat53` ...")
59   print("assert", F(pcall(assert, false)))
60   print("assert", F(pcall(assert, false, nil)))
61   print("assert", F(pcall(assert, false, "error msg")))
62   print("assert", F(pcall(assert, nil, {})))
63   print("assert", F(pcall(assert, 1, 2, 3)))
71     print("ipairs", i, v)
79   print("table.concat", table.concat(p))
80   print("table.concat", table.concat(p, ",", 2))
81   print("table.concat", table.concat(p, ".", 1, 2))
82   print("table.concat", table.concat(t))
83   print("table.concat", table.concat(t, ",", 2))
84   print("table.concat", table.concat(t, ".", 1, 2))
92   print("table.insert", next(p), t[4])
94   print("table.insert", next(p),  t[1], t[2])
96   print("table.insert", next(p), t[1], t[2], p[3])
99   print("table.insert", t[1], t[2], t[3], t[4])
101   print("table.insert", t[1], t[2], t[3], t[4], t[5])
103   print("table.insert", t[1], t[2], t[3], t[4], t[5])
112   print("table.move", next(pd), d[1], d[2], d[3], d[4])
115   print("table.move", next(pd), d[1], d[2], d[3], d[4])
118   print("table.move", next(pd), d[1], d[2], d[3], d[4], d[5])
120   print("table.move", next(ps), s[1], s[2], s[3], s[4])
123   print("table.move", next(ps), s[1], s[2], s[3], s[4], s[5])
127   print("table.move", d[1], d[2], d[3], d[4])
130   print("table.move", d[1], d[2], d[3], d[4])
133   print("table.move", d[1], d[2], d[3], d[4], d[5])
135   print("table.move", s[1], s[2], s[3], s[4])
138   print("table.move", s[1], s[2], s[3], s[4], s[5])
145   print("table.remove", table.remove(p))
146   print("table.remove", next(p), t[1], t[2], t[3], t[4], t[5])
147   print("table.remove", table.remove(p, 1))
148   print("table.remove", next(p), t[1], t[2], t[3], t[4])
149   print("table.remove", table.remove(p, 2))
150   print("table.remove", next(p), t[1], t[2], t[3])
151   print("table.remove", table.remove(p, 3))
152   print("table.remove", next(p), t[1], t[2], t[3])
154   print("table.remove", table.remove(p))
155   print("table.remove", next(p), next(t))
157   print("table.remove", table.remove(t))
158   print("table.remove", t[1], t[2], t[3], t[4], t[5])
159   print("table.remove", table.remove(t, 1))
160   print("table.remove", t[1], t[2], t[3], t[4])
161   print("table.remove", table.remove(t, 2))
162   print("table.remove", t[1], t[2], t[3])
163   print("table.remove", table.remove(t, 3))
164   print("table.remove", t[1], t[2], t[3])
166   print("table.remove", table.remove(t))
167   print("table.remove", next(t))
174   print("table.sort", next(p))
176     print("table.sort", i, v)
179   print("table.sort", next(p))
181     print("table.sort", i, v)
185   print("table.sort", next(p))
187     print("table.sort", i, v)
190   print("table.sort", next(p))
192     print("table.sort", i, v)
195   print("table.sort", next(p))
197     print("table.sort", i, v)
202     print("table.sort", i, v)
206     print("table.sort", i, v)
214   print("table.unpack", table.unpack(p))
215   print("table.unpack", table.unpack(p, 2))
216   print("table.unpack", table.unpack(p, 1, 2))
217   print("table.unpack", table.unpack(t))
218   print("table.unpack", table.unpack(t, 2))
219   print("table.unpack", table.unpack(t, 1, 2))
224 print("math.maxinteger", math.maxinteger+1 > math.maxinteger)
225 print("math.mininteger", math.mininteger-1 < math.mininteger)
229 print("math.tointeger", math.tointeger(0))
230 print("math.tointeger", math.tointeger(math.pi))
231 print("math.tointeger", math.tointeger("hello"))
232 print("math.tointeger", math.tointeger(math.maxinteger+2.0))
233 print("math.tointeger", math.tointeger(math.mininteger*2.0))
237 print("math.type", math.type(0))
238 print("math.type", math.type(math.pi))
239 print("math.type", math.type("hello"))
243 print("math.ult", math.ult(1, 2), math.ult(2, 1))
244 print("math.ult", math.ult(-1, 2), math.ult(2, -1))
245 print("math.ult", math.ult(-1, -2), math.ult(-2, -1))
246 print("math.ult", pcall(math.ult, "x", 2))
247 print("math.ult", pcall(math.ult, 1, 2.1))
259     print("utf8.codes", unpack(ps))
260     print("utf8.codes", unpack(cs))
261     print("utf8.codepoint", unpack(t))
262     print("utf8.len", utf8.len(s), #t, #s)
263     print("utf8.char", utf8.char(unpack(t)))
269   print("utf8.offset", utf8.offset(s, 1, 1))
270   print("utf8.offset", utf8.offset(s, 2, 1))
271   print("utf8.offset", utf8.offset(s, 3, 1))
272   print("utf8.offset", pcall(utf8.offset, s, 3, 2))
273   print("utf8.offset", utf8.offset(s, 3, 3))
274   print("utf8.offset", utf8.offset(s, -1, 7))
275   print("utf8.offset", utf8.offset(s, -2, 7))
276   print("utf8.offset", utf8.offset(s, -3, 7))
277   print("utf8.offset", utf8.offset(s, -1))
280   print("XXX: utf8 module not available")
287   print("string.unpack", string.unpack(format, s))
290   print("XXX: string packing not available")
294 print("testing Lua API for Lua 5.1 ...")
297 print("debug.getuservalue()", F(debug.getuservalue(false)))
298 print("debug.setuservalue()", pcall(function()
301 print("debug.setmetatable()", F(debug.setmetatable({}, {})))
310       print("pairs()", k, v)
319    print("load()", pcall(function() load(true) end))
320    print("load()", F(load(badcode)))
321    print("load()", F(load(code)))
322    print("load()", F(load(code, "[L]")))
323    print("load()", F(load(code, "[L]", "b")))
324    print("load()", F(load(code, "[L]", "t")))
325    print("load()", F(load(code, "[L]", "bt")))
327    print("load()", pcall(f))
328    f = load(code, "[L]", "bt", { print = noprint })
329    print("load()", pcall(f))
331    print("load()", F(load(bytecode)))
332    print("load()", F(load(bytecode, "[L]")))
333    print("load()", F(load(bytecode, "[L]", "b")))
334    print("load()", F(load(bytecode, "[L]", "t")))
335    print("load()", F(load(bytecode, "[L]", "bt")))
337    print("load()", pcall(f))
338    f = load(bytecode, "[L]", "bt", { print = noprint })
339    print("load()", pcall(f))
349    print("load()", F(load(make_loader(badcode))))
350    print("load()", F(load(make_loader(code))))
351    print("load()", F(load(make_loader(code), "[L]")))
352    print("load()", F(load(make_loader(code), "[L]", "b")))
353    print("load()", F(load(make_loader(code), "[L]", "t")))
354    print("load()", F(load(make_loader(code), "[L]", "bt")))
356    print("load()", pcall(f))
357    f = load(make_loader(code), "[L]", "bt", { print = noprint })
358    print("load()", pcall(f))
359    print("load()", F(load(make_loader(bytecode))))
360    print("load()", F(load(make_loader(bytecode), "[L]")))
361    print("load()", F(load(make_loader(bytecode), "[L]", "b")))
362    print("load()", F(load(make_loader(bytecode), "[L]", "t")))
363    print("load()", F(load(make_loader(bytecode), "[L]", "bt")))
365    print("load()", pcall(f))
366    f = load(make_loader(bytecode), "[L]", "bt", { print = noprint })
367    print("load()", pcall(f))
371    print("loadfile()", F(loadfile("bad.lua")))
372    print("loadfile()", F(loadfile("good.lua")))
373    print("loadfile()", F(loadfile("good.lua", "b")))
374    print("loadfile()", F(loadfile("good.lua", "t")))
375    print("loadfile()", F(loadfile("good.lua", "bt")))
377    print("loadfile()", pcall(f))
378    f = loadfile("good.lua", "bt", { print = noprint })
379    print("loadfile()", pcall(f))
380    print("loadfile()", F(loadfile("good.luac")))
381    print("loadfile()", F(loadfile("good.luac", "b")))
382    print("loadfile()", F(loadfile("good.luac", "t")))
383    print("loadfile()", F(loadfile("good.luac", "bt")))
385    print("loadfile()", pcall(f))
386    f = loadfile("good.luac", "bt", { print = noprint })
387    print("loadfile()", pcall(f))
404    print("xpcall()", xpcall(func, debug.traceback, false))
405    print("xpcall()", xpcall(func, debug.traceback, true))
406    print("xpcall()", xpcall(func, tb, true))
409        print("xpcall()", xpcall(cb, debug.traceback, "str"))
412        print("pcall()", pcall(cb, "str"))
419      print("xpcall()", c(cb))
420      print("xpcall()", c())
422      print("pcall()", c(cb))
423      print("pcall()", c())
431    print("rawlen()", rawlen(t), rawlen("123"))
436 print("os.execute()", os.execute("exit 1"))
438 print("os.execute()", os.execute("echo 'hello world!'"))
440 print("os.execute()", os.execute("no_such_file"))
446    print("table.(un)pack()", t.n, table.unpack(t, 1, t.n))
452    print("coroutine.running()", F(coroutine.wrap(function()
455    print("coroutine.running()", F(coroutine.running()))
459      print("coroutine.yield()", pcall(function()
463    print("coroutine.yield()", coroutine.wrap(function()
466    print("coroutine.resume()", coroutine.resume(main_co, 1, 2, 3))
468       print("coroutine.resume()", a, b, c)
471    print("coroutine.resume()", coroutine.resume(co1, 1, 2, 3))
473       print("coroutine.status()", "[co1] main is", coroutine.status(main_co))
474       print("coroutine.status()", "[co1] co2 is", coroutine.status(co2))
477       print("coroutine.status()", "[co2] main is", coroutine.status(main_co))
478       print("coroutine.status()", "[co2] co2 is", coroutine.status(co2))
482    print("coroutine.status()", coroutine.status(main_co))
483    print("coroutine.status()", coroutine.status(co2))
485    print("coroutine.status()", F(coroutine.status(co2)))
487    print("coroutine.status()", F(coroutine.status(co2)))
492 print("math.log()", math.log(1000))
493 print("math.log()", math.log(1000, 10))
499    print(prefix, package.searchpath("no.such.module", path))
500    print(prefix, package.searchpath("no.such.module", ""))
501    print(prefix, package.searchpath("compat53", path))
502    print(prefix, package.searchpath("no:such:module", path, ":", "|"))
511          print("package.searchers", "my.module found")
517          print("package.searchers", "my.module found 2")
535    print("string.find()", string.find("abc\0abc\0abc", "[^a\0]+"))
536    print("string.find()", string.find("abc\0abc\0abc", "%w+\0", 5))
538       print("string.gmatch()", x)
541       print("string.gmatch()", #x)
543    print("string.gsub()", string.gsub("abc\0def\0ghi", "[\0]", "X"))
544    print("string.gsub()", string.gsub("abc\0def\0ghi", "%w*\0", "X"))
545    print("string.gsub()", string.gsub("abc\0def\0ghi", "%A", "X"))
546    print("string.match()", string.match("abc\0abc\0abc", "([^\0a]+)"))
547    print("string.match()", #string.match("abc\0abc\0abc", ".*\0"))
548    print("string.rep()", string.rep("a", 0))
549    print("string.rep()", string.rep("b", 1))
550    print("string.rep()", string.rep("c", 4))
551    print("string.rep()", string.rep("a", 0, "|"))
552    print("string.rep()", string.rep("b", 1, "|"))
553    print("string.rep()", string.rep("c", 4, "|"))
562    print("string.format()", string.format("%q", "\"\\\0000\0010\002\r\n0\t0\""))
563    print("string.format()", string.format("%12.3fx%%sxx%.6s", 3.1, {}))
564    print("string.format()", string.format("%-3f %%%s %%s", 3.1, true))
565    print("string.format()", string.format("% 3.2g %%d %%%s", 3.1, nil))
566    print("string.format()", string.format("%+3d %%d %%%%%10.6s", 3, io.stdout))
567    print("string.format()", pcall(function()
568       print("string.format()", string.format("%d %%s", {}))
576    print("io.write()", io.type(io.write("hello world\n")))
578    print("file:write()", io.type(f:write("hello world\n")))
587    print("io.read()", io.read("*n", "*number", "*l", "*a"))
589    print("io.read()", io.read("n", "number", "l", "a"))
593      print("file:read()", f:read("*n", "*number", "*l", "*a"))
596      print("file:read()", f:read("n", "number", "l", "a"))
607       print("io.lines()", a, b)
611       print("io.lines()", l)
615       print("io.lines()", n1, n2, rest)
618       print("io.lines()", l)
620    print("io.lines()", pcall(function()
621       for l in io.lines("data.txt", "*x") do print(l) end
623    print("io.lines()", pcall(function()
624       for l in io.lines("no_such_file.txt") do print(l) end
629         print("file:lines()", a, b)
635         print("file:lines()", n1, n2, rest)
640         print("file:lines()", l)
643      print("file:lines()", pcall(function()
644         for l in f:lines() do print(l) end
646      print("file:lines()", pcall(function()
648         for l in f:lines("*l", "*x") do print(l) end
657 print("testing C API ...")
660 print("isinteger", mod.isinteger(1))
661 print("isinteger", mod.isinteger(0))
662 print("isinteger", mod.isinteger(1234567))
663 print("isinteger", mod.isinteger(12.3))
664 print("isinteger", mod.isinteger(math.huge))
665 print("isinteger", mod.isinteger(math.sqrt(-1)))
668 print("rotate", mod.rotate(1, 1, 2, 3, 4, 5, 6))
669 print("rotate", mod.rotate(-1, 1, 2, 3, 4, 5, 6))
670 print("rotate", mod.rotate(4, 1, 2, 3, 4, 5, 6))
671 print("rotate", mod.rotate(-4, 1, 2, 3, 4, 5, 6))
674 print("strtonum", mod.strtonum("+123"))
675 print("strtonum", mod.strtonum(" 123 "))
676 print("strtonum", mod.strtonum("-1.23"))
677 print("strtonum", mod.strtonum(" 123 abc"))
678 print("strtonum", mod.strtonum("jkl"))
682 print("requiref", type(a), type(b), type(c),
689   print("getextraspace", mod.extraspace())
691   print("getextraspace", mod.extraspace())
693   print("getextraspace", mod.extraspace())
697 print("getextraspace", mod.extraspace())
700   print("getextraspace", mod.extraspace())
702   print("getextraspace", mod.extraspace())
704   print("getextraspace", mod.extraspace())
706   print("getextraspace", mod.extraspace())
709 print("getextraspace", mod.extraspace())
717 print("geti/seti", rawget(proxy, 1), rawget(backend, 1))
718 print("geti/seti", mod.getseti(proxy, 1))
719 print("geti/seti", rawget(proxy, 1), rawget(backend, 1))
720 print("geti/seti", mod.getseti(proxy, 1))
721 print("geti/seti", rawget(proxy, 1), rawget(backend, 1))
725 print("tonumber", mod.tonumber(12))
726 print("tonumber", mod.tonumber("12"))
727 print("tonumber", mod.tonumber("0"))
728 print("tonumber", mod.tonumber(false))
729 print("tonumber", mod.tonumber("error"))
732 print("tointeger", mod.tointeger(12))
733 print("tointeger", mod.tointeger(12))
734 print("tointeger", mod.tointeger(12.1))
735 print("tointeger", mod.tointeger(12.9))
736 print("tointeger", mod.tointeger(-12.1))
737 print("tointeger", mod.tointeger(-12.9))
738 print("tointeger", mod.tointeger("12"))
739 print("tointeger", mod.tointeger("0"))
740 print("tointeger", mod.tointeger(math.pi))
741 print("tointeger", mod.tointeger(false))
742 print("tointeger", mod.tointeger("error"))
745 print("len", mod.len("123"))
746 print("len", mod.len({ 1, 2, 3}))
747 print("len", pcall(mod.len, true))
750 print("len", mod.len(ud))
752 print("len", pcall(mod.len, ud))
755 print("copy", mod.copy(true, "string", {}, 1))
758 print("rawgetp/rawsetp", mod.rawxetp())
759 print("rawgetp/rawsetp", mod.rawxetp("I'm back"))
762 print("globals", F(mod.globals()), mod.globals() == _G)
766 print("getsubtable", F(mod.subtable(t)))
768 print("getsubtable", F(x, msg, x == t.xxx))
771 print("udata", F(mod.udata()))
772 print("udata", mod.udata("nosuchtype"))
775 print("uservalue", F(mod.uservalue()))
778 print("upvalues", mod.getupvalues())
781 print("absindex", mod.absindex("hi", true))
784 print("arith", mod.arith(2, 1))
785 print("arith", mod.arith(3, 5))
788 print("compare", mod.compare(1, 1))
789 print("compare", mod.compare(2, 1))
790 print("compare", mod.compare(1, 2))
793 print("tolstring", mod.tolstring("string"))
797 print("tolstring", mod.tolstring(t))
801 print("tolstring", pcall(mod.tolstring, t))
804 print("tolstring", mod.tolstring(ud):gsub(":.*$", ": yyy"))
807 print("pushstring", mod.pushstring())
810 print("Buffer", mod.buffer())
813 print("execresult", mod.exec("exit 0"))
814 print("execresult", mod.exec("exit 1"))
815 print("execresult", mod.exec("exit 25"))
826       print("loadbufferx", m, i, F(mod.loadstring(c, m)))
839       print("loadfilex", m, i, F(mod.loadfile(c, m)))