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

git-svn-id: trunk@26232 -

packages/fcl-db/tests/testspecifictmemdataset.pas

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

packages/fcl-db/tests/toolsunit.pas

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