Perl_op_sibling_splice(0 remove dead code
[perl.git] / t / op / filehandle.t
1 #!./perl
2
3 BEGIN {
4     chdir 't' if -d 't';
5     require './test.pl';
6     set_up_inc('../lib');
7     skip_all_if_miniperl("no dynamic loading on miniperl, no IO, hence no FileHandle");
8 }
9
10 plan 4;
11 use FileHandle;
12
13 my $str = "foo";
14 open my $fh, "<", \$str;
15 is <$fh>, "foo", "open fh to reference to string: got expected content";
16
17 eval {
18    $fh->seek(0, 0);
19    is $fh->tell, 0, "after 'seek' and 'tell', got expected current fh position in bytes";
20    is <$fh>, "foo", "after 'seek' and 'tell', still got expected content";
21 };
22
23 is $@, '', "no errors after 'seek' or 'tell'";