t/op/filehandle.t

   1 #!./perl
   2
   3 # There are few filetest operators that are portable enough to test.
   4 # See pod/perlport.pod for details.
   5
   6 BEGIN {
   7     chdir 't' if -d 't';
   8     @INC = '../lib';
   9     require './test.pl';
  10 }
  11
  12 plan 4;
  13 use FileHandle;
  14
  15 my $str = "foo";
  16 open my $fh, "<", \$str;
  17 is <$fh>, "foo";
  18
  19 eval {
  20    $fh->seek(0, 0);
  21    is $fh->tell, 0;
  22    is <$fh>, "foo";
  23 };
  24
  25 is $@, '';