Pack Patch (was Re: 5.002 - pack/unpack does not do "I" right)

[p5sagit/p5-mst-13.2.git] / t / op / stat.t

diff --git a/t/op/stat.t b/t/op/stat.t
index b361da2..0ec3168 100755 (executable)
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -1,7 +1,8 @@
 #!./perl
 
 # $RCSfile: stat.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:28 $
-
+# 950521 DFD    This version hacked to make test 39 succeed on MachTen
+#               though the O.S. wrongly thinks /dev/null is a terminal
 print "1..56\n";
 
 chop($cwd = `pwd`);
@@ -34,6 +35,8 @@ if (($mtime && $mtime != $ctime) || $cwd =~ m#/afs/#) {
 }
 else {
     print "not ok 4\n";
+    print '#4 If test op/stat.t fails test 4, check if you are on a tmpfs';
+    print '#4 of some sort.  Building in /tmp sometimes has this problem.';
 }
 print "#4      :$mtime: != :$ctime:\n";
 
@@ -113,6 +116,7 @@ if (! -b '.') {print "ok 34\n";} else {print "not ok 34\n";}
 $cnt = $uid = 0;
 
 die "Can't run op/stat.t test 35 without pwd working" unless $cwd;
+print ("not ok 35\n"), goto tty_test unless -d '/usr/bin';
 chdir '/usr/bin' || die "Can't cd to /usr/bin";
 while (defined($_ = <*>)) {
     $cnt++;
@@ -125,7 +129,9 @@ chdir $cwd || die "Can't cd back to $cwd";
 if ($uid > 0 && $uid < $cnt)
     {print "ok 35\n";}
 else
-    {print "not ok 35 ($uid $cnt)\n";}
+    {print "not ok 35 \n# ($uid $cnt)\n";}
+
+tty_test:
 
 unless (open(tty,"/dev/tty")) {
     print STDERR "Can't open /dev/tty--run t/TEST outside of make.\n";
@@ -135,7 +141,8 @@ if (-c tty) {print "ok 37\n";} else {print "not ok 37\n";}
 close(tty);
 if (! -t tty) {print "ok 38\n";} else {print "not ok 38\n";}
 open(null,"/dev/null");
-if (! -t null || -e '/xenix') {print "ok 39\n";} else {print "not ok 39\n";}
+if (! -t null || -e '/xenix' || -e '/MachTen')
+       {print "ok 39\n";} else {print "not ok 39\n";}
 close(null);
 if (-t) {print "ok 40\n";} else {print "not ok 40\n";}
 
@@ -144,8 +151,8 @@ if (-t) {print "ok 40\n";} else {print "not ok 40\n";}
 if (-T 'op/stat.t') {print "ok 41\n";} else {print "not ok 41\n";}
 if (! -B 'op/stat.t') {print "ok 42\n";} else {print "not ok 42\n";}
 
-if (-B './perl') {print "ok 43\n";} else {print "not ok 43\n";}
-if (! -T './perl') {print "ok 44\n";} else {print "not ok 44\n";}
+if (-B './perl' || -B './perl.exe') {print "ok 43\n";} else {print "not ok 43\n";}
+if (! -T './perl' && ! -T './perl.exe') {print "ok 44\n";} else {print "not ok 44\n";}
 
 open(FOO,'op/stat.t');
 eval { -T FOO; };