1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
#!perl
use Test::More tests => 7;
use ExtUtils::LibBuilder;
our @CLEAN;
my $libbuilder = ExtUtils::LibBuilder->new();
isa_ok($libbuilder, 'ExtUtils::CBuilder');
open OUT, ">", "lib.c" or die "Can't create test file";
print OUT <<'EOT';
int sum(int a, int b) { return a + b; }
EOT
close OUT;
add_to_cleanup("lib.c");
$libbuilder->compile( source => 'lib.c' );
ok(-f "lib.o");
add_to_cleanup("lib.o");
$libbuilder->link( objects => "lib.o",
module_name => "bar",
lib_file => "libbar$libbuilder->{libext}");
ok(-f "libbar$libbuilder->{libext}");
add_to_cleanup("libbar$libbuilder->{libext}");
open OUT, ">", "main.c" or die "Can't create test file";
print OUT <<'EOT';
#include <stdio.h>
extern int sum(int a, int b);
int main(void) {
int a, b, c;
a = 5;
b = sum(a, a);
c = sum(a, b);
printf("%d\n", c);
return 0;
}
EOT
close OUT;
add_to_cleanup("main.c");
$libbuilder->compile( source => 'main.c' );
add_to_cleanup("main.o");
ok(-f "main.o");
$libbuilder->link_executable( exe_file => "add$libbuilder->{exeext}",
extra_linker_flags => "-L. -lbar",
objects => ["main.o"]);
ok(-f "add$libbuilder->{exeext}");
ok(-x "add$libbuilder->{exeext}");
add_to_cleanup("add$libbuilder->{exeext}");
if ($^O =~ /mswin32/i) {
$ENV{PATH} = ".;$ENV{PATH}";
} elsif ($^O =~ /darwin/i) {
$ENV{DYLD_LIBRARY_PATH} = ".";
}
elsif ($^O =~ /(?:linux|bsd|sun|sol|dragonfly|hpux|irix)/i) {
$ENV{LD_LIBRARY_PATH} = ".";
if ($^O =~ /irix/) {
# trying my luck
$ENV{LD_LIBRARYN32_PATH} = ".";
$ENV{LD_LIBRARYN64_PATH} = ".";
}
}
elsif ($^O =~ /aix/i) {
my $oldlibpath = $ENV{LIBPATH} || '/lib:/usr/lib';
$ENV{LIBPATH} = ".:$oldlibpath";
}
my $P;
$P = "./" unless $^O =~ /mswin32/i;
my $ans = `${P}add$libbuilder->{exeext}`;
chomp $ans;
is($ans, 15);
clean();
sub add_to_cleanup {
push @CLEAN, @_;
}
sub clean {
unlink $_ for @CLEAN;
}
|
