t_id
234
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
| tr_id | run | tr_ok | tr_skip | tr_result |
|---|---|---|---|---|
| 443648109 | 934966 | 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
}