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