t/maint/bom.t

   1 #!/usr/bin/env perl
   2 #
   3 # This test detect Byte Order Mark (BOM). The char is sometime included at the
   4 # top of files by some text editors to mark them as being UTF-8 encoded.
   5 # They are not stripped by php 5.x and appear at the beginning of our content,
   6 # You want them removed!
   7 # See:
   8 #   http://www.fileformat.info/info/unicode/char/feff/index.htm
   9 #   http://bugzilla.wikimedia.org/show_bug.cgi?id=9954
  10
  11 use strict;
  12 use warnings;
  13
  14 use Test::More;
  15
  16 use File::Find;
  17 use File::Slurp qw< slurp >;
  18
  19 # Files for wich we want to check the BOM char ( 0xFE 0XFF )
  20 my $ext = qr/(?:php|inc)/x ;
  21
  22 my $bomchar = qr/\xef\xbb\xbf/ ;
  23
  24
  25 my @files;
  26
  27 find( sub{ push @files, $File::Find::name if -f && /\.$ext$/ }, '.' );
  28
  29 # Register our files with the test system
  30 plan tests => scalar @files ;
  31
  32 for my $file (@files) {
  33         my $content = slurp $file ;
  34         if( $content =~ /$bomchar/ ) {
  35                 ok 0 => "$file got a Byte Order Mark";
  36         } else {
  37                 ok 1 => "$file BOM less";
  38         }
  39 }