[Jcframework-commits] Nunit/InheritedClasses MultiRetrieveTests.vb,1.3,1.4

[Richard B. <rb...@us...>]

Update of /cvsroot/jcframework/Nunit/InheritedClasses
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24040/InheritedClasses

Modified Files:
	MultiRetrieveTests.vb 
Log Message:
unit test for multi summary criteria

Index: MultiRetrieveTests.vb
===================================================================
RCS file: /cvsroot/jcframework/Nunit/InheritedClasses/MultiRetrieveTests.vb,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- MultiRetrieveTests.vb	21 Dec 2004 22:00:01 -0000	1.3
+++ MultiRetrieveTests.vb	16 Mar 2005 09:35:16 -0000	1.4
@@ -85,6 +85,23 @@
 			mr1.Save()
 			mr2.field2 = 22
 			mr2.Save()
-		End Sub
-	End Class
+    End Sub
+
+    <Test()> Public Sub SummaryChainedClasses()
+      Dim mr1 As New mr1
+      Dim mr2 As New mr2
+      Dim mr3 As New mr3
+      Dim src As CMultiSummaryCriteria
+      src = New CMultiSummaryCriteria
+      src.addObjectToJoin(mr1, Nothing, "")
+      src.addObjectToJoin(mr2, mr1, "mr1tomr2")
+      src.addObjectToJoin(mr3, mr2, "mr2tomr3")
+      src.addSummaryField("mr1tomr2.field1", CMultiSummaryCriteria.SumMethod.Count)
+      c = src.perform
+      Assert.IsTrue(c.hasElements)
+      Assert.IsFalse(c.EOF)
+      Assert.AreEqual(1, c.TotalRows)
+    End Sub
+
+  End Class
 End Namespace
\ No newline at end of file