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

textthr test to be more verbose on error conditions

Browse Source 
git-svn-id: trunk@36584 -
This commit is contained in:
Károly Balogh 2017-06-23 06:03:26 +00:00
parent 4962872d70
commit 50332a97bc
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/test/textthr.pp
View File

@ -58,7 +58,7 @@ begin
end;
if res<>pointer(11) then
begin
writeln('error 1');
writeln('error 1: ',ptruint(res));
halt(1);
end;
@ -69,7 +69,7 @@ begin
end;
if res<>pointer(12) then
begin
writeln('error 2');
writeln('error 2: ',ptruint(res));
halt(2);
end;
@ -80,7 +80,7 @@ begin
end;
if res<>pointer(13) then
begin
writeln('error 3');
writeln('error 3: ',ptruint(res));
halt(3);
end;
end.