From a1bc4c8640add65465bc796a02fb7d07c51d59e4 Mon Sep 17 00:00:00 2001
From: "wurblzap%gmail.com" <>
Date: Mon, 2 Mar 2009 21:24:28 +0000
Subject: Bug 481025 -  Remove rogue Byte Order Mark. Patch by Marc Schumann
 <wurblzap@gmail.com>; r/a=mkanat

---
 t/005whitespace.t | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 't')

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;
-- 
cgit v1.2.3-24-g4f1b