/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 f19db68..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!;
@@ -36,7 +31,7 @@ my @path_consts_fifo = check qw(
 my @sys_consts = check qw(
     _SC_ARG_MAX _SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL
     _SC_NGROUPS_MAX _SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS
-    _SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION
+    _SC_STREAM_MAX _SC_VERSION _SC_TZNAME_MAX
 );
 
 my $tests = 2 * 3 * @path_consts +
@@ -48,31 +43,41 @@ 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;
 
+my $TTY = "/dev/tty";
+
 sub _check_and_report {
     my ($eval_status, $return_val, $description) = @_;
     my $success = defined($return_val) || $! == 0;
     is( $eval_status, '', $description );
-    ok( $success, "\tchecking that the returned value is defined (" 
-                    . (defined($return_val) ? "yes, it's $return_val)" : "it isn't)"
-                    . " or that errno is clear ("
-                    . (!($!+0) ? "it is)" : "it isn't, it's $!)"))
-                    );
+    SKIP: {
+       skip "terminal constants set errno on QNX", 1
+           if $^O eq 'nto' and $description =~ $TTY;
+        ok( $success, "\tchecking that the returned value is defined (" 
+                        . (defined($return_val) ? "yes, it's $return_val)" : "it isn't)"
+                        . " or that errno is clear ("
+                        . (!($!+0) ? "it is)" : "it isn't, it's $!)"))
+                        );
+    }
     SKIP: {
         skip "constant not implemented on $^O or no limit in effect", 1 
-            if $success && !defined($return_val);
+            if !defined($return_val);
         ok( looks_like_number($return_val), "\tchecking that the returned value looks like a number" );
     }
 }
 
 # 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;
@@ -86,13 +91,11 @@ 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: {
-    my $TTY = "/dev/tty";
-
     my $n = 2 * 3 * @path_consts_terminal;
 
     -c $TTY
@@ -151,6 +154,13 @@ END {
     1 while unlink($fifo);
 }
 
+SKIP: {
+    if($^O eq 'cygwin') {
+        pop @sys_consts;
+        skip("No _SC_TZNAME_MAX on Cygwin", 3);
+    }
+        
+}
 # testing sysconf()
 for my $constant (@sys_consts) {
        $! = 0;