Test suite results for test file tbs/tb0428.pp

Test run data :

Test file "tbs/tb0428.pp" information:

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

Detailed test run results:

Record count: 1

No log of 934958.

Source:

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


type
  charset=set of char;

  var
     tr,tr2    : charset;


  procedure test(const k:charset);

    begin
       tr:=[#7..#10]+k;
       tr2:=k+[#7..#10];
     if (tr<>tr2) then
       begin
         Writeln('Bug in set handling');
         halt(1);
       end;
    end;

  begin
     Test([#20..#32]);
     if not(#32 in tr) or ([#33..#255]*tr <> []) or
        (tr<>[#7..#10,#20..#32]) or
        (tr<>tr2) then
       begin
         Writeln('Bug in set handling');
         halt(1);
       end;

  end.

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