t_id
1548
t_adddate
2005/04/05
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
565144938 | 954639 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3870 } { Submitted by "Tom Verhoeff" on 2005-04-04 } { e-mail: T.Verhoeff@tue.nl } program AssertFormatBug; { Illustrates bug with using Format in Assert } {$assertions on} uses SysUtils { for IntToStr, Format }; begin try Assert(False, IntToStr(2)); { incorrectly raises EAccessViolation } except on E: EAssertionFailed do begin Writeln('Caught Assert: ',E.Message); end; end; end.