Add appropriate skips to t/io/fs.t to fix test failures on Cygwin.

[perl5.git] / t / io / read.t

diff --git a/t/io/read.t b/t/io/read.t
index 16d32b1..6d590ff 100755 (executable)
--- a/t/io/read.t
+++ b/t/io/read.t
@@ -2,21 +2,40 @@
 
 # $RCSfile$
 
-print "1..1\n";
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+    require './test.pl';
+}
+
+use strict;
+eval 'use Errno';
+die $@ if $@ and !$ENV{PERL_CORE_MINITEST};
+
+plan tests => 2;
 
 open(A,"+>a");
 print A "_";
 seek(A,0,0);
 
-$b = "abcd"; 
+my $b = "abcd"; 
 $b = "";
 
 read(A,$b,1,4);
 
 close(A);
 
-if ($b eq "\000\000\000\000_") {
-       print "ok 1\n";
-} else { # Probably "\000bcd_"
-       print "not ok 1\n";
+unlink("a");
+
+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);
 }