| Commit | Line | Data |
|---|
| 69ff8adf |
1 | #!/usr/bin/perl -w |
| 2 | |
| 3 | # This is a test of the verification of the arguments to |
| 4 | # WriteMakefile. |
| 5 | |
| 6 | BEGIN { |
| 7 | if( $ENV{PERL_CORE} ) { |
| 8 | chdir 't' if -d 't'; |
| 9 | @INC = ('../lib', 'lib'); |
| 10 | } |
| 11 | else { |
| 12 | unshift @INC, 't/lib'; |
| 13 | } |
| 14 | } |
| 15 | |
| 16 | use strict; |
| 17 | use Test::More tests => 12; |
| 18 | |
| 19 | use TieOut; |
| 20 | use MakeMaker::Test::Utils; |
| 21 | |
| 22 | use ExtUtils::MakeMaker; |
| 23 | |
| 24 | chdir 't'; |
| 25 | |
| 26 | perl_lib(); |
| 27 | |
| 28 | ok( chdir 'Big-Dummy', "chdir'd to Big-Dummy" ) || |
| 29 | diag("chdir failed: $!"); |
| 30 | |
| 31 | { |
| 32 | ok( my $stdout = tie *STDOUT, 'TieOut' ); |
| 33 | my $warnings = ''; |
| 34 | local $SIG{__WARN__} = sub { |
| 35 | $warnings .= join '', @_; |
| 36 | }; |
| 37 | |
| 38 | my $mm = WriteMakefile( |
| 39 | NAME => 'Big::Dummy', |
| 40 | VERSION_FROM => 'lib/Big/Dummy.pm', |
| 41 | MAN3PODS => ' ', # common mistake |
| 42 | ); |
| 43 | |
| 44 | is( $warnings, <<VERIFY ); |
| 45 | WARNING: MAN3PODS takes a hash reference not a string/number. |
| 46 | Please inform the author. |
| 47 | VERIFY |
| 48 | is_deeply( $mm->{MAN3PODS}, {}, 'Wrong argument type corrected' ); |
| 49 | |
| 50 | $warnings = ''; |
| 51 | $mm = WriteMakefile( |
| 52 | NAME => 'Big::Dummy', |
| 53 | VERSION_FROM => 'lib/Big/Dummy.pm', |
| 54 | AUTHOR => sub {}, |
| 55 | ); |
| 56 | |
| 57 | is( $warnings, <<VERIFY ); |
| 58 | WARNING: AUTHOR takes a string/number not a code reference. |
| 59 | Please inform the author. |
| 60 | VERIFY |
| 61 | |
| 62 | is_deeply( $mm->{AUTHOR}, '' ); |
| 63 | |
| 64 | |
| 65 | # LIBS accepts *both* a string or an array ref. The first cut of |
| 66 | # our verification did not take this into account. |
| 67 | $warnings = ''; |
| 68 | $mm = WriteMakefile( |
| 69 | NAME => 'Big::Dummy', |
| 70 | VERSION_FROM => 'lib/Big/Dummy.pm', |
| 71 | LIBS => '-lwibble -lwobble', |
| 72 | ); |
| 73 | |
| 74 | # We'll get warnings about the bogus libs, that's ok. |
| 75 | unlike( $warnings, qr/WARNING: .* takes/ ); |
| 76 | is_deeply( $mm->{LIBS}, ['-lwibble -lwobble'] ); |
| 77 | |
| 78 | $warnings = ''; |
| 79 | $mm = WriteMakefile( |
| 80 | NAME => 'Big::Dummy', |
| 81 | VERSION_FROM => 'lib/Big/Dummy.pm', |
| 82 | LIBS => ['-lwibble', '-lwobble'], |
| 83 | ); |
| 84 | |
| 85 | # We'll get warnings about the bogus libs, that's ok. |
| 86 | unlike( $warnings, qr/WARNING: .* takes/ ); |
| 87 | is_deeply( $mm->{LIBS}, ['-lwibble', '-lwobble'] ); |
| 88 | |
| 89 | $warnings = ''; |
| 90 | $mm = WriteMakefile( |
| 91 | NAME => 'Big::Dummy', |
| 92 | VERSION_FROM => 'lib/Big/Dummy.pm', |
| 93 | LIBS => { wibble => "wobble" }, |
| 94 | ); |
| 95 | |
| 96 | # We'll get warnings about the bogus libs, that's ok. |
| 97 | like( $warnings, qr{^WARNING: LIBS takes a array reference or string/number not a hash reference}m ); |
| 98 | is_deeply( $mm->{LIBS}, [] ); |
| 99 | |
| 100 | } |
projects / p5sagit/p5-mst-13.2.git / blame