paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-24 19:03:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

* test runtime loading of library

Browse Source
This commit is contained in:
peter 2002-12-15 13:29:12 +00:00
parent a2a1a36e83
commit 9875ffa598
2 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/test/tlibrary.pp
View File

@ -1,5 +1,9 @@
{ %OPT=-FE. }
{ %NORUN } { %NORUN }
{ The .so of the library needs to be in the current dir when
testing the loading at runtime }
{$ifdef win32} {$ifdef win32}
{$define supported} {$define supported}
{$define supportidx} {$define supportidx}
@ -7,6 +11,9 @@
{$ifdef Unix} {$ifdef Unix}
{$define supported} {$define supported}
{$endif Unix} {$endif Unix}
{$ifndef fpc}
{$define supported}
{$endif}
{$ifdef supported} {$ifdef supported}
@ -19,6 +26,7 @@ const
procedure Test;export; procedure Test;export;
begin begin
writeln('Hoi');
end; end;
exports exports

22
tests/test/tlibrary2.pp Normal file
View File

@ -0,0 +1,22 @@
{ %NEEDLIBRARY }
{ Test program to test linking to fpc library }
{$ifdef win32}
{$define supported}
{$endif win32}
{$ifdef Unix}
{$define supported}
{$endif Unix}
{$ifndef fpc}
{$define supported}
{$endif}
{$ifdef supported}
procedure test;external 'libtlibrary.so' name 'TestName';
begin
test;
end.
{$endif supported}