summaryrefslogtreecommitdiff
path: root/t/maint/eol-style.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/eol-style.t
parent00ab76a6b686e98a914afc1975812d2b1aaa7016 (diff)
update to MediaWiki 1.16.0
Diffstat (limited to 't/maint/eol-style.t')
-rw-r--r--t/maint/eol-style.t35
1 files changed, 0 insertions, 35 deletions
diff --git a/t/maint/eol-style.t b/t/maint/eol-style.t
deleted file mode 100644
index 2e281dc4..00000000
--- a/t/maint/eol-style.t
+++ /dev/null
@@ -1,35 +0,0 @@
-#!/usr/bin/env perl
-#
-# Based on php-tag.t
-#
-use strict;
-use warnings;
-
-use Test::More;
-use File::Find;
-use IPC::Open3;
-use File::Spec;
-use Symbol qw(gensym);
-
-my $ext = qr/(?: php | inc | txt | sql | t)/x;
-my @files;
-
-find( sub { push @files, $File::Find::name if -f && /\. $ext $/x }, '.' );
-
-plan tests => scalar @files ;
-
-for my $file (@files) {
- open NULL, '+>', File::Spec->devnull and \*NULL or die;
- my $pid = open3('<&NULL', \*P, '>&NULL', qw'svn propget svn:eol-style', $file);
- my $res = do { local $/; <P> . "" };
- chomp $res;
- waitpid $pid, 0;
-
- if ( $? != 0 ) {
- pass "svn propget failed, $file probably not under version control";
- } elsif ( $res eq 'native' ) {
- pass "$file svn:eol-style is 'native'";
- } else {
- fail "$file svn:eol-style is '$res', should be 'native'";
- }
-}