projects
/
urisagit/File-Slurp.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
7a28e5bf1d70ab39571d716bd9472d0192f80dc8
[urisagit/File-Slurp.git]
/
t
/
slurp.t
1
#!/usr/local/bin/perl -w
2
3
use strict ;
4
use File::Slurp qw( write_file slurp ) ;
5
6
use Test::More tests => 1 ;
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 ;