From: Jerry D. Hedden Date: Sun, 18 Feb 2007 09:09:23 +0000 (-0800) Subject: Test with Errno in autouse.t X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=43bd726c03df84f00c3dd8d8587f30fbdb1b8518;p=p5sagit%2Fp5-mst-13.2.git Test with Errno in autouse.t From: "Jerry D. Hedden" Message-ID: <834019.44481.qm@web30203.mail.mud.yahoo.com> p4raw-id: //depot/perl@30369 --- diff --git a/lib/autouse.t b/lib/autouse.t index 2c52f42..b81a40f 100644 --- a/lib/autouse.t +++ b/lib/autouse.t @@ -51,13 +51,12 @@ use autouse 'Carp' => qw(carp croak); } -# Test that autouse's lazy module loading works. We assume that nothing -# involved in this test uses Text::Soundex, which is pretty safe. -use autouse 'Text::Soundex' => qw(soundex); +# Test that autouse's lazy module loading works. +use autouse 'Errno' => qw(EPERM); -my $mod_file = 'Text/Soundex.pm'; # just fine and portable for %INC +my $mod_file = 'Errno.pm'; # just fine and portable for %INC ok( !exists $INC{$mod_file} ); -ok( soundex('Basset'), 'B230' ); +ok( EPERM, 1 ); ok( exists $INC{$mod_file} ); use autouse Env => "something";