paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-07 09:27:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fcl-db tests: memds.CopyFromDataset test when record is not the first record

Browse Source 
git-svn-id: trunk@26232 -
This commit is contained in:
reiniero 2013-12-15 03:28:37 +00:00
parent 2a992bf53c
commit ec5d09b16d
2 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/fcl-db/tests/testspecifictmemdataset.pas
View File

@ -23,7 +23,8 @@ type
published
procedure TestClear;
procedure TestFileName;
procedure TestCopyFromDataset;
procedure TestCopyFromDataset; //is copied dataset identical to original?
procedure TestCopyFromDatasetMoved; //move record then copy. Is copy identical?
end;
implementation
@ -104,6 +105,18 @@ begin
CheckFieldDatasetValues(memds2);
end;
procedure TTestSpecificTMemDataset.TestCopyFromDatasetMoved;
var memds1, memds2: TMemDataset;
begin
memds1:=DBConnector.GetFieldDataset as TMemDataset;
memds2:=DBConnector.GetNDataset(0) as TMemDataset;
memds1.Open;
memds1.Next; //this should not influence the copydataset step.
memds2.CopyFromDataset(memds1);
CheckFieldDatasetValues(memds2);
end;
initialization

2
packages/fcl-db/tests/toolsunit.pas
View File

@ -99,7 +99,9 @@ type
protected
procedure SetUp; override;
procedure TearDown; override;
// Verify whether all values in FieldDataset are present and correct
procedure CheckFieldDatasetValues(ADataSet: TDataSet);
// Verify whether all values in NDataset are present and correct
procedure CheckNDatasetValues(ADataSet: TDataSet; n: integer);
end;