From ecf56c157cadab062a884aa6ad667daf6e792b8b Mon Sep 17 00:00:00 2001
From: James Roseborough <james.roseborough@luaj.org>
Date: Fri, 18 Apr 2008 18:26:25 +0000
Subject: [PATCH] extend vm test

---
 src/test/java/org/luaj/vm/LuaStateTest.java | 37 +++++++++++++++++++++
 1 file changed, 37 insertions(+)

diff --git a/src/test/java/org/luaj/vm/LuaStateTest.java b/src/test/java/org/luaj/vm/LuaStateTest.java
index defbe177..8fba15fd 100644
--- a/src/test/java/org/luaj/vm/LuaStateTest.java
+++ b/src/test/java/org/luaj/vm/LuaStateTest.java
@@ -22,4 +22,41 @@ public class LuaStateTest extends TestCase {
 		assertEquals( LNil.NIL, vm.topointer(1) );
 		assertEquals( LNil.NIL, vm.topointer(-1) );
 	}
+	
+	public void testFuncCall() throws IOException {
+		vm.pushstring("bogus");
+		vm.pushjavafunction(new SomeFunc( "arg" ));
+		vm.pushstring("arg");
+		vm.call(1, 1);
+		assertEquals( 2, vm.gettop() );
+		assertEquals( "bogus", vm.tostring(1) );
+		assertEquals( LNil.NIL, vm.topointer(2) );
+		assertEquals( LNil.NIL, vm.topointer(-1) );
+	}
+		
+	public void testFuncCall2() throws IOException {
+		vm.pushstring("bogus");
+		vm.pushjavafunction(new SomeFunc( "nil" ));
+		vm.call(0, 1);
+		assertEquals( 2, vm.gettop() );
+		assertEquals( "bogus", vm.tostring(1) );
+		assertEquals( LNil.NIL, vm.topointer(2) );
+		assertEquals( LNil.NIL, vm.topointer(-1) );
+	}
+	
+	private static final class SomeFunc extends LFunction {
+		private String expected;
+		public SomeFunc(String expected) {
+			this.expected = expected;
+		}
+		public boolean luaStackCall(LuaState vm) {
+			String arg = vm.tostring(2);
+			assertEquals(expected, arg);
+			vm.pushnil();
+			vm.replace(1);
+			vm.settop(1);
+			return false;
+		}
+		
+	}
 }