Adding explicit requirements for tests. Thanks to Leont for GH#13

david-dick · Jan 8, 2025 · 9f8b09a · 9f8b09a
1 parent e8e33a6
commit 9f8b09a
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 2 deletions.
diff --git a/Makefile.PL b/Makefile.PL
@@ -56,6 +56,8 @@ WriteMakefile(
         'ExtUtils::MakeMaker' => 0,
     },
     TEST_REQUIRES => {
+        'Encode'      => 0,
+        'POSIX'       => 0,
         'Test::More'  => 0,
         'Test::Pod'  => 1.14,
     },

diff --git a/t/core_read.t b/t/core_read.t
@@ -6,6 +6,7 @@ use Test::More;
 use English();
 use Carp();
 use English qw( -no_match_vars );
+use POSIX();
 use Exporter();
 use XSLoader();
 use constant;
@@ -37,7 +38,6 @@ SKIP: {
 		*CORE::GLOBAL::read = sub { $! = POSIX::EACCES(); return };
 		*CORE::GLOBAL::sysread = sub { $! = POSIX::EACCES(); return };
 		use warnings;
-		require POSIX;
 		my $required_error_message = q[(?:] . (quotemeta POSIX::strerror(POSIX::EACCES())) . q[|Permission[ ]denied)];
 		require FileHandle;
 		@INC = qw(blib/lib); # making sure we're testing pure perl version

diff --git a/t/core_sysopen.t b/t/core_sysopen.t
@@ -5,6 +5,7 @@ use warnings;
 use Test::More;
 use English();
 use Carp();
+use POSIX();
 use English qw( -no_match_vars );
 use Exporter();
 use XSLoader();
@@ -18,7 +19,6 @@ SKIP: {
 		no warnings;
 		*CORE::GLOBAL::sysopen = sub { $! = POSIX::EACCES(); return };
 		use warnings;
-		require POSIX;
 		my $required_error_message = q[(?:] . (quotemeta POSIX::strerror(POSIX::EACCES())) . q[|Permission[ ]denied)];
 		require FileHandle;
 		@INC = qw(blib/lib); # making sure we're testing pure perl version

diff --git a/t/getrandom.t b/t/getrandom.t
@@ -1,5 +1,6 @@
 use Test::More;
 use FileHandle();
+use POSIX();
 use Config;
 use strict;
 use warnings;