Commit | Line | Data |
---|---|---|
635c7876 | 1 | #!/usr/local/bin/perl -w |
2 | ||
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 ; |