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