4 use Test::More tests => 1;
8 sub simple_write_file {
9 open my $fh, '>', $_[0] or die "Couldn't open $_[0] for write: $!";
16 my $file = __FILE__ . '.tmp';
19 $code->($file, "\n" x 3);
28 is(newline_size(\&write_file), newline_size(\&simple_write_file), 'newline');