Test suite results for test file tbs/tb0483u.pp

Test run data :

Test file "tbs/tb0483u.pp" information:

t_id 1479
t_adddate 2005/02/02
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 940520.

Source:

{$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.

Link to SVN view of tbs/tb0483u.pp source.