* Playing around with double-linked indexes

git-svn-id: trunk@9165 -

packages/fcl-db/tests/testdbbasics.pas

@@ -27,6 +27,8 @@ type
     procedure TestOnFilter;
     procedure TestStringFilter;
 
+    procedure TestAddIndex;
+
     procedure TestNullAtOpen;
 
     procedure TestSupportIntegerFields;
@@ -540,6 +542,28 @@ begin
     end;
 end;
 
+procedure TTestDBBasics.TestAddIndex;
+var ds   : TBufDataset;
+    I    : integer;
+begin
+  ds := DBConnector.GetNDataset(5) as TBufDataset;
+  with ds do
+    begin
+    i:=5;
+
+    open;
+    
+    AddSecondIndex;
+
+    while not eof do
+      begin
+      AssertEquals(i,fields[0].AsInteger);
+      Next;
+      dec(i);
+      end;
+    end;
+end;
+
 procedure TTestDBBasics.TestcalculatedField_OnCalcfields(DataSet: TDataSet);
 begin
   case dataset.fieldbyname('ID').asinteger of