diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-13 00:23:44 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-13 00:23:44 +0000 |
commit | d26ab924bbea5dd5379307deb59c11af3692350b (patch) | |
tree | 5c949beb264de6b467b4b3cd630d881f1715d64c /t/io | |
parent | 76dba3655eb7a077b1c64d5683e366041ec8ebf4 (diff) | |
download | perl-d26ab924bbea5dd5379307deb59c11af3692350b.tar.gz |
Couple of tests from #7660 salvaged.
p4raw-id: //depot/perl@7664
Diffstat (limited to 't/io')
-rwxr-xr-x | t/io/tell.t | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/t/io/tell.t b/t/io/tell.t index b89aefb230..560836d5e0 100755 --- a/t/io/tell.t +++ b/t/io/tell.t @@ -2,7 +2,7 @@ # $RCSfile: tell.t,v $$Revision$$Date$ -print "1..21\n"; +print "1..23\n"; $TST = 'tst'; @@ -82,3 +82,13 @@ if ($. == $curline) { print "ok 20\n"; } else { print "not ok 20\n"; } tell other; if ($. == 7) { print "ok 21\n"; } else { print "not ok 21\n"; } } + +close(other); +if (tell(other) == -1) { print "ok 22\n"; } else { print "not ok 22\n"; } + +if (tell(ether) == -1) { print "ok 23\n"; } else { print "not ok 23\n"; } + +# ftell(STDIN) (or any std streams) is undefined, it can return -1 or +# something else. ftell() on pipes, fifos, and sockets is defined to +# return -1. + |