summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjake%acutex.net <>2001-10-24 22:29:49 +0200
committerjake%acutex.net <>2001-10-24 22:29:49 +0200
commit1339fc04ffb9046614d71202b3b0c97b453f7f24 (patch)
treeaf13cc0d588fcee75253e481b7b4711354810a20
parent3d93fe76516a5f50639cd7f644af8c0967958757 (diff)
downloadbugzilla-1339fc04ffb9046614d71202b3b0c97b453f7f24.tar.gz
bugzilla-1339fc04ffb9046614d71202b3b0c97b453f7f24.tar.xz
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.
-rw-r--r--t/001compile.t12
1 files changed, 9 insertions, 3 deletions
diff --git a/t/001compile.t b/t/001compile.t
index 78c1ab477..c297241df 100644
--- a/t/001compile.t
+++ b/t/001compile.t
@@ -45,7 +45,7 @@ use strict;
# First now we test the scripts
my @testitems = @Support::Files::testitems;
-my %warnings;
+#my %warnings;
my $verbose = $::ENV{TEST_VERBOSE};
my $perlapp = $^X;
@@ -63,8 +63,8 @@ foreach my $file (@testitems) {
my $loginfo=`$command`;
#print '@@'.$loginfo.'##';
if ($loginfo =~ /syntax ok$/im) {
- $warnings{$_} = 1 foreach ($loginfo =~ /\((W.*?)\)/mg);
- if ($1) {
+# $warnings{$_} = 1 foreach ($loginfo =~ /\((W.*?)\)/mg);
+ if ($loginfo ne "$file syntax OK\n") {
if ($verbose) { print STDERR $loginfo; }
ok(0,$file."--WARNING");
} else {
@@ -84,3 +84,9 @@ use_ok('RelationSet'); # 55
+
+
+
+
+
+