paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 07:40:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add some context messages to tests

Browse Source 
git-svn-id: trunk@30570 -
This commit is contained in:
michael 2015-04-13 08:29:36 +00:00
parent 57965a2194
commit 0d1fc7fa97
1 changed files with 25 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -520,42 +520,49 @@ begin
Open;
CheckEquals(0,RecordCount);
CheckEquals(0,RecNo);
CheckEquals(0,RecordCount,'1. record count after open');
CheckEquals(0,RecNo,'1. recno after open');
CheckEquals(True,EOF and BOF, '1. Empty');
first;
CheckEquals(0,RecordCount);
CheckEquals(0,RecNo);
CheckEquals(0,RecordCount,'2. recordcount after first (empty)');
CheckEquals(0,RecNo,'2. recno after first (empty)');
CheckEquals(True,EOF and BOF, '1. Empty');
last;
CheckEquals(0,RecordCount);
CheckEquals(0,RecNo);
CheckEquals(0,RecordCount,'3. recordcount after last (empty)');
CheckEquals(0,RecNo,'3. recordcount after last (empty)');
CheckEquals(True,EOF and BOF, '3. Empty');
append;
CheckEquals(0,RecNo);
CheckEquals(0,RecordCount);
CheckEquals(0,RecNo,'4. recno after append (empty)');
CheckEquals(0,RecordCount,'4. recordcount after append (empty)');
CheckEquals(False, EOF and BOF, '4. Empty');
first;
CheckEquals(0,RecNo);
CheckEquals(0,RecordCount);
CheckEquals(0,RecNo,'5. recno after first append (empty,append )');
CheckEquals(0,RecordCount,'5. recordcount after first (empty, append)');
CheckEquals(True,EOF and BOF, '5. Empty');
append;
FieldByName('id').AsInteger := 1;
CheckEquals(0,RecNo);
CheckEquals(0,RecordCount);
CheckEquals(0,RecNo,'6. recno after second append (empty,append)');
CheckEquals(0,RecordCount,'6. recordcount after second append (empty,append)');
CheckEquals(False ,EOF and BOF, '6. Empty');
first;
CheckEquals(1,RecNo);
CheckEquals(1,RecordCount);
CheckEquals(1,RecNo,'7. recno after second append, first (1,append)');
CheckEquals(1,RecordCount,'7. recordcount after second append,first (1,append)');
CheckEquals(False ,EOF and BOF, '7. Empty');
last;
CheckEquals(1,RecNo);
CheckEquals(1,RecordCount);
CheckEquals(1,RecNo,'8. recno after second append, last (1,append)');
CheckEquals(1,RecordCount,'8. recordcount after second append, last (1,append)');
append;
FieldByName('id').AsInteger := 2;
CheckEquals(0,RecNo,'RecNo after 3rd Append');
CheckEquals(1,RecordCount);
CheckEquals(0,RecNo,'9. RecNo after 3rd Append');
CheckEquals(1,RecordCount,'9. Recordcount after 3rd Append');
post;
edit;