/Compress/ modules are at version 2.021. Remove vestigal MAPs and comments.

[p5sagit/p5-mst-13.2.git] / ext / POSIX / t / sysconf.t

diff --git a/ext/POSIX/t/sysconf.t b/ext/POSIX/t/sysconf.t
index a1326a1..2dc9762 100644 (file)
--- a/ext/POSIX/t/sysconf.t
+++ b/ext/POSIX/t/sysconf.t
@@ -1,11 +1,6 @@
 #!perl -T
 
 BEGIN {
-    if ($ENV{PERL_CORE}) {
-        chdir 't';
-        @INC = '../lib';
-    }
-
     use Config;
     use Test::More;
     plan skip_all => "POSIX is unavailable" if $Config{'extensions'} !~ m!\bPOSIX\b!;
@@ -48,8 +43,11 @@ plan $tests
      : (skip_all => "No tests to run on this OS")
 ;
 
-my $curdir = File::Spec->curdir;
-$curdir = VMS::Filespec::fileify($curdir) if $^O eq 'VMS';
+# Don't test on "." as it can be networked storage which returns EINVAL
+# Testing on "/" may not be portable to non-Unix as it may not be readable
+# "/tmp" should be readable and likely also local.
+my $testdir = File::Spec->tmpdir;
+$testdir = VMS::Filespec::fileify($testdir) if $^O eq 'VMS';
 
 my $r;
 
@@ -77,8 +75,9 @@ sub _check_and_report {
 
 # testing fpathconf() on a non-terminal file
 SKIP: {
-    my $fd = POSIX::open($curdir, O_RDONLY)
-        or skip "could not open current directory ($!)", 3 * @path_consts;
+    my $fd = POSIX::open($testdir, O_RDONLY)
+        or skip "could not open test directory '$testdir' ($!)",
+         3 * @path_consts;
 
     for my $constant (@path_consts) {
            $! = 0;
@@ -92,8 +91,8 @@ SKIP: {
 # testing pathconf() on a non-terminal file
 for my $constant (@path_consts) {
        $! = 0;
-        $r = eval { pathconf( $curdir, eval "$constant()" ) };
-        _check_and_report( $@, $r, qq[calling pathconf("$curdir", $constant)] );
+        $r = eval { pathconf( $testdir, eval "$constant()" ) };
+        _check_and_report( $@, $r, qq[calling pathconf("$testdir", $constant)] );
 }
 
 SKIP: {