t_id
1479
t_adddate
2005/02/02
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949266596 | 1015553 | False | True | Skipping test run because it is a unit |
Record count: 1
{$mode delphi} unit tb0483u; interface type tmyclass1 = class private procedure x(var l : longint);message 1234; public procedure defaulthandler(var msg);override; end; const testresult : longint = 0; implementation procedure tmyclass1.defaulthandler(var msg); begin writeln('error; being in tmyclass1.defaulthandler'); halt(1); end; procedure tmyclass1.x(var l : longint); begin testresult:=1; end; end.