t_id
218
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1021970024 | 1027256 | True | False | Successfully run |
Record count: 1
{$C+} program tassert1; var global_boolean : boolean; const RESULT_BOOLEAN = true; function get_boolean : boolean; begin get_boolean := RESULT_BOOLEAN; end; procedure test_assert_reference_global; begin global_boolean:=RESULT_BOOLEAN; assert(global_boolean); end; procedure test_assert_reference_local; var b: boolean; begin b:=RESULT_BOOLEAN; assert(b); end; procedure test_assert_register; var b: boolean; begin assert(get_boolean); end; procedure test_assert_flags; var b: boolean; i,j : integer; begin i:=0; j:=-12; assert(i > j); end; procedure test_assert_constant; begin assert(RESULT_BOOLEAN); end; begin Write('Assert test (TRUE)...'); test_assert_reference_global; test_assert_reference_local; test_assert_register; test_assert_flags; test_assert_constant; WriteLn('Success!'); end. { $Log: tassert1.pp,v $ Revision 1.1 2002/09/16 19:16:36 carl * several new routines have a testsuit. }