t_id
224
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949658449 | 1015615 | False | False | Failed to run |
Record count: 1
Try..catch of assertion...An unhandled exception occurred at $00000000: EAssertionFailed: Assertion failed (tassert7.pp, line 16) $00000000 ##WASI-EXITCODE: 217 -> 125##>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
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 }