diff options
Diffstat (limited to 't/maint/php-lint.t')
-rw-r--r-- | t/maint/php-lint.t | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/t/maint/php-lint.t b/t/maint/php-lint.t new file mode 100644 index 00000000..e65d6895 --- /dev/null +++ b/t/maint/php-lint.t @@ -0,0 +1,33 @@ +#!/usr/bin/env perl +# +# Based on php-tag.t and eol-style +# +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 )/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'php -l', $file); + my $res = do { local $/; <P> . "" }; + chomp $res; + waitpid $pid, 0; + + if ( $? == 0 ) { + ok 1 => "Looks fine"; + } else { + ok 0 => "$file does not pass php linter. Error was: $res"; + } +} |