Add tests for pcall, add error() builtin, fix assert(), error levels.

src/test/res/compile.sh

@@ -1,6 +1,5 @@
 #!/bin/bash
 TESTS=`echo *.lua`
-TESTS="test3.lua"
 for x in $TESTS
 do
     echo compiling $x

src/test/res/pcalls.lua

@@ -0,0 +1,36 @@
+
+-- sample lua function that returns values in reverse order
+local function lc(a,b,c)
+	return c,b,a
+end
+
+-- sample lua function that throws a lua error
+local function le(a,b,c)
+	error( 'sample error', 0 )
+end
+
+-- function that does a plain call to the underlying function
+local function cp(f,a,b,c)
+	global = f(a,b,c)
+	return global
+end
+
+-- function that does a tail call to the underlying function
+local function ct(f,a,b,c)
+	return f(a,b,c)
+end
+
+-- lua calls
+print( 'lc(22,33,44)', lc(22,33,44) )
+print( 'pcall(lc,22,33,44)', pcall(lc,22,33,44) )
+print( 'pcall(le,22,33,44)', pcall(le,22,33,44) )
+print( 'cp(lc,22,33,44)', cp(lc,22,33,44) )
+print( 'pcall(cp,lc,22,33,44)', pcall(cp,lc,22,33,44) )
+print( 'pcall(cp,le,22,33,44)', pcall(cp,le,22,33,44) )
+print( 'ct(lc,22,33,44)', ct(lc,22,33,44) )
+print( 'pcall(ct,lc,22,33,44)', pcall(ct,lc,22,33,44) )
+print( 'pcall(ct,le,22,33,44)', pcall(ct,le,22,33,44) )
+
+print( "assert(true,'a','b','c')", assert( true, 'a', 'b', 'c' ) )
+print( "pcall(assert,true,'a','b','c')", pcall(assert, true, 'a', 'b', 'c' ) )
+print( "pcall(assert,false,'a','b','c')", pcall(assert, false, 'a', 'b', 'c' ) )