X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FFileHandle.t;h=ddbd94474ee9848ac461bafe22023a019f8959d5;hb=b1fbf5c3d1dc6dd7934002da04dede2ae2e3ef65;hp=eaddf496db6e5a15ccf8e6f4882234de5fbac9f6;hpb=b695f709e8a342e35e482b0437eb6cdacdc58b6b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/FileHandle.t b/lib/FileHandle.t
index eaddf49..ddbd944 100755
--- a/lib/FileHandle.t
+++ b/lib/FileHandle.t
@@ -8,6 +8,10 @@ BEGIN {
 	print "1..0\n";
 	exit 0;
     }
+    if ($^O eq 'mpeix') {
+	print "1..0 # Skip: broken on MPE/iX\n";
+	exit 0;
+    }
 }
 
 use FileHandle;
@@ -18,7 +22,7 @@ autoflush STDOUT 1;
 $mystdout = new_from_fd FileHandle 1,"w";
 $| = 1;
 autoflush $mystdout;
-print "1..11\n";
+print "1..12\n";
 
 print $mystdout "ok ".fileno($mystdout)."\n";
 
@@ -89,3 +93,5 @@ else {
    exit(0);
   }
 }
+
+print FileHandle->new('','r') ? "not ok 12\n" : "ok 12\n";