t/maint/php-tag.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::More;;
   6
   7 use File::Find;
   8 use File::Slurp qw< slurp >;
   9
  10 my $ext = qr/(?: php | inc )/x;
  11
  12 my @files;
  13 find( sub { push @files, $File::Find::name if -f && /\. $ext $/x }, '.' );
  14
  15 plan tests => scalar @files;
  16
  17 for my $file (@files) {
  18         my $cont = slurp $file;
  19         if ( $cont =~ m<<\?php .* \?>>xs ) {
  20                 pass "$file has <?php ?>";
  21         } elsif ( $cont =~ m<<\? .* \?>>xs ) {
  22                 fail "$file does not use <? ?>";
  23         } else {
  24                 pass "$file has neither <?php ?> nor <? ?>, check it";
  25         }
  26 }
  27
  28
  29