projects
/
urisagit/File-Slurp.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
deleted
[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 ;