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