9f14e8f0a7d8c5f7cd7b4753643776ffb8e08769
[perl.git] / lib / ExtUtils / CBuilder / t / 01-basic.t
1 #! perl -w
2
3 BEGIN {
4   if ($ENV{PERL_CORE}) {
5     chdir 't' if -d 't';
6     chdir '../lib/ExtUtils/CBuilder'
7       or die "Can't chdir to lib/ExtUtils/CBuilder: $!";
8     @INC = qw(../..);
9   }
10 }
11
12 use strict;
13 use Test;
14 BEGIN { plan tests => 11 }
15
16 use ExtUtils::CBuilder;
17 use File::Spec;
18 ok 1;
19
20 # TEST doesn't like extraneous output
21 my $quiet = $ENV{PERL_CORE} && !$ENV{HARNESS_ACTIVE};
22
23 my $b = ExtUtils::CBuilder->new(quiet => $quiet);
24 ok $b;
25
26 ok $b->have_compiler;
27
28 my $source_file = File::Spec->catfile('t', 'compilet.c');
29 {
30   local *FH;
31   open FH, "> $source_file" or die "Can't create $source_file: $!";
32   print FH "int boot_compilet(void) { return 1; }\n";
33   close FH;
34 }
35 ok -e $source_file;
36
37 my $object_file = $b->object_file($source_file);
38 ok 1;
39
40 ok $object_file, $b->compile(source => $source_file);
41
42 my $lib_file = $b->lib_file($object_file);
43 ok 1;
44
45 my ($lib, @temps) = $b->link(objects => $object_file,
46                              module_name => 'compilet');
47 $lib =~ tr/"'//d;
48 ok $lib_file, $lib;
49
50 for ($source_file, $object_file, $lib_file) {
51   tr/"'//d;
52   1 while unlink;
53 }
54
55 my @words = $b->split_like_shell(' foo bar');
56 ok @words, 2;
57 ok $words[0], 'foo';
58 ok $words[1], 'bar';