paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 03:30:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fcl-db tests: TMemDataset.CopyFromDataset: test record position has not moved for bug #25426

Browse Source 
git-svn-id: trunk@26234 -
This commit is contained in:
reiniero 2013-12-15 04:06:55 +00:00
parent 9f5d46a008
commit fe8a6f7399
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,7 +24,7 @@ type
procedure TestClear;
procedure TestFileName;
procedure TestCopyFromDataset; //is copied dataset identical to original?
procedure TestCopyFromDatasetMoved; //move record then copy. Is copy identical?
procedure TestCopyFromDatasetMoved; //move record then copy. Is copy identical? Has record position changed?
end;
implementation
@ -106,15 +106,20 @@ begin
end;
procedure TTestSpecificTMemDataset.TestCopyFromDatasetMoved;
var memds1, memds2: TMemDataset;
var
memds1, memds2: TMemDataset;
CurrentID,NewID: integer;
begin
memds1:=DBConnector.GetFieldDataset as TMemDataset;
memds2:=DBConnector.GetNDataset(0) as TMemDataset;
memds1.Open;
memds1.Next; //this should not influence the copydataset step.
CurrentID:=memds1.FieldByName('ID').AsInteger;
memds2.CopyFromDataset(memds1);
CheckFieldDatasetValues(memds2);
NewID:=memds1.FieldByName('ID').AsInteger;
CheckEquals(CurrentID,NewID,'Mismatch between ID field contents - the record has moved.');
end;