Test suite results for test file test/tlibrary1.pp

Test run data :

View Test suite results

Test file "test/tlibrary1.pp" information:

t_id 58
t_adddate 2003/10/03
t_result 0
Flag t_norun set
t_knownrunerror 0
t_opts -FE.

Detailed test run results:

Record count: 50

Total = 50

OK=0 Percentage= 0.00

Skipped=50 Percentage= 100.00

Source:

{ %OPT=-FE. }
{ %NORUN }

{ The .so of the library needs to be in the current dir when
  testing the loading at runtime }

{$ifdef win32}
 {$define supported}
 {$define supportidx}
{$endif win32}
{$ifdef Unix}
 {$define supported}
{$endif Unix}
{$ifndef fpc}
   {$define supported}
{$endif}

{$ifdef supported}

library bug;

const
   publicname='TestName';
   publicindex = 1234;

procedure Test;export;

 begin
   writeln('Hoi');
 end;

exports
  Test name publicname;
{$ifdef supportidx}
exports
  Test index publicindex;
{$endif}

begin
end.
{$else supported}
begin
  Writeln('No library for that target');
end.
{$endif supported}

Link to SVN view of test/tlibrary1.pp source.