[Jcframework-commits] Nunit/InheritedClasses AtomsFrameworkTests.vb,1.14,1.15

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

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

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

Index: AtomsFrameworkTests.vb
===================================================================
RCS file: /cvsroot/jcframework/Nunit/InheritedClasses/AtomsFrameworkTests.vb,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- AtomsFrameworkTests.vb	11 Feb 2005 02:53:20 -0000	1.14
+++ AtomsFrameworkTests.vb	3 Mar 2005 00:37:24 -0000	1.15
@@ -579,5 +579,19 @@
 			Assert.AreEqual("bb52", CType(a1.TableBCollection.Item(1), TableB).Id)
 		End Sub
 
+		<Test()> Public Sub SaveThenSaveWithoutRetrieve()
+			Dim oidvalue As String
+			emp.Name = "SaveThisEmp"
+			emp.Find()
+			Assert.IsFalse(emp.Persistent)
+			oidvalue = emp.OIDValue
+			emp.Save()
+			emp = New CEmployee
+			emp.OIDValue = oidvalue
+			emp.Name = "Should update record"
+			emp.Save()
+			Assert.IsTrue(emp.Persistent, "persistent check failed")
+		End Sub
+
 	End Class
 End Namespace
\ No newline at end of file