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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145
|
#!/usr/bin/perl -w
# This is a test of the verification of the arguments to
# WriteMakefile.
BEGIN {
unshift @INC, 't/lib';
}
use strict;
use Test::More tests => 16;
use File::Temp qw[tempdir];
use TieOut;
use MakeMaker::Test::Utils;
use MakeMaker::Test::Setup::BFD;
use ExtUtils::MakeMaker;
my $tmpdir = tempdir( DIR => 't', CLEANUP => 1 );
chdir $tmpdir;
perl_lib();
ok( setup_recurs(), 'setup' );
END {
ok( chdir File::Spec->updir );
ok( teardown_recurs(), 'teardown' );
}
ok( chdir 'Big-Dummy', "chdir'd to Big-Dummy" ) ||
diag("chdir failed: $!");
{
ok( my $stdout = tie *STDOUT, 'TieOut' );
my $warnings = '';
local $SIG{__WARN__} = sub {
$warnings .= join '', @_;
};
# prerequisite warnings are disabled while building the perl core:
local $ENV{PERL_CORE} = 0;
WriteMakefile(
NAME => 'Big::Dummy',
PREREQ_PM => {
strict => 0
}
);
is $warnings, '';
$warnings = '';
WriteMakefile(
NAME => 'Big::Dummy',
PREREQ_PM => {
strict => 99999
}
);
is $warnings,
sprintf("Warning: prerequisite strict 99999 not found. We have %s.\n",
$strict::VERSION);
$warnings = '';
WriteMakefile(
NAME => 'Big::Dummy',
PREREQ_PM => {
"I::Do::Not::Exist" => 0,
}
);
is $warnings,
"Warning: prerequisite I::Do::Not::Exist 0 not found.\n";
$warnings = '';
WriteMakefile(
NAME => 'Big::Dummy',
PREREQ_PM => {
"I::Do::Not::Exist" => "",
}
);
my @warnings = split /\n/, $warnings;
is @warnings, 2;
like $warnings[0], qr{^Unparsable version '' for prerequisite I::Do::Not::Exist\b};
is $warnings[1], "Warning: prerequisite I::Do::Not::Exist 0 not found.";
$warnings = '';
WriteMakefile(
NAME => 'Big::Dummy',
PREREQ_PM => {
"I::Do::Not::Exist" => 0,
"strict" => 99999,
}
);
is $warnings,
"Warning: prerequisite I::Do::Not::Exist 0 not found.\n".
sprintf("Warning: prerequisite strict 99999 not found. We have %s.\n",
$strict::VERSION);
$warnings = '';
eval {
WriteMakefile(
NAME => 'Big::Dummy',
PREREQ_PM => {
"I::Do::Not::Exist" => 0,
"Nor::Do::I" => 0,
"strict" => 99999,
},
PREREQ_FATAL => 1,
);
};
is $warnings, '';
is $@, <<'END', "PREREQ_FATAL";
MakeMaker FATAL: prerequisites not found.
I::Do::Not::Exist not installed
Nor::Do::I not installed
strict 99999
Please install these modules first and rerun 'perl Makefile.PL'.
END
$warnings = '';
eval {
WriteMakefile(
NAME => 'Big::Dummy',
PREREQ_PM => {
"I::Do::Not::Exist" => 0,
},
CONFIGURE => sub {
require I::Do::Not::Exist;
},
PREREQ_FATAL => 1,
);
};
is $warnings, '';
is $@, <<'END', "PREREQ_FATAL happens before CONFIGURE";
MakeMaker FATAL: prerequisites not found.
I::Do::Not::Exist not installed
Please install these modules first and rerun 'perl Makefile.PL'.
END
}
|