t_id
224
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
| tr_id | run | tr_ok | tr_skip | tr_result |
|---|---|---|---|---|
| -14355957 | 859983 | True | False | Successfully run |
Record count: 1
program tassert7;
{$C+}
{$mode objfpc}
uses sysutils;
procedure Success;
Begin
WriteLn('Success!');
halt;
end;
Begin
Write('Try..catch of assertion...');
try
assert(false);
except
on EAssertionFailed do Success;
end;
WriteLn('Failed!');
Halt(1);
end.
{
$Log: tassert7.pp,v $
Revision 1.1 2002/09/18 18:30:30 carl
+ currency testing
* more system unit routine testing
}