[patch@34016] VMS passes these t/io/open.t tests now.

[p5sagit/p5-mst-13.2.git] / t / io / read.t

diff --git a/t/io/read.t b/t/io/read.t
index b27fde1..2665ecb 100755 (executable)
--- a/t/io/read.t
+++ b/t/io/read.t
@@ -1,14 +1,22 @@
 #!./perl
 
-# $RCSfile$
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+    require './test.pl';
+}
+
+use strict;
+eval 'use Errno';
+die $@ if $@ and !$ENV{PERL_CORE_MINITEST};
 
-print "1..1\n";
+plan tests => 2;
 
 open(A,"+>a");
 print A "_";
 seek(A,0,0);
 
-$b = "abcd"; 
+my $b = "abcd"; 
 $b = "";
 
 read(A,$b,1,4);
@@ -17,10 +25,15 @@ close(A);
 
 unlink("a");
 
-if ($b eq "\000\000\000\000_") {
-       print "ok 1\n";
-} else { # Probably "\000bcd_"
-       print "not ok 1\n";
-}
+is($b,"\000\000\000\000_"); # otherwise probably "\000bcd_"
 
 unlink 'a';
+
+SKIP: {
+    skip "no EBADF", 1 if (!exists &Errno::EBADF);
+
+    $! = 0;
+    no warnings 'unopened';
+    read(B,$b,1);
+    ok($! == &Errno::EBADF);
+}