t_id
234
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/21 01:54:00 35 | 2024/05/21 02:32:00 35 | |
i386 | 14 | 28.0 | 2024/05/21 01:58:00 33 | 2024/05/21 02:32:00 27 | |
x86_64 | 34 | 68.0 | 2024/05/21 01:54:00 35 | 2024/05/21 02:32:00 35 | |
aarch64 | 2 | 4.0 | 2024/05/21 02:03:00 35 | 2024/05/21 02:19:00 42 | |
linux | 49 | 98.0 | 2024/05/21 01:54:00 35 | 2024/05/21 02:32:00 35 | |
win32 | 1 | 2.0 | 2024/05/21 02:04:00 34 | 2024/05/21 02:04:00 34 | |
3.3.1 | 28 | 56.0 | 2024/05/21 01:56:00 16 | 2024/05/21 02:32:00 27 | |
3.2.3 | 22 | 44.0 | 2024/05/21 01:54:00 35 | 2024/05/21 02:32:00 35 |
{ Part of System unit testsuit } { Carl Eric Codere Copyright (c) 2002 } program todd; const RESULT_ONE = FALSE; VALUE_ONE = -65536; RESULT_CONST_ONE = odd(VALUE_ONE); RESULT_TWO = TRUE; VALUE_TWO = 12345; RESULT_CONST_TWO = odd(VALUE_TWO); procedure fail; begin WriteLn('Failure!'); halt(1); end; var r: longint; _success : boolean; l: boolean; Begin Write('Odd() testing...'); _success := true; r:=VALUE_ONE; if odd(r)<>RESULT_ONE then _success:=false; if odd(VALUE_ONE)<>RESULT_ONE then _success:=false; r:=VALUE_ONE; if odd(r)<>RESULT_CONST_ONE then _success := false; r:=VALUE_ONE; l:=odd(r); if l<>RESULT_ONE then _success:=false; l:=odd(VALUE_ONE); if l<>RESULT_ONE then _success:=false; r:=VALUE_TWO; if odd(r)<>RESULT_TWO then _success:=false; if odd(VALUE_TWO)<>RESULT_TWO then _success:=false; r:=VALUE_TWO; if odd(r)<>RESULT_CONST_TWO then _success := false; r:=VALUE_TWO; l:=odd(r); if l<>RESULT_TWO then _success:=false; l:=odd(VALUE_TWO); if l<>RESULT_TWO then _success:=false; if not _success then fail; WriteLn('Success!'); end. { $Log: todd.pp,v $ Revision 1.1 2002/09/18 18:30:30 carl + currency testing * more system unit routine testing }