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