paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 20:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fcl-db: tests: better error reporting

Browse Source 
git-svn-id: trunk@28028 -
This commit is contained in:
reiniero 2014-06-22 07:24:37 +00:00
parent 53b0ef1f61
commit bfb21cb4a0
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/tests/testdbbasics.pas
View File

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

2
packages/fcl-db/tests/testspecifictbufdataset.pas
View File

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