1 files changed, 93 insertions, 0 deletions
diff --git a/engines/sword25/util/pluto/puptest.lua b/engines/sword25/util/pluto/puptest.lua
new file mode 100755
index 0000000000..e5ccdd64bd
--- /dev/null
+++ b/engines/sword25/util/pluto/puptest.lua
@@ -0,0 +1,93 @@
+-- $Id$
+
+require "pluto"
+
+permtable = { 1234 } 
+
+perms = { [1] = coroutine.yield, [2] = permtable }
+
+function testcounter(counter)
+	local a = counter.cur()
+	counter.inc()
+	return counter.cur() == a+1
+end
+
+function testuvinthread(func)
+	local success, result = coroutine.resume(func)
+	return success and result == 5
+end
+
+
+function test(rootobj)
+	local passed = 0
+	local total = 0
+	local dotest = function(name,cond)
+		total = total+1
+		if cond then
+			print(name, "  PASSED")
+			passed = passed + 1
+		else
+			print(name, "* FAILED")
+		end
+	end
+
+		
+	dotest("Boolean FALSE        ", rootobj.testfalse == false)
+	dotest("Boolean TRUE         ", rootobj.testtrue == true)
+	dotest("Number 7             ", rootobj.testseven == 7)
+	dotest("String 'foobar'      ", rootobj.testfoobar == "foobar")
+	dotest("Func returning 4     ", rootobj.testfuncreturnsfour() == 4)
+	dotest("Nil value            ", rootobj.testnil == nil)
+	dotest("Thread resume        ", coroutine.resume(rootobj.testthread) == true,14)
+	dotest("Table                ", rootobj.testtbl.a == 2 and rootobj.testtbl[2] == 4);
+	dotest("Permanent table      ", rootobj.testperm == permtable)
+	dotest("Table metatable      ", rootobj.testmt() == 21)
+	dotest("Function env         ", rootobj.testfenv() == 456)
+	dotest("Lua closure          ", rootobj.testclosure() == 11)
+	dotest("Nil in closure       ", rootobj.testnilclosure() == nil)
+	dotest("Nested func          ", rootobj.testnest(1) == 6)
+	dotest("Light userdata       ", checkludata(rootobj.testludata))
+	dotest("Looped tables        ", 
+		rootobj.testlooptable.testloopb.testloopa == 
+		rootobj.testlooptable)
+	dotest("Shared reference     ", rootobj.testsharedrefa.sharedref ==
+		rootobj.testsharedrefb.sharedref)
+	dotest("Identical tables     ", rootobj.testsharedrefa ~= 
+		rootobj.testsharedrefb)
+	dotest("Table special persist", rootobj.testsptable.a == 6)
+	dotest("Udata literal persist", 
+		unboxinteger(rootobj.testliteraludata) == 71)
+	dotest("Udata special persist", 
+		unboxboolean(rootobj.testspudata1) == true and
+		unboxboolean(rootobj.testspudata2) == false)
+	dotest("Shared upvalues      ",
+		testcounter(rootobj.testsharedupval))
+	dotest("Open upvalues        ", 
+		testuvinthread(rootobj.testuvinthread))
+	dotest("Upvalue cycles       ", 
+		rootobj.testuvcycle()[1] == rootobj.testuvcycle()[2])
+	dotest("__newindex metamethod", rootobj.testniinmt.a == 3)
+	dotest("Debug info           ", (rootobj.testdebuginfo(2)) == "foo")
+	print()
+	if passed == total then
+		print("All tests passed.")
+	else
+		print(passed .. "/" .. total .. " tests passed.")
+	end
+end
+
+infile, err = io.open("test.plh", "rb")
+if infile == nil then
+	error("While opening: " .. (err or "no error"))
+end
+
+buf, err = infile:read("*a")
+if buf == nil then
+	error("While reading: " .. (err or "no error"))
+end
+
+infile:close()
+
+rootobj = pluto.unpersist(perms, buf)
+
+test(rootobj)