From: Richard B. <rb...@us...> - 2004-12-21 22:00:11
|
Update of /cvsroot/jcframework/Nunit/Interfaces In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29305/Interfaces Modified Files: EmployeeInterfaceTests.vb Log Message: New tests for collection events and validation for interface based persistence Index: EmployeeInterfaceTests.vb =================================================================== RCS file: /cvsroot/jcframework/Nunit/Interfaces/EmployeeInterfaceTests.vb,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- EmployeeInterfaceTests.vb 25 Oct 2004 07:14:15 -0000 1.2 +++ EmployeeInterfaceTests.vb 21 Dec 2004 22:00:01 -0000 1.3 @@ -8,7 +8,7 @@ Private emp As IEmployee <TestFixtureSetUp()> Public Sub Init() - Environment.CurrentDirectory = "C:\Projects\MMM\Nunit_AtomsFramework" + Environment.CurrentDirectory = System.AppDomain.CurrentDomain.BaseDirectory Dim retry As Boolean = True While retry = True Try @@ -65,5 +65,31 @@ Assert.IsTrue(pbroker.getInjectedObject(emp).getFieldTypeByName("Name") Is GetType([String])) End Sub + <Test()> Public Sub SaveInvalidEmployee() + Dim emp2 As ValidatedEmployee + emp2 = New ValidatedEmployee + emp2.AllowValidation = False + emp = emp2 + emp.Name = "invalid" + pbroker.FindObject(emp) + Assert.IsFalse(pbroker.getInjectedObject(emp).Persistent) + pbroker.PersistChanges(emp) + Assert.IsFalse(pbroker.getInjectedObject(emp).Persistent) + Assert.IsTrue(emp.ReportsTo Is Nothing) + End Sub + + <Test()> Public Sub SaveValidEmployee() + Dim emp2 As ValidatedEmployee + emp2 = New ValidatedEmployee + emp2.AllowValidation = True + emp = emp2 + emp.Name = "valid" + pbroker.FindObject(emp) + Assert.IsFalse(pbroker.getInjectedObject(emp).Persistent) + pbroker.PersistChanges(emp) + Assert.IsTrue(pbroker.getInjectedObject(emp).Persistent) + Assert.IsTrue(emp.ReportsTo Is Nothing) + End Sub + End Class End Namespace \ No newline at end of file |