1N/A#!./perl
1N/A
1N/A# $RCSfile$
1N/A
1N/ABEGIN {
1N/A chdir 't' if -d 't';
1N/A @INC = '../lib';
1N/A require './test.pl';
1N/A}
1N/A
1N/Ause strict;
1N/Aeval 'use Errno';
1N/Adie $@ if $@ and !$ENV{PERL_CORE_MINITEST};
1N/A
1N/Aplan tests => 2;
1N/A
1N/Aopen(A,"+>a");
1N/Aprint A "_";
1N/Aseek(A,0,0);
1N/A
1N/Amy $b = "abcd";
1N/A$b = "";
1N/A
1N/Aread(A,$b,1,4);
1N/A
1N/Aclose(A);
1N/A
1N/Aunlink("a");
1N/A
1N/Ais($b,"\000\000\000\000_"); # otherwise probably "\000bcd_"
1N/A
1N/Aunlink 'a';
1N/A
1N/ASKIP: {
1N/A skip "no EBADF", 1 if (!exists &Errno::EBADF);
1N/A
1N/A $! = 0;
1N/A read(B,$b,1);
1N/A ok($! == &Errno::EBADF);
1N/A}