paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 19:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

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.

Browse Source 
git-svn-id: trunk@23630 -
This commit is contained in:
lacak 2013-02-19 09:47:25 +00:00
parent 776f4cc18f
commit a2c068770c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/tests/bufdatasettoolsunit.pas
View File

@ -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;