Cross Reference: read.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
t
/
op
/
read.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
read.t revision 1
1
N/A
#!./perl
1
N/A
1
N/A
# $RCSfile:
read.t
,v $$Revision: 4.1 $$Date: 92/08/07 18:28:17 $
1
N/A
1
N/A
print
"1..4\n"
;
1
N/A
1
N/A
1
N/A
open
(
FOO
,
'
op
/
read.t
'
)
||
open
(
FOO
,
'
t
/
op
/
read.t
'
)
||
open
(
FOO
,
':op:
read.t
'
)
||
die
"Can't open
op.read
"
;
1
N/A
seek
(
FOO
,
4
,
0
)
;
1
N/A
$got
=
read
(
FOO
,
$buf
,
4
)
;
1
N/A
1
N/A
print
(
$got
==
4
?
"ok 1\n"
:
"not ok 1\n"
)
;
1
N/A
print
(
$buf
eq
"perl"
?
"ok 2\n"
:
"not ok 2 :
$buf
:\n"
)
;
1
N/A
1
N/A
seek
(
FOO
,
0
,
2
)
||
seek
(
FOO
,
20000
,
0
)
;
1
N/A
$got
=
read
(
FOO
,
$buf
,
4
)
;
1
N/A
1
N/A
print
(
$got
==
0
?
"ok 3\n"
:
"not ok 3\n"
)
;
1
N/A
print
(
$buf
eq
""
?
"ok 4\n"
:
"not ok 4\n"
)
;