diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-05-30 15:39:06 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-30 12:47:11 +0000 |
| commit | 5a02ccb1df652f2b0dd47663c285921ec8e27bd2 (patch) | |
| tree | fce2a114877da0f102d92334e09af1c52232b6f1 /t | |
| parent | b7063bb1b92ff84997e600c7569e39546bc04230 (diff) | |
| download | perl-5a02ccb1df652f2b0dd47663c285921ec8e27bd2.tar.gz | |
Re: [PATCH lib/autouse.pm t/pragma/autouse.t] (was Re: [ID 20010528.001] use autouse 'URI::Escape' => qw(URI::Escape::uri_escape) failed)
Message-ID: <20010530143906.E670@blackrider.blackstar.co.uk>
p4raw-id: //depot/perl@10318
Diffstat (limited to 't')
| -rw-r--r-- | t/pragma/autouse.t | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/t/pragma/autouse.t b/t/pragma/autouse.t index 3dc5483017..ecc1289167 100644 --- a/t/pragma/autouse.t +++ b/t/pragma/autouse.t @@ -6,12 +6,17 @@ BEGIN { } use Test; -BEGIN { plan tests => 9; } +BEGIN { plan tests => 10; } BEGIN { require autouse; eval { - "autouse"->import('List::Util' => 'List::Util::first'); + "autouse"->import('List::Util' => 'List::Util::first(&@)'); + }; + ok( !$@ ); + + eval { + "autouse"->import('List::Util' => 'Foo::min'); }; ok( $@, qr/^autouse into different package attempted/ ); |