File: write_file_win32.t

package info (click to toggle)
libfile-slurp-perl 9999.19-4
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 340 kB
  • ctags: 40
  • sloc: perl: 1,671; makefile: 39
file content (29 lines) | stat: -rw-r--r-- 476 bytes parent folder | download | duplicates (3) 
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');