38 lines
528 B
Perl
38 lines
528 B
Perl
|
#!./perl
|
||
|
|
|
||
|
|
BEGIN {
|
||
|
|
chdir 't' if -d 't';
|
||
|
|
require './test.pl';
|
||
|
|
set_up_inc('../lib');
|
||
|
|
eval 'use Errno';
|
||
|
|
die $@ if $@ and !is_miniperl();
|
||
|
|
}
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
plan tests => 2;
|
||
|
|
|
||
|
|
my $tmpfile = tempfile();
|
||
|
|
|
||
|
|
open(A,"+>$tmpfile");
|
||
|
|
print A "_";
|
||
|
|
seek(A,0,0);
|
||
|
|
|
||
|
|
my $b = "abcd";
|
||
|
|
$b = "";
|
||
|
|
|
||
|
|
read(A,$b,1,4);
|
||
|
|
|
||
|
|
close(A);
|
||
|
|
|
||
|
|
is($b,"\000\000\000\000_"); # otherwise probably "\000bcd_"
|
||
|
|
|
||
|
|
SKIP: {
|
||
|
|
skip "no EBADF", 1 if (!exists &Errno::EBADF);
|
||
|
|
|
||
|
|
$! = 0;
|
||
|
|
no warnings 'unopened';
|
||
|
|
read(B,$b,1);
|
||
|
|
ok($! == &Errno::EBADF);
|
||
|
|
}
|