From bfb21cb4a013330da96cf8297d4f33858ebcd0ff Mon Sep 17 00:00:00 2001 From: reiniero Date: Sun, 22 Jun 2014 07:24:37 +0000 Subject: [PATCH] * fcl-db: tests: better error reporting git-svn-id: trunk@28028 - --- packages/fcl-db/tests/testdbbasics.pas | 4 ++-- packages/fcl-db/tests/testspecifictbufdataset.pas | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/packages/fcl-db/tests/testdbbasics.pas b/packages/fcl-db/tests/testdbbasics.pas index 77db4995c9..8ba5d8293f 100644 --- a/packages/fcl-db/tests/testdbbasics.pas +++ b/packages/fcl-db/tests/testdbbasics.pas @@ -1269,7 +1269,7 @@ begin CheckTrue(odd(FieldByName('ID').asinteger)); next; end; - CheckTrue(EOF); + CheckTrue(EOF, 'Filter should give only odd records'); end; end; @@ -1288,7 +1288,7 @@ begin CheckEquals(Counter, FieldByName('ID').AsInteger); Next; end; - CheckTrue(EOF); + CheckTrue(EOF, 'Filter (id>4) and (id<9)'); Filter := '-id-ID=-4'; CheckEquals(2, FieldByName('ID').AsInteger, 'Unary minus'); diff --git a/packages/fcl-db/tests/testspecifictbufdataset.pas b/packages/fcl-db/tests/testspecifictbufdataset.pas index 11b8449910..12a95b75b3 100644 --- a/packages/fcl-db/tests/testspecifictbufdataset.pas +++ b/packages/fcl-db/tests/testspecifictbufdataset.pas @@ -2,7 +2,7 @@ unit TestSpecificTBufDataset; { Unit tests which are specific to stand-alone TBufDataset-datasets. (So not - for derrived datasets like TQuery ) + for derived datasets like TQuery ) } {$IFDEF FPC}