jcframework-commits

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

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

Modified Files:
	MultiRetrieveTestClasses.vb MultiRetrieveTests.vb 
Log Message:
Extra test for autosave and for update parameter checks

Index: MultiRetrieveTestClasses.vb
===================================================================
RCS file: /cvsroot/jcframework/Nunit/InheritedClasses/MultiRetrieveTestClasses.vb,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- MultiRetrieveTestClasses.vb	25 Oct 2004 07:14:14 -0000	1.2
+++ MultiRetrieveTestClasses.vb	19 Dec 2004 22:44:46 -0000	1.3
@@ -50,6 +50,7 @@
 			End Get
 			Set(ByVal Value As String)
 				_field1 = Value
+				SetDirtyFlag()
 			End Set
 		End Property
 
@@ -59,6 +60,7 @@
 			End Get
 			Set(ByVal Value As Integer)
 				_field2 = Value
+				SetDirtyFlag()
 			End Set
 		End Property
 
@@ -92,6 +94,7 @@
 			End Get
 			Set(ByVal Value As String)
 				_field1 = Value
+				SetDirtyFlag()
 			End Set
 		End Property
 
@@ -102,6 +105,7 @@
 			End Get
 			Set(ByVal Value As Integer)
 				_field2 = Value
+				SetDirtyFlag()
 			End Set
 		End Property
 
@@ -162,6 +166,7 @@
 			End Get
 			Set(ByVal Value As String)
 				_field1 = Value
+				SetDirtyFlag()
 			End Set
 		End Property
 
@@ -172,6 +177,7 @@
 			End Get
 			Set(ByVal Value As Integer)
 				_field2 = Value
+				SetDirtyFlag()
 			End Set
 		End Property
 

Index: MultiRetrieveTests.vb
===================================================================
RCS file: /cvsroot/jcframework/Nunit/InheritedClasses/MultiRetrieveTests.vb,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- MultiRetrieveTests.vb	19 Oct 2004 03:30:42 -0000	1.1
+++ MultiRetrieveTests.vb	19 Dec 2004 22:44:46 -0000	1.2
@@ -67,5 +67,24 @@
 			Assert.AreEqual(3, c.TotalRows)
 		End Sub
 
+		<Test()> Public Sub SaveMRClasses()
+			Dim mr1 As New mr1
+			mr1.id = "id1"
+			mr1.field1 = "_a"
+			mr1.field2 = 1
+			Dim mr2 As New mr2
+			mr2.id = "id2"
+			mr2.field1 = "_aa"
+			mr2.field2 = 2
+			mr1.mr2 = mr2
+			Dim mr3 As New mr3
+			mr3.id = "id3"
+			mr3.field1 = "zz"
+			mr3.field2 = 3
+			mr2.mr3 = mr3
+			mr1.Save()
+			mr2.field2 = 22
+			mr2.Save()
+		End Sub
 	End Class
 End Namespace
\ No newline at end of file