#!/usr/bin/perl

use strict;
use warnings;

my $CR   = "\015";
my $LF   = "\012";
my $CRLF = "\015\012";

use Test::More;

BEGIN {
	unless ( $ENV{DISPLAY} or $^O eq 'MSWin32' ) {
		plan skip_all => 'Needs DISPLAY';
		exit 0;
	}
	plan tests => 13;
}

use Test::NoWarnings;
use t::lib::Padre;
use Padre::Util ();

is( Padre::Util::newline_type("...")           => "None",  "None" );
is( Padre::Util::newline_type(".$CR.$CR.")     => "MAC",   "Mac" );
is( Padre::Util::newline_type(".$LF.$LF.")     => "UNIX",  "Unix" );
is( Padre::Util::newline_type(".$CRLF.$CRLF.") => "WIN",   "Windows" );
is( Padre::Util::newline_type(".$LF.$CR.")     => "Mixed", "Mixed" );
is( Padre::Util::newline_type(".$CR.$LF.")     => "Mixed", "Mixed" );
is( Padre::Util::newline_type(".$CRLF.$LF.")   => "Mixed", "Mixed" );
is( Padre::Util::newline_type(".$LF.$CRLF.")   => "Mixed", "Mixed" );
is( Padre::Util::newline_type(".$CR.$CRLF.")   => "Mixed", "Mixed" );
is( Padre::Util::newline_type(".$CRLF.$CR.")   => "Mixed", "Mixed" );
is( Padre::Util::newline_type(".$CR$LF$CR.")   => "Mixed", "Mixed" );
is( Padre::Util::newline_type(".$CR$LF$LF.")   => "Mixed", "Mixed" );