[urisagit/File-Slurp.git] / t / write_file_win32.t

use Test::More tests => 2 + 1;
use strict;
BEGIN { $^W = 1 }

BEGIN {
    require_ok('File::Slurp');
    use_ok('File::Slurp', 'write_file');
}


sub simple_write_file {
    open my $fh, '>', $_[0] or die "Couldn't open $_[0] for write: $!";
    print $fh $_[1];
}

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');
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');