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

* include which test failed

Browse Source
This commit is contained in:
peter 2002-11-15 16:33:47 +00:00
parent edbd98176b
commit e27d66d7bb
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tests/tbs/tb0417.pp
View File

@ -6,6 +6,7 @@ type
charset=set of char;
var
err : byte;
tr,tr2 : charset;
@ -17,13 +18,19 @@ type
end;
begin
err:=0;
Test([#20..#32]);
if not(#32 in tr) or ([#33..#255]*tr <> []) or
(tr<>[#7..#10,#20..#32]) or
(tr<>tr2) then
if not(#32 in tr) then
err:=1;
if ([#33..#255]*tr <> []) then
err:=2;
if (tr<>[#7..#10,#20..#32]) then
err:=3;
if (tr<>tr2) then
err:=4;
if err<>0 then
begin
Writeln('Bug in set handling');
Writeln('Bug in set handling, see err:=',err);
halt(1);
end;
end.