[urisagit/Perl-Docs.git] / t / slurp.t

#!/usr/local/bin/perl -w -T

use strict ;
use File::Slurp qw( write_file slurp ) ;

use Test::More tests => 1 ;

my $data = <<TEXT ;
line 1
more text
TEXT

my $file = 'xxx' ;

write_file( $file, $data ) ;
my $read_buf = slurp( $file ) ;
is( $read_buf, $data, 'slurp alias' ) ;

unlink $file ;
Commit	Line	Data
12444d55	1	#!/usr/local/bin/perl -w -T
635c7876	2
635c7876	3	use strict ;
99709852	4	use File::Slurp qw( write_file slurp ) ;
635c7876	5
99709852	6	use Test::More tests => 1 ;
635c7876	7
	8	my $data = <<TEXT ;
	9	line 1
	10	more text
	11	TEXT
	12
	13	my $file = 'xxx' ;
	14
	15	write_file( $file, $data ) ;
	16	my $read_buf = slurp( $file ) ;
	17	is( $read_buf, $data, 'slurp alias' ) ;
	18
	19	unlink $file ;