1 files changed, 0 insertions, 93 deletions
diff --git a/engines/sword25/util/pluto/puptest.lua b/engines/sword25/util/pluto/puptest.lua
deleted file mode 100644
index e5ccdd64bd..0000000000
--- a/engines/sword25/util/pluto/puptest.lua
+++ /dev/null
@@ -1,93 +0,0 @@
--- $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)