d877a264f502f18aac09980c14bcd6b0753262b3
12 use Symbol
qw(gensym);
14 my $ext = qr/(?: php | inc | txt | sql | t)/x;
17 find
( sub { push @files, $File::Find
::name
if -f
&& /\. $ext $/x }, '.' );
19 plan tests
=> scalar @files ;
21 for my $file (@files) {
22 open NULL
, '+>', File
::Spec
->devnull and \
*NULL
or die;
23 my $pid = open3
('<&NULL', \
*P
, '>&NULL', qw
'svn propget svn:eol-style', $file);
24 my $res = do { local $/; <P
> . "" };
29 ok
1 => "svn propget failed, $file probably not under version control";
30 } elsif ( $res eq 'native' ) {
31 ok
1 => "$file svn:eol-style is 'native'";
33 ok
0 => "$file svn:eol-style is '$res', should be 'native'";