Commit | Line | Data |
635c7876 |
1 | use strict; |
99709852 |
2 | use File::Slurp ; |
635c7876 |
3 | |
99709852 |
4 | use Test::More tests => 1; |
635c7876 |
5 | |
99709852 |
6 | BEGIN { $^W = 1 } |
635c7876 |
7 | |
8 | sub simple_write_file { |
9 | open my $fh, '>', $_[0] or die "Couldn't open $_[0] for write: $!"; |
10 | print $fh $_[1]; |
11 | } |
12 | |
13 | sub newline_size { |
14 | my ($code) = @_; |
15 | |
16 | my $file = __FILE__ . '.tmp'; |
17 | |
18 | local $\ = ''; |
19 | $code->($file, "\n" x 3); |
20 | |
21 | my $size = -s $file; |
22 | |
23 | unlink $file; |
24 | |
25 | return $size; |
26 | } |
27 | |
28 | is(newline_size(\&write_file), newline_size(\&simple_write_file), 'newline'); |