Cross Reference:
xref
: /
illumos-gate
/
usr
/
src
/
cmd
/
perl
/
5.6.1
/
distrib
/
t
/
io
/
read.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
read.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
# $RCSfile$
print
"1..1\n"
;
open
(A,
"+>a"
)
;
print
A
"_"
;
seek
(A,
0
,
0
)
;
$b =
"abcd"
;
$b =
""
;
read
(A,$b,
1
,
4
)
;
close
(A)
;
unlink
(
"a"
)
;
if
($b
eq
"\000\000\000\000_"
)
{
print
"ok 1\n"
;
}
else
{
# Probably "\000bcd_"
print
"not ok 1\n"
;
}
unlink
'a'
;