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
90
91
92
93
94
|
#! perl -w
BEGIN {
if ($ENV{PERL_CORE}) {
chdir 't' if -d 't';
chdir '../lib/ExtUtils/CBuilder'
or die "Can't chdir to lib/ExtUtils/CBuilder: $!";
@INC = qw(../..);
}
}
use strict;
use Test::More;
BEGIN {
if ($^O eq 'VMS') {
# So we can get the return value of system()
require vmsish;
import vmsish;
}
}
use ExtUtils::CBuilder;
use File::Spec;
# TEST doesn't like extraneous output
my $quiet = $ENV{PERL_CORE} && !$ENV{HARNESS_ACTIVE};
my ($source_file, $object_file, $exe_file);
my $b = ExtUtils::CBuilder->new(quiet => $quiet);
# test plan
if ($^O eq 'MSWin32') {
plan skip_all => "link_executable() is not implemented yet on Win32";
}
elsif ( ! $b->have_compiler ) {
plan skip_all => "no compiler available for testing";
}
else {
plan tests => 7;
}
ok $b, "created EU::CB object";
$source_file = File::Spec->catfile('t', 'compilet.c');
{
local *FH;
open FH, "> $source_file" or die "Can't create $source_file: $!";
print FH "int main(void) { return 11; }\n";
close FH;
}
ok -e $source_file, "generated '$source_file'";
# Compile
eval { $object_file = $b->compile(source => $source_file) };
is $@, q{}, "no exception from compilation";
ok -e $object_file, "found object file";
# Link
SKIP: {
skip "error compiling source", 3
unless -e $object_file;
my @temps;
eval { ($exe_file, @temps) = $b->link_executable(objects => $object_file) };
is $@, q{}, "no exception from linking";
ok -e $exe_file, "found executable file";
if ($^O eq 'os2') { # Analogue of LDLOADPATH...
# Actually, not needed now, since we do not link with the generated DLL
my $old = OS2::extLibpath(); # [builtin function]
$old = ";$old" if defined $old and length $old;
# To pass the sanity check, components must have backslashes...
OS2::extLibpath_set(".\\$old");
}
# Try the executable
my $ec = my_system($exe_file);
is $ec, 11, "got expected exit code from executable"
or print( $? == -1 ? "# Could not run '$exe_file'\n"
: "# Unexpected exit code '$ec'\n");
}
# Clean up
for ($source_file, $object_file, $exe_file) {
tr/"'//d;
1 while unlink;
}
sub my_system {
my $cmd = shift;
if ($^O eq 'VMS') {
return system("mcr $cmd");
}
return system($cmd) >> 8;
}
|
