[Jcframework-commits] Nunit/InheritedClasses AtomsFrameworkTests.vb,1.6,1.7

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

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

Modified Files:
	AtomsFrameworkTests.vb 
Log Message:
Extra tests for IValidation interface

Index: AtomsFrameworkTests.vb
===================================================================
RCS file: /cvsroot/jcframework/Nunit/InheritedClasses/AtomsFrameworkTests.vb,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- AtomsFrameworkTests.vb	1 Nov 2004 21:27:10 -0000	1.6
+++ AtomsFrameworkTests.vb	6 Dec 2004 01:01:11 -0000	1.7
@@ -96,6 +96,24 @@
 			Assert.IsFalse(emp.Persistent)
 		End Sub
 
+		<Test()> Public Sub SetPropertyToNothing()
+			Dim oidvalue As String
+			emp.Name = "SomeNewEmp"
+			emp.Find()
+			Assert.IsFalse(emp.Persistent)
+			oidvalue = emp.OIDValue
+			emp.Save()
+			emp = New CEmployee
+			emp.Name = "SomeNewEmp"
+			emp.Find()
+			Assert.IsTrue(emp.Persistent)
+			Assert.AreEqual(emp.OIDValue, oidvalue)
+			Assert.AreEqual(emp.Name, "SomeNewEmp")
+			emp.Name = Nothing
+			emp.Save()
+			Assert.IsTrue(emp.Persistent)	
+		End Sub
+
 		<Test()> Public Sub DeleteMultipleEmployees()
 			emp.Name = "DeleteMe1"
 			emp.Save()
@@ -145,7 +163,7 @@
 		End Sub
 
 		<Test(), ExpectedException(GetType(AssertionException))> _
-	 Public Sub CheckCacheCopiesAreDifferent()
+		Public Sub CheckCacheCopiesAreDifferent()
 			Dim emp2 As CEmployee
 			emp.Name = "ac"
 			emp.Find()