1#!./perl 2 3# $RCSfile$ 4 5BEGIN { 6 chdir 't' if -d 't'; 7 @INC = '../lib'; 8 require './test.pl'; 9} 10 11use strict; 12eval 'use Errno'; 13die $@ if $@ and !$ENV{PERL_CORE_MINITEST}; 14 15plan tests => 2; 16 17open(A,"+>a"); 18print A "_"; 19seek(A,0,0); 20 21my $b = "abcd"; 22$b = ""; 23 24read(A,$b,1,4); 25 26close(A); 27 28unlink("a"); 29 30is($b,"\000\000\000\000_"); # otherwise probably "\000bcd_" 31 32unlink 'a'; 33 34SKIP: { 35 skip "no EBADF", 1 if (!exists &Errno::EBADF); 36 37 $! = 0; 38 read(B,$b,1); 39 ok($! == &Errno::EBADF); 40} 41