diff options
author | Pierre Schmitz <pierre@archlinux.de> | 2007-05-16 20:58:53 +0000 |
---|---|---|
committer | Pierre Schmitz <pierre@archlinux.de> | 2007-05-16 20:58:53 +0000 |
commit | cecb985bee3bdd252e1b8dc0bd500b37cd52be01 (patch) | |
tree | 17266aa237742640aabee7856f0202317a45d540 /t/maint/php-tag.t | |
parent | 0bac06c301f2a83edb0236e4c2434da16848d549 (diff) |
Aktualisierung auf MediaWiki 1.10.0
Plugins angepasst und verbessert
kleine Korrekturen am Design
Diffstat (limited to 't/maint/php-tag.t')
-rw-r--r-- | t/maint/php-tag.t | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/t/maint/php-tag.t b/t/maint/php-tag.t new file mode 100644 index 00000000..80b870b7 --- /dev/null +++ b/t/maint/php-tag.t @@ -0,0 +1,29 @@ +#!/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 ) { + ok 1 => "$file has <?php ?>"; + } elsif ( $cont =~ m<<\? .* \?>>xs ) { + ok 0 => "$file does not use <? ?>"; + } else { + ok 1 => "$file has neither <?php ?> nor <? ?>, check it"; + } +} + + + |