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 { | |
12444d55 | 9 | open FH, ">$_[0]" or die "Couldn't open $_[0] for write: $!"; |
10 | print FH $_[1]; | |
11 | close FH ; | |
635c7876 | 12 | } |
13 | ||
14 | sub newline_size { | |
15 | my ($code) = @_; | |
16 | ||
17 | my $file = __FILE__ . '.tmp'; | |
18 | ||
19 | local $\ = ''; | |
20 | $code->($file, "\n" x 3); | |
21 | ||
22 | my $size = -s $file; | |
23 | ||
24 | unlink $file; | |
25 | ||
26 | return $size; | |
27 | } | |
28 | ||
29 | is(newline_size(\&write_file), newline_size(\&simple_write_file), 'newline'); |