diff options
Diffstat (limited to 't/op/sysio.t')
-rwxr-xr-x | t/op/sysio.t | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/t/op/sysio.t b/t/op/sysio.t index ee274c1692..f2e72cfb6b 100755 --- a/t/op/sysio.t +++ b/t/op/sysio.t @@ -1,6 +1,6 @@ #!./perl -print "1..30\n"; +print "1..32\n"; chdir('op') || die "sysio.t: cannot look for myself: $!"; @@ -164,6 +164,18 @@ print "ok 29\n"; print 'not ' unless ($b eq '#!ererl'); print "ok 30\n"; +# test sysseek + +sysseek(I, 2, 0); +sysread(I, $b, 3); +print 'not ' unless $b eq 'ere'; +print "ok 31\n"; + +sysseek(I, -2, 1); +sysread(I, $b, 4); +print 'not ' unless $b eq 'rerl'; +print "ok 32\n"; + close(I); unlink $outfile; |