summaryrefslogtreecommitdiff
path: root/t/maint/unix-newlines.t
diff options
context:
space:
mode:
Diffstat (limited to 't/maint/unix-newlines.t')
-rw-r--r--t/maint/unix-newlines.t33
1 files changed, 0 insertions, 33 deletions
diff --git a/t/maint/unix-newlines.t b/t/maint/unix-newlines.t
deleted file mode 100644
index c47dd17c..00000000
--- a/t/maint/unix-newlines.t
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-
-use Test::More;;
-
-use File::Find;
-use Socket '$CRLF';
-
-my $ext = qr/(?: t | pm | sql | js | php | inc | xml )/x;
-
-my @files;
-find( sub { push @files, $File::Find::name if -f && /\. $ext $/x }, '.' );
-
-plan 'no_plan';
-
-for my $file (@files) {
- open my $fh, "<", $file or die "Can't open $file: $!";
- binmode $fh;
-
- my $ok = 1;
- while (<$fh>) {
- if (/$CRLF/) {
- fail "$file has \\r\\n on line $.";
- $ok = 0;
- }
- }
-
- pass "$file has only unix newlines" if $ok;
-}
-
-
-