t/io/tell.t

   1 #!./perl
   2
   3 # $RCSfile: tell.t,v $$Revision$$Date$
   4
   5 print "1..21\n";
   6
   7 $TST = 'tst';
   8
   9 $Is_Dosish = ($^O eq 'MSWin32' or $^O eq 'dos' or
  10               $^O eq 'os2' or $^O eq 'mint');
  11
  12 open($TST, '../Configure') || (die "Can't open ../Configure");
  13 binmode $TST if $Is_Dosish;
  14 if (eof(tst)) { print "not ok 1\n"; } else { print "ok 1\n"; }
  15
  16 $firstline = <$TST>;
  17 $secondpos = tell;
  18
  19 $x = 0;
  20 while (<tst>) {
  21     if (eof) {$x++;}
  22 }
  23 if ($x == 1) { print "ok 2\n"; } else { print "not ok 2\n"; }
  24
  25 $lastpos = tell;
  26
  27 unless (eof) { print "not ok 3\n"; } else { print "ok 3\n"; }
  28
  29 if (seek($TST,0,0)) { print "ok 4\n"; } else { print "not ok 4\n"; }
  30
  31 if (eof) { print "not ok 5\n"; } else { print "ok 5\n"; }
  32
  33 if ($firstline eq <tst>) { print "ok 6\n"; } else { print "not ok 6\n"; }
  34
  35 if ($secondpos == tell) { print "ok 7\n"; } else { print "not ok 7\n"; }
  36
  37 if (seek(tst,0,1)) { print "ok 8\n"; } else { print "not ok 8\n"; }
  38
  39 if (eof($TST)) { print "not ok 9\n"; } else { print "ok 9\n"; }
  40
  41 if ($secondpos == tell) { print "ok 10\n"; } else { print "not ok 10\n"; }
  42
  43 if (seek(tst,0,2)) { print "ok 11\n"; } else { print "not ok 11\n"; }
  44
  45 if ($lastpos == tell) { print "ok 12\n"; } else { print "not ok 12\n"; }
  46
  47 unless (eof) { print "not ok 13\n"; } else { print "ok 13\n"; }
  48
  49 if ($. == 0) { print "not ok 14\n"; } else { print "ok 14\n"; }
  50
  51 $curline = $.;
  52 open(other, '../Configure') || (die "Can't open ../Configure");
  53 binmode other if $^O eq 'MSWin32';
  54
  55 {
  56     local($.);
  57
  58     if ($. == 0) { print "not ok 15\n"; } else { print "ok 15\n"; }
  59
  60     tell other;
  61     if ($. == 0) { print "ok 16\n"; } else { print "not ok 16\n"; }
  62
  63     $. = 5;
  64     scalar <other>;
  65     if ($. == 6) { print "ok 17\n"; } else { print "not ok 17\n"; }
  66 }
  67
  68 if ($. == $curline) { print "ok 18\n"; } else { print "not ok 18\n"; }
  69
  70 {
  71     local($.);
  72
  73     scalar <other>;
  74     if ($. == 7) { print "ok 19\n"; } else { print "not ok 19\n"; }
  75 }
  76
  77 if ($. == $curline) { print "ok 20\n"; } else { print "not ok 20\n"; }
  78
  79 {
  80     local($.);
  81
  82     tell other;
  83     if ($. == 7) { print "ok 21\n"; } else { print "not ok 21\n"; }
  84 }