[jboss-svn-commits] JBL Code SVN: r20058 - labs/jbossrules/branches/parser-rewrite/drools-compiler/src/test/java/org/drools/lang.

[jboss-svn-commits at lists.jboss.org]

Author: porcelli
Date: 2008-05-19 14:23:00 -0400 (Mon, 19 May 2008)
New Revision: 20058

Modified:
   labs/jbossrules/branches/parser-rewrite/drools-compiler/src/test/java/org/drools/lang/TestDRL.java
   labs/jbossrules/branches/parser-rewrite/drools-compiler/src/test/java/org/drools/lang/TestTree2TestDRL.java
   labs/jbossrules/branches/parser-rewrite/drools-compiler/src/test/java/org/drools/lang/gUnitTest.testsuite
   labs/jbossrules/branches/parser-rewrite/drools-compiler/src/test/java/org/drools/lang/gUnitTreeWalkerTest.testsuite
Log:
eval cannot end with ";". Reports an error.

Modified: labs/jbossrules/branches/parser-rewrite/drools-compiler/src/test/java/org/drools/lang/TestDRL.java
===================================================================
--- labs/jbossrules/branches/parser-rewrite/drools-compiler/src/test/java/org/drools/lang/TestDRL.java	2008-05-19 18:18:12 UTC (rev 20057)
+++ labs/jbossrules/branches/parser-rewrite/drools-compiler/src/test/java/org/drools/lang/TestDRL.java	2008-05-19 18:23:00 UTC (rev 20058)
@@ -553,8 +553,8 @@
 	public void testCompilation_unit60() throws Exception {
 		// test input: "\nrule simple_rule \n  when\n\teval(abc();)\n  then\n\tKapow\n\tPoof\nend"
 		Object retval = execParser("compilation_unit", "\nrule simple_rule \n  when\n\teval(abc();)\n  then\n\tKapow\n\tPoof\nend", false);
-		Object actual = examineParserExecResult(10, retval);
-		Object expecting = "(VT_COMPILATION_UNIT (rule simple_rule when (VT_AND_IMPLICIT (eval (abc();))) then\n\tKapow\n\tPoof\nend))";
+		Object actual = examineParserExecResult(28, retval);
+		Object expecting = "FAIL";
 
 		assertEquals("testing rule "+"compilation_unit", expecting, actual);
 	}
@@ -1138,8 +1138,8 @@
 	public void testNormal_lhs_block125() throws Exception {
 		// test input: "eval(abc();)"
 		Object retval = execParser("normal_lhs_block", "eval(abc();)", false);
-		Object actual = examineParserExecResult(10, retval);
-		Object expecting = "(VT_AND_IMPLICIT (eval (abc();)))";
+		Object actual = examineParserExecResult(28, retval);
+		Object expecting = "FAIL";
 
 		assertEquals("testing rule "+"normal_lhs_block", expecting, actual);
 	}

Modified: labs/jbossrules/branches/parser-rewrite/drools-compiler/src/test/java/org/drools/lang/TestTree2TestDRL.java
===================================================================
--- labs/jbossrules/branches/parser-rewrite/drools-compiler/src/test/java/org/drools/lang/TestTree2TestDRL.java	2008-05-19 18:18:12 UTC (rev 20057)
+++ labs/jbossrules/branches/parser-rewrite/drools-compiler/src/test/java/org/drools/lang/TestTree2TestDRL.java	2008-05-19 18:23:00 UTC (rev 20058)
@@ -554,8 +554,8 @@
 	public void testCompilation_unit_walks_Compilation_unit60() throws Exception {
 		// test input: "\nrule simple_rule \n  when\n\teval(abc();)\n  then\n\tKapow\n\tPoof\nend"
 		Object retval = execTreeParser("compilation_unit", "compilation_unit", "\nrule simple_rule \n  when\n\teval(abc();)\n  then\n\tKapow\n\tPoof\nend", false);
-		Object actual = examineParserExecResult(27, retval);
-		Object expecting = "OK";
+		Object actual = examineParserExecResult(28, retval);
+		Object expecting = "FAIL";
 		
 		assertEquals("testing rule "+"compilation_unit", expecting, actual);
 	}
@@ -1103,8 +1103,8 @@
 	public void testLhs_block_walks_Normal_lhs_block121() throws Exception {
 		// test input: "eval(abc();)"
 		Object retval = execTreeParser("lhs_block", "normal_lhs_block", "eval(abc();)", false);
-		Object actual = examineParserExecResult(27, retval);
-		Object expecting = "OK";
+		Object actual = examineParserExecResult(28, retval);
+		Object expecting = "FAIL";
 		
 		assertEquals("testing rule "+"lhs_block", expecting, actual);
 	}

Modified: labs/jbossrules/branches/parser-rewrite/drools-compiler/src/test/java/org/drools/lang/gUnitTest.testsuite
===================================================================
--- labs/jbossrules/branches/parser-rewrite/drools-compiler/src/test/java/org/drools/lang/gUnitTest.testsuite	2008-05-19 18:18:12 UTC (rev 20057)
+++ labs/jbossrules/branches/parser-rewrite/drools-compiler/src/test/java/org/drools/lang/gUnitTest.testsuite	2008-05-19 18:23:00 UTC (rev 20058)
@@ -934,10 +934,7 @@
 	Kapow
 	Poof
 end>>
-		-> (VT_COMPILATION_UNIT (rule simple_rule when (VT_AND_IMPLICIT (eval (abc();))) then
-	Kapow
-	Poof
-end))
+		FAIL
 	<<
 
 
@@ -1388,7 +1385,7 @@
 	       )))
 	
 	"eval(abc();)"
-		-> (VT_AND_IMPLICIT (eval (abc();)))
+		FAIL
 	
 	<<
 	Foo(

Modified: labs/jbossrules/branches/parser-rewrite/drools-compiler/src/test/java/org/drools/lang/gUnitTreeWalkerTest.testsuite
===================================================================
--- labs/jbossrules/branches/parser-rewrite/drools-compiler/src/test/java/org/drools/lang/gUnitTreeWalkerTest.testsuite	2008-05-19 18:18:12 UTC (rev 20057)
+++ labs/jbossrules/branches/parser-rewrite/drools-compiler/src/test/java/org/drools/lang/gUnitTreeWalkerTest.testsuite	2008-05-19 18:23:00 UTC (rev 20058)
@@ -755,7 +755,7 @@
 	Kapow
 	Poof
 end>>
-		OK
+		FAIL
 	<<
 
 
@@ -1152,7 +1152,7 @@
 		OK
 	
 	"eval(abc();)"
-		OK
+		FAIL
 	<<
 	Foo(
 	  bar == baz, la==laz