t_id
241
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/06/02 01:34:00 16 | 2024/06/02 03:04:00 24 | |
i386 | 13 | 26.0 | 2024/06/02 01:45:00 35 | 2024/06/02 03:03:00 25 | |
sparc | 1 | 2.0 | 2024/06/02 02:33:00 41 | 2024/06/02 02:33:00 41 | |
x86_64 | 33 | 66.0 | 2024/06/02 01:34:00 16 | 2024/06/02 03:04:00 24 | |
aarch64 | 3 | 6.0 | 2024/06/02 02:36:00 40 | 2024/06/02 02:59:00 37 | |
linux | 44 | 88.0 | 2024/06/02 01:34:00 16 | 2024/06/02 03:04:00 24 | |
win32 | 1 | 2.0 | 2024/06/02 03:03:00 25 | 2024/06/02 03:03:00 25 | |
solaris | 5 | 10.0 | 2024/06/02 02:33:00 41 | 2024/06/02 03:01:00 21 | |
3.3.1 | 30 | 60.0 | 2024/06/02 01:34:00 16 | 2024/06/02 03:04:00 24 | |
3.2.3 | 20 | 40.0 | 2024/06/02 01:38:00 27 | 2024/06/02 03:01:00 34 |
{ this tests the round routine } program tround; {$ifdef VER1_0} {$define SKIP_CURRENCY_TEST} {$endif } {$APPTYPE CONSOLE} const RESULT_ONE = 1235; VALUE_ONE = 1234.5678; RESULT_CONST_ONE = round(VALUE_ONE); RESULT_TWO = -1235; VALUE_TWO = -1234.5678; RESULT_CONST_TWO = round(VALUE_TWO); procedure fail; begin WriteLn('Failed!'); halt(1); end; procedure test_round_real; var r: real; _success : boolean; l: longint; Begin Write('Round() real testing...'); _success := true; r:=VALUE_ONE; if round(r)<>RESULT_ONE then _success:=false; if round(VALUE_ONE)<>RESULT_ONE then _success:=false; r:=VALUE_ONE; if round(r)<>RESULT_CONST_ONE then _success := false; r:=VALUE_ONE; l:=round(r); if l<>RESULT_ONE then _success:=false; l:=round(VALUE_ONE); if l<>RESULT_ONE then _success:=false; r:=VALUE_TWO; if round(r)<>RESULT_TWO then _success:=false; if round(VALUE_TWO)<>RESULT_TWO then _success:=false; r:=VALUE_TWO; if round(r)<>RESULT_CONST_TWO then _success := false; r:=VALUE_TWO; l:=round(r); if l<>RESULT_TWO then _success:=false; l:=round(VALUE_TWO); if l<>RESULT_TWO then _success:=false; if not _success then fail; WriteLn('Success!'); end; procedure test_round_single; var r: single; _success : boolean; l: longint; Begin Write('Round() single testing...'); _success := true; r:=VALUE_ONE; if round(r)<>RESULT_ONE then _success:=false; if round(VALUE_ONE)<>RESULT_ONE then _success:=false; r:=VALUE_ONE; if round(r)<>RESULT_CONST_ONE then _success := false; r:=VALUE_ONE; l:=round(r); if l<>RESULT_ONE then _success:=false; l:=round(VALUE_ONE); if l<>RESULT_ONE then _success:=false; r:=VALUE_TWO; if round(r)<>RESULT_TWO then _success:=false; if round(VALUE_TWO)<>RESULT_TWO then _success:=false; r:=VALUE_TWO; if round(r)<>RESULT_CONST_TWO then _success := false; r:=VALUE_TWO; l:=round(r); if l<>RESULT_TWO then _success:=false; l:=round(VALUE_TWO); if l<>RESULT_TWO then _success:=false; if not _success then fail; WriteLn('Success!'); end; procedure test_round_double; var r: double; _success : boolean; l: longint; Begin Write('Round() double testing...'); _success := true; r:=VALUE_ONE; if round(r)<>RESULT_ONE then _success:=false; if round(VALUE_ONE)<>RESULT_ONE then _success:=false; r:=VALUE_ONE; if round(r)<>RESULT_CONST_ONE then _success := false; r:=VALUE_ONE; l:=round(r); if l<>RESULT_ONE then _success:=false; l:=round(VALUE_ONE); if l<>RESULT_ONE then _success:=false; r:=VALUE_TWO; if round(r)<>RESULT_TWO then _success:=false; if round(VALUE_TWO)<>RESULT_TWO then _success:=false; r:=VALUE_TWO; if round(r)<>RESULT_CONST_TWO then _success := false; r:=VALUE_TWO; l:=round(r); if l<>RESULT_TWO then _success:=false; l:=round(VALUE_TWO); if l<>RESULT_TWO then _success:=false; if not _success then fail; WriteLn('Success!'); end; {$ifndef SKIP_CURRENCY_TEST} procedure test_round_currency; var r: currency; _success : boolean; l: longint; Begin Write('Round() currency testing...'); _success := true; r:=VALUE_ONE; if round(r)<>RESULT_ONE then _success:=false; if round(VALUE_ONE)<>RESULT_ONE then _success:=false; r:=VALUE_ONE; if round(r)<>RESULT_CONST_ONE then _success := false; r:=VALUE_ONE; l:=round(r); if l<>RESULT_ONE then _success:=false; l:=round(VALUE_ONE); if l<>RESULT_ONE then _success:=false; r:=VALUE_TWO; if round(r)<>RESULT_TWO then _success:=false; if round(VALUE_TWO)<>RESULT_TWO then _success:=false; r:=VALUE_TWO; if round(r)<>RESULT_CONST_TWO then _success := false; r:=VALUE_TWO; l:=round(r); if l<>RESULT_TWO then _success:=false; l:=round(VALUE_TWO); if l<>RESULT_TWO then _success:=false; if not _success then fail; WriteLn('Success!'); end; {$endif SKIP_CURRENCY_TEST} Begin test_round_real; test_round_single; test_round_double; {$ifdef SKIP_CURRENCY_TEST} Writeln('Skipping currency test because its not supported by theis compiler'); {$else SKIP_CURRENCY_TEST} test_round_currency; {$endif SKIP_CURRENCY_TEST} end. { $Log: tround.pp,v $ Revision 1.3 2002/10/15 10:26:36 pierre * add code to remember that currency is only implemented in 1.1 compiler Revision 1.2 2002/09/18 18:30:30 carl + currency testing * more system unit routine testing Revision 1.1 2002/09/16 19:15:54 carl * several new routines have a testsuit. }