home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / PERL4036.ZIP / t / io / tell.t < prev   
Text File  |  1993-02-08  |  1KB  |  45 lines
  1. #!./perl
  2.  
  3. # $Header: tell.t,v 4.0 91/03/20 01:51:14 lwall Locked $
  4.  
  5. print "1..13\n";
  6.  
  7. $TST = 'tst';
  8.  
  9. open($TST, '../Makefile') || (die "Can't open ../Makefile");
  10.  
  11. if (eof(tst)) { print "not ok 1\n"; } else { print "ok 1\n"; }
  12.  
  13. $firstline = <$TST>;
  14. $secondpos = tell;
  15.  
  16. $x = 0;
  17. while (<tst>) {
  18.     if (eof) {$x++;}
  19. }
  20. if ($x == 1) { print "ok 2\n"; } else { print "not ok 2\n"; }
  21.  
  22. $lastpos = tell;
  23.  
  24. unless (eof) { print "not ok 3\n"; } else { print "ok 3\n"; }
  25.  
  26. if (seek($TST,0,0)) { print "ok 4\n"; } else { print "not ok 4\n"; }
  27.  
  28. if (eof) { print "not ok 5\n"; } else { print "ok 5\n"; }
  29.  
  30. if ($firstline eq <tst>) { print "ok 6\n"; } else { print "not ok 6\n"; }
  31.  
  32. if ($secondpos == tell) { print "ok 7\n"; } else { print "not ok 7\n"; }
  33.  
  34. if (seek(tst,0,1)) { print "ok 8\n"; } else { print "not ok 8\n"; }
  35.  
  36. if (eof($TST)) { print "not ok 9\n"; } else { print "ok 9\n"; }
  37.  
  38. if ($secondpos == tell) { print "ok 10\n"; } else { print "not ok 10\n"; }
  39.  
  40. if (seek(tst,0,2)) { print "ok 11\n"; } else { print "not ok 11\n"; }
  41.  
  42. if ($lastpos == tell) { print "ok 12\n"; } else { print "not ok 12\n"; }
  43.  
  44. unless (eof) { print "not ok 13\n"; } else { print "ok 13\n"; }
  45.