This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
66a025f01a10b4df224abc8700342eacc47b7011
[perl5.git] / cpan / ExtUtils-CBuilder / t / 01-basic.t
1 #! perl -w
2
3 use strict;
4 use Test::More;
5 BEGIN { 
6   if ($^O eq 'VMS') {
7     # So we can get the return value of system()
8     require vmsish;
9     import vmsish;
10   }
11 }
12 use ExtUtils::CBuilder;
13 use File::Spec;
14
15 # TEST doesn't like extraneous output
16 my $quiet = $ENV{PERL_CORE} && !$ENV{HARNESS_ACTIVE};
17 my ($source_file, $object_file, $lib_file);
18
19 my $b = ExtUtils::CBuilder->new(quiet => $quiet);
20
21 # test plan
22 if ( ! $b->have_compiler ) {
23   plan skip_all => "no compiler available for testing";
24 }
25 else {
26   plan tests => 10;
27 }
28
29 ok $b, "created EU::CB object";
30
31 ok $b->have_compiler, "have_compiler";
32
33 $source_file = File::Spec->catfile('t', 'compilet.c');
34 {
35   local *FH;
36   open FH, "> $source_file" or die "Can't create $source_file: $!";
37   print FH "int boot_compilet(void) { return 1; }\n";
38   close FH;
39 }
40 ok -e $source_file, "source file '$source_file' created";
41
42 $object_file = $b->object_file($source_file);
43 ok 1;
44
45 is $object_file, $b->compile(source => $source_file);
46
47 $lib_file = $b->lib_file($object_file);
48 ok 1;
49
50 my ($lib, @temps) = $b->link(objects => $object_file,
51                              module_name => 'compilet');
52 $lib =~ tr/"'//d;
53 is $lib_file, $lib;
54
55 for ($source_file, $object_file, $lib_file) {
56   tr/"'//d;
57   1 while unlink;
58 }
59
60 if ($^O eq 'VMS') {
61    1 while unlink 'COMPILET.LIS';
62    1 while unlink 'COMPILET.OPT';
63 }
64
65 my @words = $b->split_like_shell(' foo bar');
66
67 SKIP: {
68   skip "MSWindows", 3 if $^O =~ m/MSWin/;
69   is( @words, 2 );
70   is( $words[0], 'foo' );
71   is( $words[1], 'bar' );
72 }