3 # Based on php-tag.t and eol-style
12 use Symbol
qw(gensym);
14 my $ext = qr/(?: php | inc )/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
'php -l', $file);
24 my $res = do { local $/; <P
> . "" };
31 fail
("$file does not pass php -l. Error was: $res");