7 use File::Slurp qw( read_file write_file prepend_file ) ;
12 my $file = 'prepend_file' ;
13 my $existing_data = <<PRE ;
21 name => 'prepend null',
22 sub => \&prepend_file,
26 write_file( $file, $existing_data ) ;
27 my $prepend_data = $test->{prepend_data} ;
32 $test->{expected} = "$prepend_data$existing_data" ;
34 posttest => sub { $_[0]->{result} = read_file( $file ) },
37 name => 'prepend line',
38 sub => \&prepend_file,
39 prepend_data => "line 0\n",
42 write_file( $file, $existing_data ) ;
43 my $prepend_data = $test->{prepend_data} ;
48 $test->{expected} = "$prepend_data$existing_data" ;
50 posttest => sub { $_[0]->{result} = read_file( $file ) },
53 name => 'prepend partial line',
54 sub => \&prepend_file,
55 prepend_data => 'partial line',
58 write_file( $file, $existing_data ) ;
59 my $prepend_data = $test->{prepend_data} ;
64 $test->{expected} = "$prepend_data$existing_data" ;
66 posttest => sub { $_[0]->{result} = read_file( $file ) },
70 test_driver( $tests ) ;