[Jcframework-commits] Nunit/Interfaces EmployeeInterfaceTests.vb,1.5,1.6

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

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

Modified Files:
	EmployeeInterfaceTests.vb 
Log Message:
Unit test for saving without first retrieving

Index: EmployeeInterfaceTests.vb
===================================================================
RCS file: /cvsroot/jcframework/Nunit/Interfaces/EmployeeInterfaceTests.vb,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- EmployeeInterfaceTests.vb	1 Mar 2005 20:51:33 -0000	1.5
+++ EmployeeInterfaceTests.vb	3 Mar 2005 00:37:25 -0000	1.6
@@ -109,5 +109,18 @@
 			Assert.IsTrue(pbroker.getInjectedObject(emp2).Persistent)
 		End Sub
 
+		<Test()> Public Sub SaveThenSaveWithoutRetrieve()
+			Dim oidvalue As String
+			emp.Name = "SaveThisEmp"
+			pbroker.FindObject(emp)
+			Assert.IsFalse(pbroker.getInjectedObject(emp).Persistent)
+			pbroker.PersistChanges(emp)
+			emp = New EmployeeClass
+			emp.Name = "SaveThisEmp"
+			'Should update record, not try to insert
+			pbroker.PersistChanges(emp)
+			Assert.IsTrue(pbroker.getInjectedObject(emp).Persistent, "persistent check failed")
+		End Sub
+
 	End Class
 End Namespace
\ No newline at end of file