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

* Fixed test. Behaviour is the same as Delphi.

Browse Source 
git-svn-id: trunk@10969 -
This commit is contained in:
joost 2008-05-14 14:44:08 +00:00
parent 882a71bc93
commit 6e1c3a06a1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -324,7 +324,7 @@ begin
AssertEquals('deDataSetChange:0;',DataEvents); AssertEquals('deDataSetChange:0;',DataEvents);
DataEvents := ''; DataEvents := '';
next; next;
AssertEquals('deCheckBrowseMode:0;DataEvent;deDataSetScroll:0;',DataEvents); AssertEquals('deCheckBrowseMode:0;DataEvent;deDataSetScroll:0;DataSetScrolled:1;',DataEvents);
close; close;
end; end;
aDatasource.Free; aDatasource.Free;