6 $perl = File::Spec->rel2abs($^X);
9 chdir '../lib/ExtUtils/CBuilder'
10 or die "Can't chdir to lib/ExtUtils/CBuilder: $!";
19 # So we can get the return value of system()
27 require_ok "ExtUtils::CBuilder";
29 my $b = eval { ExtUtils::CBuilder->new(quiet => 1) };
30 ok( $b, "got CBuilder object" ) or diag $@;
32 # test missing compiler
33 $b->{config}{cc} = 'djaadjfkadjkfajdf';
34 $b->{config}{ld} = 'djaadjfkadjkfajdf';
35 is( $b->have_compiler, 0, "have_compiler: fake missing cc" );
38 $b->{have_compiler} = undef;
39 $b->{config}{cc} = "$perl -e1 --";
40 $b->{config}{ld} = "$perl -e1 --";
41 is( $b->have_compiler, 1, "have_compiler: fake present cc" );