[jboss-svn-commits] JBL Code SVN: r14901 - in labs/jbossrules/trunk/drools-compiler/src/test: resources/org/drools/integrationtests and 1 other directory.

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

Author: tirelli
Date: 2007-09-05 15:22:40 -0400 (Wed, 05 Sep 2007)
New Revision: 14901

Modified:
   labs/jbossrules/trunk/drools-compiler/src/test/java/org/drools/integrationtests/MiscTest.java
   labs/jbossrules/trunk/drools-compiler/src/test/resources/org/drools/integrationtests/test_Query.drl
Log:
JBRULES-1153: adding test case for issue

Modified: labs/jbossrules/trunk/drools-compiler/src/test/java/org/drools/integrationtests/MiscTest.java
===================================================================
--- labs/jbossrules/trunk/drools-compiler/src/test/java/org/drools/integrationtests/MiscTest.java	2007-09-05 16:35:47 UTC (rev 14900)
+++ labs/jbossrules/trunk/drools-compiler/src/test/java/org/drools/integrationtests/MiscTest.java	2007-09-05 19:22:40 UTC (rev 14901)
@@ -55,6 +55,7 @@
 import org.drools.PersonInterface;
 import org.drools.PersonWithEquals;
 import org.drools.Primitives;
+import org.drools.QueryResult;
 import org.drools.QueryResults;
 import org.drools.RandomNumber;
 import org.drools.RuleBase;
@@ -3988,4 +3989,25 @@
                       cheesery.getCheeses().get( 0 ) );
     }
 
+    public void testQueryWithCollect() throws Exception {
+        final PackageBuilder builder = new PackageBuilder();
+        builder.addPackageFromDrl( new InputStreamReader( getClass().getResourceAsStream( "test_Query.drl" ) ) );
+
+        final RuleBase ruleBase = getRuleBase();
+        ruleBase.addPackage( builder.getPackage() );
+
+        final WorkingMemory workingMemory = ruleBase.newStatefulSession();
+        workingMemory.fireAllRules();
+
+        final QueryResults results = workingMemory.getQueryResults( "collect objects" );
+        assertEquals( 1,
+                      results.size() );
+        
+        final QueryResult result = results.get( 0 );
+        final List list = (List) result.get( "$list" );
+        
+        assertEquals( 2, 
+                      list.size() );
+    }
+
 }
\ No newline at end of file

Modified: labs/jbossrules/trunk/drools-compiler/src/test/resources/org/drools/integrationtests/test_Query.drl
===================================================================
--- labs/jbossrules/trunk/drools-compiler/src/test/resources/org/drools/integrationtests/test_Query.drl	2007-09-05 16:35:47 UTC (rev 14900)
+++ labs/jbossrules/trunk/drools-compiler/src/test/resources/org/drools/integrationtests/test_Query.drl	2007-09-05 19:22:40 UTC (rev 14901)
@@ -1,6 +1,7 @@
 package org.drools.integrationtests;
 
 import org.drools.InsertedObject;
+import java.util.ArrayList;
 
 rule rule1
   when
@@ -11,4 +12,8 @@
 
 query "assertedobjquery"
     assertedobj : InsertedObject( value=="value1" )
-end 
\ No newline at end of file
+end 
+
+query "collect objects"
+    $list : ArrayList() from collect( InsertedObject() )
+end