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
|
use strict;
use Test::More;
BEGIN {
plan skip_all => 'no Module::Build' if !eval { require Module::Build; 1 };
plan skip_all => 'no ExtUtils::CBuilder' if !eval { require ExtUtils::CBuilder; 1 };
plan skip_all => 'perl 5.8.8 and EU::CBuilder bug if CC has "++"' if $ExtUtils::CBuilder::VERSION <= 0.280230 and $] lt '5.010';
}
use lib 't/lib';
use TestUtils;
diag "Module::Build version: $Module::Build::VERSION";
diag "ExtUtils::CBuilder version: $ExtUtils::CBuilder::VERSION";
my $separator = ( '=' x 40 . "\n" );
prepare_test( 't/module', 't/module_build' );
my( $ok, $configure, $build, $test ) = build_module_build( 't/module_build' );
ok( $ok, 'build with Module::Build' );
if( !$ok ) {
diag( "Build.PL output\n", $separator, $configure, $separator );
diag( "Build output\n", $separator, $build, $separator ) if $build;
diag( "Build test output\n", $separator, $test, $separator ) if $test;
}
done_testing;
|
