fcl-db: tests: when testing bufdataset use MergeChangeLog before saving test data into file to delete undo log. Tests which tests f.e. CancelUpdates are failed and they should not.

git-svn-id: trunk@23630 -

packages/fcl-db/tests/bufdatasettoolsunit.pas

@@ -100,6 +100,7 @@ begin
     BufDataset.FieldByName('NAME').AsString := 'TestName' + inttostr(i);
     BufDataset.Post;
     end;
+  BufDataset.MergeChangeLog;
   BufDataset.TempFileName:=GetTempFileName;
   BufDataset.FileName:=BufDataset.TempFileName;
   BufDataset.Close; // Save data into file
@@ -162,8 +163,9 @@ begin
       FieldByName('FFMTBCD').AsBCD := StrToBCD(testFmtBCDValues[i], Self.FormatSettings);
       Post;
     end;
-    BufDataset.TempFileName:=GetTempFileName;
-    BufDataset.FileName:=BufDataset.TempFileName;
+    MergeChangeLog;
+    TempFileName:=GetTempFileName;
+    FileName:=TempFileName;
     Close; // Save data into file
     end;
   Result := BufDataset;