[Jcframework-commits] Nunit/Interfaces EmployeeInterfaceTests.vb,1.3,1.4 ValidatedEmployee.vb,1.1,1.2

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

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

Modified Files:
	EmployeeInterfaceTests.vb ValidatedEmployee.vb 
Log Message:
Added test for IsValidToDelete

Index: ValidatedEmployee.vb
===================================================================
RCS file: /cvsroot/jcframework/Nunit/Interfaces/ValidatedEmployee.vb,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- ValidatedEmployee.vb	6 Dec 2004 01:01:13 -0000	1.1
+++ ValidatedEmployee.vb	1 Mar 2005 01:29:57 -0000	1.2
@@ -2,7 +2,7 @@
 	Public Class ValidatedEmployee
 		Inherits EmployeeClass
 
-		Implements AToMSFramework.IValidation
+		Implements Atoms.Framework.IValidation
 
 		Private _allowValidation As Boolean
 
@@ -15,7 +15,11 @@
 			End Set
 		End Property
 
-		Public Function IsValid() As Boolean Implements AToMSFramework.IValidation.IsValid
+		Public Function IsValid() As Boolean Implements Atoms.Framework.IValidation.IsValid
+			Return _allowValidation
+		End Function
+
+		Public Function IsValidToDelete() As Boolean Implements Atoms.Framework.IValidation.IsValidToDelete
 			Return _allowValidation
 		End Function
 	End Class

Index: EmployeeInterfaceTests.vb
===================================================================
RCS file: /cvsroot/jcframework/Nunit/Interfaces/EmployeeInterfaceTests.vb,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- EmployeeInterfaceTests.vb	21 Dec 2004 22:00:01 -0000	1.3
+++ EmployeeInterfaceTests.vb	1 Mar 2005 01:29:56 -0000	1.4
@@ -1,4 +1,4 @@
-Imports AToMSFramework
+Imports Atoms.Framework
 Imports NUnit.Framework
 
 Namespace Interfaces
@@ -91,5 +91,23 @@
 			Assert.IsTrue(emp.ReportsTo Is Nothing)
 		End Sub
 
+		<Test()> Public Sub SaveAndDeleteValidEmp1()
+			Dim emp2 As ValidatedEmployee
+			emp2 = New ValidatedEmployee
+			emp2.AllowValidation = True
+			emp2.Name = "validCheck"
+			pbroker.FindObject(emp2)
+			Assert.IsFalse(pbroker.getInjectedObject(emp2).Persistent)
+			pbroker.PersistChanges(emp2)
+			emp2.AllowValidation = False
+			pbroker.MarkForDeletion(emp2)
+			pbroker.PersistChanges()
+			pbroker.ClearCache()
+			emp2 = New ValidatedEmployee
+			emp2.Name = "validCheck"
+			pbroker.GetObject(emp2)
+			Assert.IsTrue(pbroker.getInjectedObject(emp2).Persistent)
+		End Sub
+
 	End Class
 End Namespace
\ No newline at end of file