]> scripts.mit.edu Git - autoinstallsdev/mediawiki.git/blobdiff - t/maint/php-tag.t
MediaWiki 1.16.0
[autoinstallsdev/mediawiki.git] / t / maint / php-tag.t
diff --git a/t/maint/php-tag.t b/t/maint/php-tag.t
deleted file mode 100644 (file)
index 5093ca7..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-
-use Test::More;;
-
-use File::Find;
-use File::Slurp qw< slurp >;
-
-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) {
-       my $cont = slurp $file;
-       if ( $cont =~ m<<\?php .* \?>>xs ) {
-               pass "$file has <?php ?>";
-       } elsif ( $cont =~ m<<\? .* \?>>xs ) {
-               fail "$file does not use <? ?>";
-       } else {
-               pass "$file has neither <?php ?> nor <? ?>, check it";
-       }
-}
-
-
-