This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Perl_hv_placeholders_get() actually takes a const HV *hv.
[perl5.git]
/
lib
/
autouse.t
diff --git
a/lib/autouse.t
b/lib/autouse.t
index
bc8e401
..
d4ca15a
100644
(file)
--- a/
lib/autouse.t
+++ b/
lib/autouse.t
@@
-3,6
+3,11
@@
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
+ require Config;
+ if (($Config::Config{'extensions'} !~ m!\bList/Util\b!) ){
+ print "1..0 # Skip -- Perl configured without List::Util module\n";
+ exit 0;
+ }
}
use Test;
}
use Test;
@@
-46,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( !exists $INC{$mod_file} );
-ok(
soundex('Basset'), 'B230' );
+ok(
EPERM ); # test if non-zero
ok( exists $INC{$mod_file} );
use autouse Env => "something";
ok( exists $INC{$mod_file} );
use autouse Env => "something";