Bommels05/Mozilla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Don't rely on the TEST_VERBOSE environment variable (no longer exported from runtests.sh) and instead print to the TESTOUT file handle pulled in from Test::More. This will allow the testing backend to check for verbosity rather than having to handle it in the .t files.

Browse Source 
git-svn-id: svn://10.0.0.236/trunk@106182 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
jake%acutex.net
2001-10-24 18:41:53 +00:00
parent 97a2ef3389
commit f6426c6f03
6 changed files with 11 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
mozilla/webtools/bugzilla/runtests.sh
View File

@@ -1,11 +1,11 @@
#!/bin/sh
export TEST_VERBOSE=0
TEST_VERBOSE=0
PART1='use Test::Harness qw(&runtests $verbose); $verbose='
PART2='; runtests @ARGV;'
for f in $*; do
if [ $f == "--verbose" ] ; then
export TEST_VERBOSE=1
TEST_VERBOSE=1
fi
done

10
mozilla/webtools/bugzilla/t/001compile.t
View File

@@ -45,8 +45,9 @@ use strict;
# First now we test the scripts
my @testitems = @Support::Files::testitems;
#my %warnings;
my $verbose = $::ENV{TEST_VERBOSE};
# Capture the TESTERR from Test::More for printing errors.
# This will handle verbosity for us automatically
*TESTOUT = \*Test::More::TESTOUT;
my $perlapp = $^X;
foreach my $file (@testitems) {
@@ -63,15 +64,14 @@ foreach my $file (@testitems) {
my $loginfo=`$command`;
#print '@@'.$loginfo.'##';
if ($loginfo =~ /syntax ok$/im) {
# $warnings{$_} = 1 foreach ($loginfo =~ /\((W.*?)\)/mg);
if ($loginfo ne "$file syntax OK\n") {
if ($verbose) { print STDERR $loginfo; }
print TESTOUT $loginfo;
ok(0,$file."--WARNING");
} else {
ok(1,$file);
}
} else {
if ($verbose) { print STDERR $loginfo; }
print TESTOUT $loginfo;
ok(0,$file."--ERROR");
}
}

1
mozilla/webtools/bugzilla/t/002goodperl.t
View File

@@ -44,7 +44,6 @@ BEGIN { use Test::More tests => $tests; }
use strict;
my @testitems = @Support::Files::testitems; # get the files to test.
my $verbose = $::ENV{TEST_VERBOSE};
foreach my $file (@testitems) {
$file =~ s/\s.*$//; # nuke everything after the first space (#comment)

6
mozilla/webtools/bugzilla/t/003safesys.t
View File

@@ -44,7 +44,9 @@ BEGIN { use Test::More tests => $tests; }
use strict;
my @testitems = @Support::Files::testitems;
my $verbose = $::ENV{TEST_VERBOSE};
# Capture the TESTERR from Test::More for printing errors.
# This will handle verbosity for us automatically
*TESTOUT = \*Test::More::TESTOUT;
my $perlapp = $^X;
foreach my $file (@testitems) {
@@ -54,7 +56,7 @@ foreach my $file (@testitems) {
my $loginfo=`$command`;
if ($loginfo =~ /arguments for Support::Systemexec::(system|exec)/im) {
ok(0,"$file DOES NOT use proper system or exec calls");
if ($verbose) { print STDERR $loginfo; }
print TESTOUT $loginfo;
} else {
ok(1,"$file uses proper system and exec calls");
}

1
mozilla/webtools/bugzilla/t/004template.t
View File

@@ -34,7 +34,6 @@ use Template;
my @testitems = @Support::Templates::testitems;
my $include_path = $Support::Templates::include_path;
my $verbose = $::ENV{TEST_VERBOSE};
# Check to make sure all templates that are referenced in
# Bugzilla exist in the proper place.

1
mozilla/webtools/bugzilla/t/005no_tabs.t
View File

@@ -32,7 +32,6 @@ BEGIN { use Test::More tests => $tests; }
use strict;
my @testitems = @Support::Files::testitems;
my $verbose = $::ENV{TEST_VERBOSE};
foreach my $file (@testitems) {
open (FILE, "$file");