t_id
222
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Successfully run | 50 | 100.0 | 2024/05/20 10:48:00 38 | 2024/05/20 22:58:00 148 | |
i386 | 13 | 26.0 | 2024/05/20 16:23:00 44 | 2024/05/20 22:37:00 176 | |
m68k | 1 | 2.0 | 2024/05/20 22:44:00 190 | 2024/05/20 22:44:00 190 | |
arm | 1 | 2.0 | 2024/05/20 22:30:00 59 | 2024/05/20 22:30:00 59 | |
x86_64 | 13 | 26.0 | 2024/05/20 13:38:00 23 | 2024/05/20 19:35:00 26 | |
mips | 3 | 6.0 | 2024/05/20 12:35:00 35 | 2024/05/20 22:51:00 240 | |
mipsel | 1 | 2.0 | 2024/05/20 22:58:00 148 | 2024/05/20 22:58:00 148 | |
aarch64 | 18 | 36.0 | 2024/05/20 10:48:00 38 | 2024/05/20 22:24:00 44 | |
linux | 13 | 26.0 | 2024/05/20 10:48:00 38 | 2024/05/20 22:58:00 148 | |
solaris | 12 | 24.0 | 2024/05/20 16:23:00 44 | 2024/05/20 17:30:00 45 | |
darwin | 12 | 24.0 | 2024/05/20 16:20:00 32 | 2024/05/20 17:50:00 56 | |
win64 | 13 | 26.0 | 2024/05/20 13:38:00 23 | 2024/05/20 19:35:00 26 | |
3.3.1 | 8 | 16.0 | 2024/05/20 12:35:00 35 | 2024/05/20 19:35:00 26 | |
3.2.2 | 12 | 24.0 | 2024/05/20 16:23:00 44 | 2024/05/20 17:30:00 45 | |
3.2.3 | 30 | 60.0 | 2024/05/20 10:48:00 38 | 2024/05/20 22:58:00 148 |
{$C-} program tassert5; var global_boolean : boolean; counter : longint; const RESULT_BOOLEAN = false; RESULT_STRING = 'hello world'; procedure fail; begin Writeln('Failure!'); Halt(1); end; function get_boolean : boolean; begin get_boolean := RESULT_BOOLEAN; end; procedure test_assert_reference_global; begin global_boolean:=RESULT_BOOLEAN; assert(global_boolean,RESULT_STRING); end; procedure test_assert_reference_local; var b: boolean; begin b:=RESULT_BOOLEAN; assert(b,RESULT_STRING); end; procedure test_assert_register; begin assert(get_boolean,RESULT_STRING); end; procedure test_assert_flags; var i,j : integer; begin i:=0; j:=-12; assert(i < j,RESULT_STRING); end; procedure test_assert_constant; begin assert(RESULT_BOOLEAN,RESULT_STRING); end; { Handle the assertion failed ourselves, so we can test everything in one shot. } Procedure MyAssertRoutine(const msg,fname:ShortString;lineno:longint;erroraddr:{$ifdef VER1_0}longint{$else}pointer{$endif}); begin Inc(counter); if msg <> RESULT_STRING then fail; end; begin counter:=0; AssertErrorProc := @MyAssertRoutine; Write('Assert test (FALSE) with assertions off...'); test_assert_reference_global; test_assert_reference_local; test_assert_register; test_assert_flags; test_assert_constant; if counter <> 0 then fail else WriteLn('Success!'); end. { $Log: tassert5.pp,v $ Revision 1.2 2003/03/17 19:27:00 peter * fixed for 1.1 compiler Revision 1.1 2002/09/16 19:16:36 carl * several new routines have a testsuit. }