#!./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);
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);
}