use warnings;
use strict;
use File::Temp qw/tempfile/;

my %tf = (
	crlf => do {
		my ($tfh, $tfn) = tempfile(UNLINK=>1);
		binmode $tfh;
		print $tfh "Foo\r\nBar\r\nQuz\r\n";
		close $tfh;
		$tfn },
	lf => do {
		my ($tfh, $tfn) = tempfile(UNLINK=>1);
		binmode $tfh;
		print $tfh "Foo\nBar\nQuz\n";
		close $tfh;
		$tfn },
	mix => do {
		my ($tfh, $tfn) = tempfile(UNLINK=>1);
		binmode $tfh;
		print $tfh "Foo\r\nBar\nQuz\r\n";
		close $tfh;
		$tfn },
	);

sub slurp {
	my ($fn, $mode) = @_;
	open my $fh, '<'.$mode, $fn or die "$fn: $!";
	local $/ = undef;
	return scalar <$fh>;
}

use Test::More tests=>10;

is $/, "\n";

is slurp($tf{crlf}, ':raw' ), "Foo\r\nBar\r\nQuz\r\n";
is slurp($tf{lf},   ':raw' ), "Foo\nBar\nQuz\n";
is slurp($tf{mix},  ':raw' ), "Foo\r\nBar\nQuz\r\n";

is slurp($tf{crlf}, ':crlf'), "Foo\nBar\nQuz\n";
is slurp($tf{lf},   ':crlf'), "Foo\nBar\nQuz\n";
is slurp($tf{mix},  ':crlf'), "Foo\nBar\nQuz\n";

is slurp($tf{crlf}, ''     ),
	$^O eq 'MSWin32' ? "Foo\nBar\nQuz\n" : "Foo\r\nBar\r\nQuz\r\n";
is slurp($tf{lf},   ''     ),
	$^O eq 'MSWin32' ? "Foo\nBar\nQuz\n" : "Foo\nBar\nQuz\n";
is slurp($tf{mix},  ''     ),
	$^O eq 'MSWin32' ? "Foo\nBar\nQuz\n" : "Foo\r\nBar\nQuz\r\n";