fcl-db: test: for UniDirectional datasets is RecNo=-1 (also in Delphi), so fix test.

git-svn-id: trunk@23161 -

packages/fcl-db/tests/testdbbasics.pas

@@ -244,7 +244,10 @@ begin
     begin
     Open;
 
-    CheckEquals(1,RecNo);
+    if IsUniDirectional then
+      CheckEquals(-1,RecNo)
+    else
+      CheckEquals(1,RecNo);
     CheckEquals(1,RecordCount);
 
     CheckEquals(2,FieldCount);