Test suite results for test file tbs/tb0007.pp

Test run data :

Test file "tbs/tb0007.pp" information:

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

Detailed test run results:

Record count: 1

No log of 934973.

Source:

{ Old file: tbs0009.pp }
{  tests comperations in function calls a(c<0);        OK 0.9.2 }

var c:byte;

  Procedure a(b:boolean);

    begin
       if b then writeln('TRUE') else writeln('FALSE');
    end;

  function Test_a(b:boolean) : string;

    begin
       if b then Test_a:='TRUE' else Test_a:='FALSE';
    end;

  begin {main program}
     a(true); {works}
     if Test_a(true)<>'TRUE' then halt(1);
     a(false); {works}
     if Test_a(false)<>'FALSE' then halt(1);
     c:=0;
     a(c>0); {doesn't work}
     if Test_a(c>0)<>'FALSE' then halt(1);
     a(c<0); {doesn't work}
     if Test_a(c<0)<>'FALSE' then halt(1);
     a(c=0);
     if Test_a(c=0)<>'TRUE' then halt(1);
  end.

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