Test suite results for test file test/units/system/tpi.pp

Test run data :

Test file "test/units/system/tpi.pp" information:

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

Detailed test run results:

Record count: 1

No log of 934948.

Source:

{ this tests the pi routine, as an inline }
program tpi;

const
 PI_CONST = 3.1459;
 { the following expression also works on constants }
 PI_CONST_VALUE = pi;

 procedure fail;
  begin
    WriteLn('Failed!');
    halt(1);
  end;
 
var
 value : real;
 _result : boolean;
Begin
  Write('Pi() test...');
  _result := true;
  value:=pi;
  if trunc(value) <> trunc(PI_CONST) then
     _result := false;
  If trunc(Pi) <> trunc(PI_CONST) then
     _result := false;
  If trunc(Pi) <> trunc(PI_CONST_VALUE) then
     _result := false;
  if not _result then
     fail;
  WriteLn('Success!');     
end.

{
  $Log: tpi.pp,v $
  Revision 1.1  2002/09/16 19:15:54  carl
    * several new routines have a testsuit.

}  

Link to SVN view of test/units/system/tpi.pp source.