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

* Fixed test. Behaviour is the same as Delphi.

Browse Source 
git-svn-id: trunk@10968 -
This commit is contained in:
joost 2008-05-14 14:29:27 +00:00
parent 50cd527d30
commit 882a71bc93
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -239,9 +239,9 @@ begin
Next; Next;
if (i > ABufferCount) and not EOF then if (i > ABufferCount) and not EOF then
AssertEquals('deCheckBrowseMode:0;deDataSetScroll:-1;',DataEvents) AssertEquals('deCheckBrowseMode:0;deDataSetScroll:-1;DataSetScrolled:1;',DataEvents)
else else
AssertEquals('deCheckBrowseMode:0;deDataSetScroll:0;',DataEvents); AssertEquals('deCheckBrowseMode:0;deDataSetScroll:0;DataSetScrolled:0;',DataEvents);
DataEvents := ''; DataEvents := '';
end; end;
AssertEquals(count,i-1); AssertEquals(count,i-1);