paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 10:48:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed test

Browse Source 
git-svn-id: trunk@13361 -
This commit is contained in:
florian 2009-07-04 16:29:59 +00:00
parent 04402dd6cc
commit ea4d5a74c2
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/webtbs/tw13813.pp
View File

@ -9,7 +9,7 @@ type
public
procedure do_something;
end;
tcoll = class(TCollection)
public
procedure Update(Item: TCollectionItem); override;
@ -17,7 +17,7 @@ type
var
c: tcoll;
item: titem;
item: titem;
i: Integer;
update_counter: Integer;
@ -36,7 +36,7 @@ end;
begin
c := tcoll.Create(titem);
item := titem(c.Add);
update_counter := 0;
update_counter := 0;
c.BeginUpdate;
try
for i := 0 to 9 do
@ -45,7 +45,11 @@ begin
c.EndUpdate;
end;
writeln('updates: ', update_counter);
c.Free;
if update_counter<>1 then
Halt(1);
end.
begin
c.Free;
Halt(1);
end;
c.Free;
writeln('ok');
end.