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

+ test enhanced

Browse Source
This commit is contained in:
pierre 2000-04-04 11:37:11 +00:00
parent 2a901bf527
commit 6d02ebf1b8
1 changed files with 40 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
tests/test/divexcp.pp
View File

@ -27,15 +27,48 @@ begin
i:=100;
try
exception_called:=false;
j := i div j;
except
on e : exception do
begin
Writeln('First integer exception called ',e.message);
exception_called:=true;
end;
end;
test_exception('First division by zero for integers');
try
exception_called:=false;
j := i div j;
except
on e : exception do
begin
Writeln('Second integer exception called ',e.message);
exception_called:=true;
end;
end;
test_exception('Second division by zero for integers');
try
exception_called:=false;
e:=i/j;
except
on e : exception do
begin
Writeln('exception called ',e.message);
Writeln('First real exception called ',e.message);
exception_called:=true;
end;
end;
test_exception('division by zero for reals');
test_exception('First division by zero for reals');
try
exception_called:=false;
e:=i/j;
except
on e : exception do
begin
Writeln('Second real exception called ',e.message);
exception_called:=true;
end;
end;
test_exception('Second division by zero for reals');
try
exception_called:=false;
j := i div j;
@ -46,7 +79,7 @@ begin
exception_called:=true;
end;
end;
test_exception('division by zero for integers');
test_exception('third division by zero for integers');
exception_count:=0;
for j:=1 to TestNumber do
begin
@ -66,6 +99,10 @@ begin
program_has_errors:=true;
Writeln('Could not generate ',TestNumber,' consecutive exceptions');
Writeln('Only ',exception_count,' exceptions were generated');
end
else
begin
Writeln(TestNumber,' consecutive exceptions generated successfully');
end;
try
exception_called:=false;