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 pass "svn propget failed, $file probably not under version control";
30 } elsif ( $res eq 'native' ) {
31 pass "$file svn:eol-style is 'native'";
33 fail "$file svn:eol-style is '$res', should be 'native'";