#!/usr/bin/perl use strict; BEGIN { $| = 1; $^W = 1; } use Test::More tests => 11; use File::Spec; use t::lib::Test; require ExtUtils::MakeMaker; use vars qw{ $PREREQ_PM $MIN_PERL_VERSION $BUILD_REQUIRES }; # Regular build SCOPE: { ok( create_dist( 'Foo', { 'Makefile.PL' => <<"END_DSL" }), 'create_dist' ); use inc::Module::Install 0.81; name 'Foo'; version '0.01'; license 'perl'; perl_version '5.005'; requires_from 'lib/Foo.pm'; requires 'File::Spec' => '0.79'; WriteAll; END_DSL ok( run_makefile_pl(run_params=>['PREREQ_PRINT >test']), 'build_dist' ); my $file = file('test'); ok( -f $file); my $content = _read($file); ok( $content, 'file is not empty'); ok( $content =~ s/^.*\$PREREQ_PM = \{/\$PREREQ_PM = {/s,'PREREQ_PM found'); eval ($content); ok( !$@,'correct content'); ok( exists $PREREQ_PM->{'File::Spec'}); if ( eval($ExtUtils::MakeMaker::VERSION) < 6.55_03 ) { ok( exists $PREREQ_PM->{'ExtUtils::MakeMaker'}); ok( !exists $BUILD_REQUIRES->{'ExtUtils::MakeMaker'}); ok (1); } else { #best to check both because user can have any version ok( exists $BUILD_REQUIRES->{'ExtUtils::MakeMaker'}); ok( !exists $PREREQ_PM->{'ExtUtils::MakeMaker'}); is( $MIN_PERL_VERSION, '5.005' , 'correct Perl version'); } ok( kill_dist(), 'kill_dist' ); }