1 use Test::More tests => 2 + 1;
6 require_ok('File::Slurp');
7 use_ok('File::Slurp', 'write_file');
11 sub simple_write_file {
12 open my $fh, '>', $_[0] or die "Couldn't open $_[0] for write: $!";
19 my $file = __FILE__ . '.tmp';
22 $code->($file, "\n" x 3);
31 is(newline_size(\&write_file), newline_size(\&simple_write_file), 'newline');