Browse Source

* fcl-db: tests: better error reporting

git-svn-id: trunk@28028 -
reiniero 11 years ago
parent
commit
bfb21cb4a0

+ 2 - 2
packages/fcl-db/tests/testdbbasics.pas

@@ -1269,7 +1269,7 @@ begin
       CheckTrue(odd(FieldByName('ID').asinteger));
       CheckTrue(odd(FieldByName('ID').asinteger));
       next;
       next;
       end;
       end;
-    CheckTrue(EOF);
+    CheckTrue(EOF, 'Filter should give only odd records');
     end;
     end;
 end;
 end;
 
 
@@ -1288,7 +1288,7 @@ begin
       CheckEquals(Counter, FieldByName('ID').AsInteger);
       CheckEquals(Counter, FieldByName('ID').AsInteger);
       Next;
       Next;
       end;
       end;
-    CheckTrue(EOF);
+    CheckTrue(EOF, 'Filter (id>4) and (id<9)');
 
 
     Filter := '-id-ID=-4';
     Filter := '-id-ID=-4';
     CheckEquals(2, FieldByName('ID').AsInteger, 'Unary minus');
     CheckEquals(2, FieldByName('ID').AsInteger, 'Unary minus');

+ 1 - 1
packages/fcl-db/tests/testspecifictbufdataset.pas

@@ -2,7 +2,7 @@ unit TestSpecificTBufDataset;
 
 
 {
 {
   Unit tests which are specific to stand-alone TBufDataset-datasets. (So not
   Unit tests which are specific to stand-alone TBufDataset-datasets. (So not
-  for derrived datasets like TQuery )
+  for derived datasets like TQuery )
 }
 }
 
 
 {$IFDEF FPC}
 {$IFDEF FPC}