From 1339fc04ffb9046614d71202b3b0c97b453f7f24 Mon Sep 17 00:00:00 2001
From: "jake%acutex.net" <>
Date: Wed, 24 Oct 2001 20:29:49 +0000
Subject: 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.

---
 t/001compile.t | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 't/001compile.t')

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
 
 
 
+
+
+
+
+
+
-- 
cgit v1.2.3-24-g4f1b