* Patch from Ludo Brands to test Modified behaviour

git-svn-id: trunk@21876 -

packages/fcl-db/tests/testdbbasics.pas

@@ -161,6 +161,7 @@ type
     procedure TestRequired;
     procedure TestOldValue;
     procedure TestOldValue1;
+    procedure TestModified;
   end;
 
 
@@ -650,6 +651,32 @@ begin
   end;
 end;
 
+procedure TTestCursorDBBasics.TestModified;
+begin
+  // Tests TDataSet.Modified property
+  with DBConnector.GetNDataset(true,1) as TDataset do
+  begin
+    Open;
+    CheckFalse(Modified);
+
+    Edit;
+    CheckFalse(Modified, 'After Edit');
+    Fields[1].AsString := Fields[1].AsString;
+    CheckTrue(Modified, 'After change');
+    Post;
+    CheckFalse(Modified, 'After Post');
+
+    Append;
+    CheckFalse(Modified, 'After Append');
+    Fields[0].AsInteger := 100;
+    CheckTrue(Modified, 'After change');
+    Cancel;
+    CheckFalse(Modified, 'After Cancel');
+
+    Close;
+  end;
+end;
+
 procedure TTestDBBasics.TestCanModifySpecialFields;
 var ds    : TDataset;
     lds   : TDataset;