Update of /cvsroot/jcframework/Nunit
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10040
Modified Files:
AtomsFrameworkTests.vb
Log Message:
Added test for CDeleteCriteria
Index: AtomsFrameworkTests.vb
===================================================================
RCS file: /cvsroot/jcframework/Nunit/AtomsFrameworkTests.vb,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** AtomsFrameworkTests.vb 28 Sep 2004 07:32:24 -0000 1.3
--- AtomsFrameworkTests.vb 8 Oct 2004 00:09:58 -0000 1.4
***************
*** 57,60 ****
--- 57,112 ----
End Sub
+ <Test()> Public Sub ChangeFindFieldValue()
+ Dim oidvalue As String
+ emp.Name = "SaveThenChange"
+ emp.Find()
+ Assert.IsFalse(emp.Persistent)
+ oidvalue = emp.OIDValue
+ emp.Save()
+ Assert.IsTrue(emp.Persistent)
+ Assert.IsTrue(emp.ReportsTo Is Nothing)
+ Assert.IsFalse(emp.IsReferenced)
+ emp = New CEmployee
+ emp.Name = "SaveThenChange"
+ emp.Find()
+ Assert.IsTrue(emp.Persistent)
+ Assert.AreEqual(emp.OIDValue, oidvalue)
+ Assert.AreEqual(emp.Name, "SaveThenChange")
+ emp.Name = "Changed"
+ emp.Save()
+ Assert.IsTrue(emp.Persistent)
+ emp.Delete()
+ Assert.IsFalse(emp.Persistent)
+ emp = New CEmployee
+ emp.Name = "Changed"
+ emp.Find()
+ Assert.IsFalse(emp.Persistent)
+ emp = New CEmployee
+ emp.Name = "SaveThenChange"
+ emp.Find()
+ Assert.IsFalse(emp.Persistent)
+ End Sub
+
+ <Test()> Public Sub DeleteMultipleEmployees()
+ emp.Name = "DeleteMe1"
+ emp.Save()
+ emp = New CEmployee
+ emp.Name = "DeleteMe2"
+ emp.Save()
+ emp = New CEmployee
+ emp.Name = "DeleteMe3"
+ emp.Save()
+ Dim dc As CDeleteCriteria
+ dc = New CDeleteCriteria
+ dc.ClassMap = emp.getClassMap
+ dc.WhereCondition.addSelectlike("Name", "DeleteMe%")
+ Dim i As Integer = dc.perform()
+ Assert.AreEqual(i, 3)
+ emp = New CEmployee
+ emp.Name = "DeleteMe1"
+ emp.Find()
+ Assert.IsFalse(emp.Persistent)
+ End Sub
+
<Test()> Public Sub LoadEmployee_ac()
emp.Name = "ac"
|
