* Test for r17704

git-svn-id: trunk@17822 -

packages/fcl-db/tests/testdbbasics.pas

@@ -85,6 +85,8 @@ type
     procedure TestRequired;
     procedure TestExceptionLocateClosed;    // bug 13938
     procedure TestCanModifySpecialFields;
+
+    procedure TestOldValue;
   end;
 
   { TTestBufDatasetDBBasics }
@@ -580,6 +582,16 @@ begin
   DBConnector.StopTest;
 end;
 
+procedure TTestDBBasics.TestOldValue;
+var v : variant;
+    bufds: TCustomBufDataset;
+begin
+  bufds := DBConnector.GetNDataset(0) as TCustomBufDataset;
+  bufds.Open;
+  bufds.InsertRecord([0,'name']);
+  v := VarToStr(bufds.fields[1].OldValue);
+end;
+
 procedure TTestBufDatasetDBBasics.TestClosedIndexFieldNames;
 var s : string;
     bufds: TCustomBufDataset;