Test suite results for test file webtbs/tw1351.pp

Test run data :

Test file "webtbs/tw1351.pp" information:

t_id 802
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 940424.

Source:

{$mode objfpc}

procedure Test(ParArr :array of const);
begin
   writeln(ParArr[0].vtype,' ',vtObject,' ',vtclass);
   if ParArr[0].vtype<>vtObject then
    halt(1);
end;

begin
        Test([TObject.Create]);
end.

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