paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 07:59:15 +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.FieldByName('NAME').AsString := 'TestName' + inttostr(i);
BufDataset.Post; BufDataset.Post;
end; end;
BufDataset.MergeChangeLog;
BufDataset.TempFileName:=GetTempFileName; BufDataset.TempFileName:=GetTempFileName;
BufDataset.FileName:=BufDataset.TempFileName; BufDataset.FileName:=BufDataset.TempFileName;
BufDataset.Close; // Save data into file BufDataset.Close; // Save data into file
@ -162,8 +163,9 @@ begin
FieldByName('FFMTBCD').AsBCD := StrToBCD(testFmtBCDValues[i], Self.FormatSettings); FieldByName('FFMTBCD').AsBCD := StrToBCD(testFmtBCDValues[i], Self.FormatSettings);
Post; Post;
end; end;
BufDataset.TempFileName:=GetTempFileName; MergeChangeLog;
BufDataset.FileName:=BufDataset.TempFileName; TempFileName:=GetTempFileName;
FileName:=TempFileName;
Close; // Save data into file Close; // Save data into file
end; end;
Result := BufDataset; Result := BufDataset;