diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/005whitespace.t | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/t/005whitespace.t b/t/005whitespace.t index e6bd07f4e..edba8b274 100644 --- a/t/005whitespace.t +++ b/t/005whitespace.t @@ -36,7 +36,7 @@ use Support::Templates; use File::Spec; use Test::More tests => ( scalar(@Support::Files::testitems) - + $Support::Templates::num_actual_files) * 2; + + $Support::Templates::num_actual_files) * 3; my @testitems = @Support::Files::testitems; for my $path (@Support::Templates::include_paths) { @@ -68,4 +68,15 @@ foreach my $file (@testitems) { close (FILE); } +foreach my $file (@testitems) { + open (FILE, "$file"); + my $first_line = <FILE>; + if ($first_line =~ /\xef\xbb\xbf/) { + ok(0, "$file contains Byte Order Mark --WARNING"); + } else { + ok(1, "$file is free of a Byte Order Mark"); + } + close (FILE); +} + exit 0; |