1 files changed, 7 insertions, 3 deletions
diff --git a/t/op/sysio.t b/t/op/sysio.t
index f2e72cfb6b..6135cd3465 100755
--- a/t/op/sysio.t
+++ b/t/op/sysio.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..32\n";
+print "1..34\n";
 
 chdir('op') || die "sysio.t: cannot look for myself: $!";
 
@@ -164,17 +164,21 @@ print "ok 29\n";
 print 'not ' unless ($b eq '#!ererl');
 print "ok 30\n";
 
-# test sysseek
+# test sysseek and systell
 
 sysseek(I, 2, 0);
 sysread(I, $b, 3);
 print 'not ' unless $b eq 'ere';
 print "ok 31\n";
+print 'not ' unless systell(I) == 5;
+print "ok 32\n";
 
 sysseek(I, -2, 1);
 sysread(I, $b, 4);
 print 'not ' unless $b eq 'rerl';
-print "ok 32\n";
+print "ok 33\n";
+print 'not ' unless systell(I) == 7;
+print "ok 34\n";
 
 close(I);