t_id
222
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{$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.
}