[urisagit/Perl-Docs.git] / t / write_file_win32.t

use strict;
use File::Slurp ;

use Test::More tests => 1;

BEGIN { $^W = 1 }

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