#!/usr/bin/perl

use Test::More;

# AUTHOR test
if ( not $ENV{TEST_AUTHOR} ) {
	plan skip_all => 'Author test. Sent $ENV{TEST_AUTHOR} to a true value to run.';
} else {
	eval "use File::Find::Rule";
	if ( $@ ) {
		plan skip_all => 'File::Find::Rule required for checking for presence of DOS newlines';
	} else {
		plan tests => 1;

		# generate the file list
		my $rule = File::Find::Rule->new;
		$rule->grep( qr/\r\n/ );
		my @files = $rule->in( qw( lib t examples ) );

		# FIXME read in MANIFEST.SKIP and use it!
		# for now, we skip SVN stuff
		@files = grep { $_ !~ /\/\.svn\// } @files;

		# do we have any?
		if ( scalar @files ) {
			fail( 'newline check' );
			diag( 'DOS newlines found in these files:' );
			foreach my $f ( @files ) {
				diag( ' ' . $f );
			}
		} else {
			pass( 'newline check' );
		}
	}
}