This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test with Errno in autouse.t
authorJerry D. Hedden <jdhedden@cpan.org>
Sun, 18 Feb 2007 09:09:23 +0000 (01:09 -0800)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 20 Feb 2007 10:39:52 +0000 (10:39 +0000)
From: "Jerry D. Hedden" <jdhedden@yahoo.com>
Message-ID: <834019.44481.qm@web30203.mail.mud.yahoo.com>

p4raw-id: //depot/perl@30369

lib/autouse.t

index 2c52f42..b81a40f 100644 (file)
@@ -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";