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