[perl5.git] / t / op / filehandle.t

#!./perl

# There are few filetest operators that are portable enough to test.
# See pod/perlport.pod for details.

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require './test.pl';
    skip_all_if_miniperl("no dynamic loading on miniperl, no IO, hence no FileHandle");
}

plan 4;
use FileHandle;

my $str = "foo";
open my $fh, "<", \$str;
is <$fh>, "foo";

eval {
   $fh->seek(0, 0);
   is $fh->tell, 0;
   is <$fh>, "foo";
};

is $@, '';
Commit	Line	Data
d963bf01 NC	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';
c82d0e1e	10	skip_all_if_miniperl("no dynamic loading on miniperl, no IO, hence no FileHandle");
d963bf01 NC	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 $@, '';