Commit e43d323b authored by wurblzap%gmail.com's avatar wurblzap%gmail.com

Bug 295205 - runtests.pl should check that the line endings of files conform to your OS standard.

Patch by Marc Schumann <wurblzap@gmail.com>. r=LpSolit,mkanat; a=mkanat.
parent e417256b
......@@ -19,6 +19,8 @@
#
# Contributor(s): Jacob Steenhagen <jake@bugzilla.org>
# David D. Kilzer <ddkilzer@kilzer.net>
# Colin Ogilvie <mozilla@colinogilvie.co.uk>
# Marc Schumann <wurblzap@gmail.com>
#
#################
......@@ -34,7 +36,7 @@ use Support::Templates;
use File::Spec;
use Test::More tests => ( scalar(@Support::Files::testitems)
+ $Support::Templates::num_actual_files);
+ $Support::Templates::num_actual_files) * 2;
my @testitems = @Support::Files::testitems;
for my $path (@Support::Templates::include_paths) {
......@@ -42,9 +44,12 @@ for my $path (@Support::Templates::include_paths) {
Support::Templates::find_actual_files($path)));
}
my %results;
foreach my $file (@testitems) {
open (FILE, "$file");
if (grep /\t/, <FILE>) {
my @contents = <FILE>;
if (grep /\t/, @contents) {
ok(0, "$file contains tabs --WARNING");
} else {
ok(1, "$file has no tabs");
......@@ -52,4 +57,15 @@ foreach my $file (@testitems) {
close (FILE);
}
foreach my $file (@testitems) {
open (FILE, "$file");
my @contents = <FILE>;
if (grep /\r/, @contents) {
ok(0, "$file contains non-OS-conformant line endings --WARNING");
} else {
ok(1, "All line endings of $file are OS conformant");
}
close (FILE);
}
exit 0;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment