Test suite results for test file webtbs/tw3255.pp

Test run data :

View Test suite results

Test file "webtbs/tw3255.pp" information:

t_id 1344
t_adddate 2004/08/28
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 50

Total = 50

OK=50 Percentage= 100.00

Source:

{ Source provided for Free Pascal Bug Report 3255 }
{ Submitted by "Patrick Dietrich" on  2004-08-17 }
{ e-mail: patrick.dietrich@informatik.uni-ulm.de }
program testclassptr;

{$mode delphi}

type
  TProc = procedure (Sender: TClass) of object;

  TTest = class
  public
    class procedure foo;
    class procedure bar(Sender: TClass);
    class procedure baz(proc: TProc);
  end;

class procedure TTest.foo;
begin
  baz(bar);
end;

class procedure TTest.bar;
begin
  writeln('hello world');
end;

class procedure TTest.baz;
begin
  proc(self);
end;

begin
  TTest.foo;
end.

Link to SVN view of webtbs/tw3255.pp source.