diff options
| author | jake%acutex.net <> | 2001-10-20 07:39:46 +0200 |
|---|---|---|
| committer | jake%acutex.net <> | 2001-10-20 07:39:46 +0200 |
| commit | ed4af4249961a69449820e27b0baaf5116142b9e (patch) | |
| tree | 09425865e2c77171faec1a1a66d2210b7dc6fdf7 /t/Support | |
| parent | b929c22527a9f97d4e03937d255542dfb5384f02 (diff) | |
| download | bugzilla-ed4af4249961a69449820e27b0baaf5116142b9e.tar.gz bugzilla-ed4af4249961a69449820e27b0baaf5116142b9e.tar.xz | |
Bug 103664 - Tests should "use strict;" and not contain any tabs. We should also use the TEST_VERBOSE environment variable instead of VERBOSE.
Patch by David D. Kilzer <ddkilzer@theracingworld.com>
Additional edits by myself to add the emacs mode line. Also, the change to runtests.sh was done by me.
Diffstat (limited to 't/Support')
| -rw-r--r-- | t/Support/Files.pm | 9 | ||||
| -rw-r--r-- | t/Support/Systemexec.pm | 4 | ||||
| -rw-r--r-- | t/Support/Templates.pm | 8 |
3 files changed, 12 insertions, 9 deletions
diff --git a/t/Support/Files.pm b/t/Support/Files.pm index 9235b5c70..2396e5d28 100644 --- a/t/Support/Files.pm +++ b/t/Support/Files.pm @@ -1,3 +1,4 @@ +# -*- Mode: perl; indent-tabs-mode: nil -*- # # The contents of this file are subject to the Mozilla Public # License Version 1.1 (the "License"); you may not use this file @@ -43,7 +44,7 @@ sub isTestingFile { my ($file) = @_; my $exclude; foreach $exclude (@exclude_files) { - if ($file eq $exclude) { return undef; } # get rid of excluded files. + if ($file eq $exclude) { return undef; } # get rid of excluded files. } if ($file =~ /\.cgi$|\.pl$/) { @@ -57,9 +58,9 @@ sub isTestingFile { } foreach $currentfile (@files) { - if (isTestingFile($currentfile)) { - push(@testitems,$currentfile); - } + if (isTestingFile($currentfile)) { + push(@testitems,$currentfile); + } } diff --git a/t/Support/Systemexec.pm b/t/Support/Systemexec.pm index eee445c14..676ee02a4 100644 --- a/t/Support/Systemexec.pm +++ b/t/Support/Systemexec.pm @@ -1,4 +1,6 @@ -package Systemexec; +# -*- Mode: perl; indent-tabs-mode: nil -*- + +package Support::Systemexec; require Exporter; @ISA = qw(Exporter); @EXPORT = qw(system exec); diff --git a/t/Support/Templates.pm b/t/Support/Templates.pm index 4d19c2cca..6e5fb2904 100644 --- a/t/Support/Templates.pm +++ b/t/Support/Templates.pm @@ -35,11 +35,11 @@ foreach my $file (@files) { my @lines = <FILE>; close (FILE); foreach my $line (@lines) { - if ($line =~ m/template->process\(\"(.+?)\", .+?\)/) { + if ($line =~ m/template->process\(\"(.+?)\", .+?\)/) { $template = $1; - push (@testitems, $template) unless $t{$template}; - $t{$template} = 1; - } + push (@testitems, $template) unless $t{$template}; + $t{$template} = 1; + } } } |