[Jcframework-commits] Nunit/InheritedClasses AtomsFrameworkTests.vb,1.8,1.9

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

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

Modified Files:
	AtomsFrameworkTests.vb 
Log Message:
Test for cache state before and after transaction rollback

Index: AtomsFrameworkTests.vb
===================================================================
RCS file: /cvsroot/jcframework/Nunit/InheritedClasses/AtomsFrameworkTests.vb,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- AtomsFrameworkTests.vb	21 Dec 2004 22:00:01 -0000	1.8
+++ AtomsFrameworkTests.vb	31 Jan 2005 06:18:10 -0000	1.9
@@ -375,5 +375,26 @@
 				Assert.AreEqual("somename", CType(value, CEmployee).Name)
 			End If
 		End Sub
+
+		<Test()> Public Sub CheckCacheAfterRollback()
+			Dim oid As String
+			Dim e2 As CEmployee
+			emp.Name = "me"
+			emp.Save()
+			oid = emp.OIDValue
+			pbroker.startTransaction()
+			emp.Name = "you"
+			emp.Save()
+			e2 = New CEmployee
+			e2.OIDValue = oid
+			e2.Retrieve()
+			Assert.AreEqual("you", e2.Name)
+			pbroker.rollback()
+			e2 = New CEmployee
+			e2.OIDValue = oid
+			e2.Retrieve()
+			Assert.AreEqual("me", e2.Name)
+		End Sub
+
 	End Class
 End Namespace
\ No newline at end of file