summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rw-r--r--t/005whitespace.t13
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;