diff options
author | Pierre Schmitz <pierre@archlinux.de> | 2010-07-28 11:52:48 +0200 |
---|---|---|
committer | Pierre Schmitz <pierre@archlinux.de> | 2010-07-28 11:52:48 +0200 |
commit | 222b01f5169f1c7e69762e0e8904c24f78f71882 (patch) | |
tree | 8e932e12546bb991357ec48eb1638d1770be7a35 /t/maint/eol-style.t | |
parent | 00ab76a6b686e98a914afc1975812d2b1aaa7016 (diff) |
update to MediaWiki 1.16.0
Diffstat (limited to 't/maint/eol-style.t')
-rw-r--r-- | t/maint/eol-style.t | 35 |
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'"; - } -} |