diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2002-06-15 23:49:27 -0400 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-06-16 09:00:51 +0000 |
| commit | d5d4ec93a4679c6ba299b53290a0903a25094cec (patch) | |
| tree | f614812a6656569c4e54761ad97d67769cdfad04 /lib/ExtUtils/t/writemakefile_args.t | |
| parent | 90fcb90269601d48315e5be1fd5ddd0619d05f27 (diff) | |
| download | perl-d5d4ec93a4679c6ba299b53290a0903a25094cec.tar.gz | |
Subject: [PATCH] Sync MakeMaker 6.01 -> 6.02
Date: Sun, 16 Jun 2002 03:49:27 -0400
Message-Id: <20020616074927.GD7403@ool-18b93024.dyn.optonline.net>
Subject: [PATCH] Test::Harness 2.24 -> 2.25
From: Michael G Schwern <schwern@pobox.com>
Date: Sun, 16 Jun 2002 03:58:40 -0400
Message-Id: <20020616075840.GE7403@ool-18b93024.dyn.optonline.net>
p4raw-id: //depot/perl@17256
Diffstat (limited to 'lib/ExtUtils/t/writemakefile_args.t')
| -rw-r--r-- | lib/ExtUtils/t/writemakefile_args.t | 23 |
1 files changed, 18 insertions, 5 deletions
diff --git a/lib/ExtUtils/t/writemakefile_args.t b/lib/ExtUtils/t/writemakefile_args.t index 3877aa661f..2160f08255 100644 --- a/lib/ExtUtils/t/writemakefile_args.t +++ b/lib/ExtUtils/t/writemakefile_args.t @@ -14,7 +14,7 @@ BEGIN { } use strict; -use Test::More tests => 12; +use Test::More tests => 16; use TieOut; use MakeMaker::Test::Utils; @@ -53,7 +53,7 @@ VERIFY VERSION_FROM => 'lib/Big/Dummy.pm', AUTHOR => sub {}, ); - + is( $warnings, <<VERIFY ); WARNING: AUTHOR takes a string/number not a code reference. Please inform the author. @@ -70,7 +70,7 @@ VERIFY VERSION_FROM => 'lib/Big/Dummy.pm', LIBS => '-lwibble -lwobble', ); - + # We'll get warnings about the bogus libs, that's ok. unlike( $warnings, qr/WARNING: .* takes/ ); is_deeply( $mm->{LIBS}, ['-lwibble -lwobble'] ); @@ -81,7 +81,7 @@ VERIFY VERSION_FROM => 'lib/Big/Dummy.pm', LIBS => ['-lwibble', '-lwobble'], ); - + # We'll get warnings about the bogus libs, that's ok. unlike( $warnings, qr/WARNING: .* takes/ ); is_deeply( $mm->{LIBS}, ['-lwibble', '-lwobble'] ); @@ -92,9 +92,22 @@ VERIFY VERSION_FROM => 'lib/Big/Dummy.pm', LIBS => { wibble => "wobble" }, ); - + # We'll get warnings about the bogus libs, that's ok. like( $warnings, qr{^WARNING: LIBS takes a array reference or string/number not a hash reference}m ); is_deeply( $mm->{LIBS}, [] ); + + $warnings = ''; + $mm = WriteMakefile( + NAME => 'Big::Dummy', + WIBBLE => 'something', + wump => { foo => 42 }, + ); + + like( $warnings, qr{^WARNING: WIBBLE is not a known parameter.\n}m ); + like( $warnings, qr{^WARNING: wump is not a known parameter.\n}m ); + + is( $mm->{WIBBLE}, 'something' ); + is_deeply( $mm->{wump}, { foo => 42 } ); } |