Test suite results for test file tbs/tb0417.pp

Test run data :

Test file "tbs/tb0417.pp" information:

t_id 632
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 1015755.

Source:

{ Testing smallset + normset }
{ with respect to normset + smallset }


type
  charset=set of char;

  var
     err : byte;
     tr,tr2    : charset;


  procedure test(const k:charset);

    begin
       tr:=[#7..#10]+k;
       tr2:=k+[#7..#10];
    end;

  begin
     err:=0;
     Test([#20..#32]);
     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, see err:=',err);
         halt(1);
       end;
  end.

Link to SVN view of tbs/tb0417.pp source.