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
95
96
97
98
99
100
101
102
103
104
105
106
107
|
#! perl -w
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 does not like extraneous output
my $quiet = $ENV{PERL_CORE} && !$ENV{HARNESS_ACTIVE};
my ($source_file, $object_file, $lib_file);
my $b = ExtUtils::CBuilder->new(quiet => $quiet);
# test plan
if ( ! $b->have_compiler ) {
plan skip_all => "no compiler available for testing";
}
else {
plan tests => 12;
}
ok $b, "created EU::CB object";
ok $b->have_compiler, "have_compiler";
$source_file = File::Spec->catfile('t', 'basict.c');
{
local *FH;
open FH, '>', $source_file or die "Can't create $source_file: $!";
print FH "int boot_basict(void) { return 1; }\n";
close FH;
}
ok -e $source_file, "source file '$source_file' created";
$object_file = $b->object_file($source_file);
ok 1;
is $object_file, $b->compile(source => $source_file);
$lib_file = $b->lib_file($object_file, module_name => 'basict');
ok 1;
my ($lib, @temps) = $b->link(objects => $object_file,
module_name => 'basict');
$lib =~ tr/"'//d;
$_ = File::Spec->rel2abs($_) for $lib_file, $lib;
is $lib_file, $lib;
for ($source_file, $object_file, $lib_file) {
tr/"'//d;
1 while unlink;
}
if ($^O eq 'VMS') {
1 while unlink 'BASICT.LIS';
1 while unlink 'BASICT.OPT';
}
my @words = $b->split_like_shell(' foo bar');
SKIP: {
skip "MSWindows", 3 if $^O =~ m/MSWin/;
is( @words, 2 );
is( $words[0], 'foo' );
is( $words[1], 'bar' );
}
# include_dirs should be settable as string or list
{
package Sub;
use vars '@ISA';
@ISA = ('ExtUtils::CBuilder');
my $saw = 0;
sub do_system {
if ($^O eq "MSWin32") {
# ExtUtils::CBuilder::MSVC::write_compiler_script() puts the
# include_dirs into a response file and not the commandline
for (@_) {
next unless /^\@"(.*)"$/;
open(my $fh, "<", $1) or next;
local $/;
$saw = 1 if <$fh> =~ /another dir/;
last;
}
}
$saw = 1 if grep {$_ =~ /another dir/} @_;
return 1;
}
package main;
my $s = Sub->new();
$s->compile(source => 'foo',
include_dirs => 'another dir');
ok $saw;
$saw = 0;
$s->compile(source => 'foo',
include_dirs => ['a dir', 'another dir']);
ok $saw;
}
|
