3c8b924efaad97b83f5d550227131a62d3fc7663
[urisagit/File-Slurp.git] / t / append_null.t
1 #!/usr/local/bin/perl -w
2
3 use strict ;
4 use 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 unlink $file ;
16
17 my $err = write_file( $file, $data ) ;
18 append_file( $file, '' ) ;
19
20 my $read_data = read_file( $file ) ;
21
22 is( $data, $read_data ) ;
23
24 unlink $file ;