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     skip_all_if_miniperl("no dynamic loading on miniperl, no IO, hence no FileHandle");
  11 }
  12
  13 plan 4;
  14 use FileHandle;
  15
  16 my $str = "foo";
  17 open my $fh, "<", \$str;
  18 is <$fh>, "foo";
  19
  20 eval {
  21    $fh->seek(0, 0);
  22    is $fh->tell, 0;
  23    is <$fh>, "foo";
  24 };
  25
  26 is $@, '';