Cross Reference: read.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
t
/
io
/
read.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
#!./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
};
plan
tests
=>
2
;
open
(A,
"+>a"
)
;
print
A
"_"
;
seek
(A,
0
,
0
)
;
my
$b =
"abcd"
;
$b =
""
;
read
(A,$b,
1
,
4
)
;
close
(A)
;
unlink
(
"a"
)
;
is
($b,
"\000\000\000\000_"
)
;
# otherwise probably "\000bcd_"
unlink
'a'
;
SKIP
:
{
skip
"no EBADF"
,
1
if
(!
exists
&
Errno
::
EBADF
)
;
$! =
0
;
read
(B,$b,
1
)
;
ok
($! == &
Errno
::
EBADF
)
;
}