t_id
234
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022518887 | 1027348 | True | False | Successfully run |
Record count: 1
{ 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 }