Encapsulated all of the print statements in "if( $VERBOSE) { }". The testing script will be absoutely silent now except for errors, which will still be printed to the annoyance of the user.

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@29525 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Patrick Jenkins 2006-08-04 17:53:27 +00:00
parent 190a418bf6
commit ea103a86fa

View File

@ -185,7 +185,7 @@ if ($CONFIGUREARGS !~ /--disable-jit/) {
}
if (@ARGV != 0 and @ARGV != 3){
if (@ARGV != 0 and @ARGV != 3 and $VERBOSE){
foreach $x (@ARGV){
print "$x\n";
}
@ -376,7 +376,7 @@ sub GetDejagnuTestResults { # (filename, log)
my $firstline;
$/ = "\n"; #Make sure we're going line at a time.
print "DEJAGNU TEST RESULTS:\n";
if( $VERBOSE) { print "DEJAGNU TEST RESULTS:\n"; }
if (open SRCHFILE, $filename) {
# Process test results
@ -394,10 +394,10 @@ sub GetDejagnuTestResults { # (filename, log)
$first_list = 0;
$should_break = 1;
push(@lines, "$_\n");
print " $_\n";
if( $VERBOSE) { print " $_\n"; }
} else {
push(@lines, "$_\n");
print " $_\n";
if( $VERBOSE) { print " $_\n"; }
}
} #elsif ( m/Summary/ ) {
# if ( $first_list ) {
@ -414,7 +414,7 @@ sub GetDejagnuTestResults { # (filename, log)
#}
elsif ( $readingsum ) {
push(@lines,"$_\n");
print " $_\n";
if( $VERBOSE) { print " $_\n"; }
}
}
@ -460,7 +460,7 @@ sub SendData{
$send.= "Content-length: $length\n\n";
$send.= "$content";
print SOCK $send;
#print SOCK $send;
my $result;
while(<SOCK>){
$result .= $_;