4 if( $ENV{PERL_CORE} ) {
6 @INC = ('../lib', 'lib');
7 require Config; import Config;
8 if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
9 print "1..0 # Skip: Data::Dumper was not built\n";
14 unshift @INC, 't/lib';
21 use Test::More tests => 11;
22 use MakeMaker::Test::Utils;
23 use MakeMaker::Test::Setup::BFD;
25 # 'make disttest' sets a bunch of environment variables which interfere
27 delete @ENV{qw(PREFIX LIB MAKEFLAGS)};
29 my $Perl = which_perl();
30 my $Makefile = makefile_name();
31 my $Is_VMS = $^O eq 'VMS';
33 chdir($Is_VMS ? 'BFD_TEST_ROOT:[t]' : 't');
38 ok( setup_recurs(), 'setup' );
40 ok( chdir File::Spec->updir );
41 ok( teardown_recurs(), 'teardown' );
44 ok( chdir('Big-Dummy'), "chdir'd to Big-Dummy" ) ||
45 diag("chdir failed: $!");
48 my $prereq_out = run(qq{$Perl Makefile.PL "PREREQ_PRINT=1"});
49 ok( !-r $Makefile, "PREREQ_PRINT produces no $Makefile" );
50 is( $?, 0, ' exited normally' );
52 package _Prereq::Print;
54 $PREREQ_PM = undef; # shut up "used only once" warning.
56 ::is_deeply( $PREREQ_PM, { strict => 0 }, 'prereqs dumped' );
57 ::is( $@, '', ' without error' );
61 $prereq_out = run(qq{$Perl Makefile.PL "PRINT_PREREQ=1"});
62 ok( !-r $Makefile, "PRINT_PREREQ produces no $Makefile" );
63 is( $?, 0, ' exited normally' );
64 ::like( $prereq_out, qr/^perl\(strict\) \s* >= \s* 0 \s*$/x,
69 #my $prereq_out = run(qq{$Perl Makefile.PL "PREREQ_PRINT=0"});
70 #ok( -r $Makefile, "PREREQ_PRINT=0 produces a $Makefile" );
71 #is( $?, 0, ' exited normally' );
75 #my $prereq_out = run(qq{$Perl Makefile.PL "PRINT_PREREQ=1"});
76 #ok( -r $Makefile, "PRINT_PREREQ=0 produces a $Makefile" );
77 #is( $?, 0, ' exited normally' );