[Jcframework-commits] Nunit AtomsFrameworkTests.vb,1.3,1.4

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

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"