This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Improvements to 31c9a3 - CPAN code did depend on the previous behaviour of blessing...
[perl5.git] / 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 $@, '';