paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +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

8
tests/webtbs/tw13813.pp
View File

@ -45,7 +45,11 @@ begin
c.EndUpdate; c.EndUpdate;
end; end;
writeln('updates: ', update_counter); writeln('updates: ', update_counter);
c.Free;
if update_counter<>1 then if update_counter<>1 then
Halt(1); begin
c.Free;
Halt(1);
end;
c.Free;
writeln('ok');
end. end.