Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-12-13 10:25:01 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Bug 106424 - We weren't going orange on warnings such as "used only once". This script now properly outputs the --WARNING and fails on such a condition.

Browse Source
This commit is contained in:
jake%acutex.net 2001-10-24 13:29:49 +00:00
parent c24e2968a6
commit 670ce08714
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
webtools/bugzilla/t/001compile.t
View File

@ -45,7 +45,7 @@ use strict;
# First now we test the scripts # First now we test the scripts
my @testitems = @Support::Files::testitems; my @testitems = @Support::Files::testitems;
my %warnings; #my %warnings;
my $verbose = $::ENV{TEST_VERBOSE}; my $verbose = $::ENV{TEST_VERBOSE};
my $perlapp = $^X; my $perlapp = $^X;
@ -63,8 +63,8 @@ foreach my $file (@testitems) {
my $loginfo=`$command`; my $loginfo=`$command`;
#print '@@'.$loginfo.'##'; #print '@@'.$loginfo.'##';
if ($loginfo =~ /syntax ok$/im) { if ($loginfo =~ /syntax ok$/im) {
$warnings{$_} = 1 foreach ($loginfo =~ /\((W.*?)\)/mg); # $warnings{$_} = 1 foreach ($loginfo =~ /\((W.*?)\)/mg);
if ($1) { if ($loginfo ne "$file syntax OK\n") {
if ($verbose) { print STDERR $loginfo; } if ($verbose) { print STDERR $loginfo; }
ok(0,$file."--WARNING"); ok(0,$file."--WARNING");
} else { } else {
@ -84,3 +84,9 @@ use_ok('RelationSet'); # 55