Bug 135543 - @Support::Templates::testitems does not list all templates
Patch by ddkilzer@theracingworld.com (David D. Kilzer), r=gerv, justdave git-svn-id: svn://10.0.0.236/trunk@256360 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
parent
433a6d2b98
commit
c994665d87
@ -18,34 +18,37 @@
|
||||
# Rights Reserved.
|
||||
#
|
||||
# Contributor(s): Jacob Steenhagen <jake@acutex.net>
|
||||
# David D. Kilzer <ddkilzer@kilzer.net>
|
||||
#
|
||||
|
||||
#################
|
||||
#Bugzilla Test 5#
|
||||
#####no_tabs#####
|
||||
|
||||
BEGIN { use lib "t/"; }
|
||||
BEGIN { use Support::Files; }
|
||||
BEGIN { use Support::Templates; }
|
||||
BEGIN { $tests = @Support::Files::testitems; }
|
||||
BEGIN { $tests += @Support::Templates::testitems; }
|
||||
BEGIN { use Test::More tests => $tests; }
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use lib 't';
|
||||
|
||||
use Support::Files;
|
||||
use Support::Templates;
|
||||
|
||||
use File::Spec 0.82;
|
||||
use Test::More tests => ( scalar(@Support::Files::testitems)
|
||||
+ scalar(@Support::Templates::actual_files));
|
||||
|
||||
my @testitems = @Support::Files::testitems;
|
||||
my @templates = map($Support::Templates::include_path . "/" . $_,
|
||||
@Support::Templates::testitems);
|
||||
my @templates = map(File::Spec->catfile($Support::Templates::include_path, $_),
|
||||
@Support::Templates::actual_files);
|
||||
push(@testitems, @templates);
|
||||
|
||||
foreach my $file (@testitems) {
|
||||
open (FILE, "$file");
|
||||
my @file = <FILE>;
|
||||
close (FILE);
|
||||
if (grep /\t/, @file) {
|
||||
if (grep /\t/, <FILE>) {
|
||||
ok(0, "$file contains tabs --WARNING");
|
||||
} else {
|
||||
ok(1, "$file has no tabs");
|
||||
}
|
||||
close (FILE);
|
||||
}
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user