Bug 481025 - Remove rogue Byte Order Mark.

Patch by Marc Schumann <wurblzap@gmail.com>;
r/a=mkanat

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;