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

Test run data :

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

t_id 223
t_adddate 2003/10/03
t_result 227
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 568888.

Source:

{ %RESULT=227 }
{$C+}
program tassert6;

var
 global_boolean : boolean;
 
const 
  RESULT_BOOLEAN = false;
  


procedure test_assert_reference_global;
 begin
  global_boolean:=RESULT_BOOLEAN;
  assert(global_boolean);
 end;
 
   

 
begin
  test_assert_reference_global;
end.

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

}

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