This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ca29069609c1164495fd59ebc759adf87601b71a
[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     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 $@, '';