summaryrefslogtreecommitdiff
path: root/t/maint/unix-newlines.t
diff options
context:
space:
mode:
authorPierre Schmitz <pierre@archlinux.de>2010-07-28 11:52:48 +0200
committerPierre Schmitz <pierre@archlinux.de>2010-07-28 11:52:48 +0200
commit222b01f5169f1c7e69762e0e8904c24f78f71882 (patch)
tree8e932e12546bb991357ec48eb1638d1770be7a35 /t/maint/unix-newlines.t
parent00ab76a6b686e98a914afc1975812d2b1aaa7016 (diff)
update to MediaWiki 1.16.0
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;
-}
-
-
-