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
./
1
N/A
#!./perl
1
N/A
1
N/A
# $RCSfile$
1
N/A
1
N/A
BEGIN
{
1
N/A
chdir
't'
if
-d
't'
;
1
N/A
@
INC
=
'../lib'
;
1
N/A
require
'./
test.pl
'
;
1
N/A
}
1
N/A
1
N/A
use
strict
;
1
N/A
eval
'use Errno'
;
1
N/A
die
$@
if
$@
and
!
$ENV
{
PERL_CORE_MINITEST
};
1
N/A
1
N/A
plan
tests
=>
2
;
1
N/A
1
N/A
open
(A,
"+>a"
)
;
1
N/A
print
A
"_"
;
1
N/A
seek
(A,
0
,
0
)
;
1
N/A
1
N/A
my
$b =
"abcd"
;
1
N/A
$b =
""
;
1
N/A
1
N/A
read
(A,$b,
1
,
4
)
;
1
N/A
1
N/A
close
(A)
;
1
N/A
1
N/A
unlink
(
"a"
)
;
1
N/A
1
N/A
is
($b,
"\000\000\000\000_"
)
;
# otherwise probably "\000bcd_"
1
N/A
1
N/A
unlink
'a'
;
1
N/A
1
N/A
SKIP
:
{
1
N/A
skip
"no EBADF"
,
1
if
(!
exists
&
Errno
::
EBADF
)
;
1
N/A
1
N/A
$! =
0
;
1
N/A
read
(B,$b,
1
)
;
1
N/A
ok
($! == &
Errno
::
EBADF
)
;
1
N/A
}