[llvm-commits] [llvm] r49725 - /llvm/branches/ggreif/parallelized-test/lib/llvm.exp

[Gabor Greif]

Author: ggreif
Date: Tue Apr 15 07:03:38 2008
New Revision: 49725

URL: http://llvm.org/viewvc/llvm-project?rev=49725&view=rev
Log:
make verbosity controllable

Modified:
    llvm/branches/ggreif/parallelized-test/lib/llvm.exp

Modified: llvm/branches/ggreif/parallelized-test/lib/llvm.exp
URL: http://llvm.org/viewvc/llvm-project/llvm/branches/ggreif/parallelized-test/lib/llvm.exp?rev=49725&r1=49724&r2=49725&view=diff

==============================================================================
--- llvm/branches/ggreif/parallelized-test/lib/llvm.exp (original)
+++ llvm/branches/ggreif/parallelized-test/lib/llvm.exp Tue Apr 15 07:03:38 2008
@@ -81,7 +81,7 @@
 
 # This procedure runs the set of tests for the test_source_files array.
 proc RunLLVMTests { test_source_files } {
-  global srcroot objroot srcdir objdir subdir
+  global srcroot objroot srcdir objdir subdir verbose
 
   if 0==[llength $test_source_files] {
     verbose "NOTE: test suite without tests: $subdir" 1
@@ -133,7 +133,11 @@
   puts $makeFileId "\t   echo proc xfail { msg } { puts '\"XFAIL: \$\$msg\"' }; \\"
   puts $makeFileId "\t   echo proc pass { msg } { puts '\"PASS: \$\$msg\"' }; \\"
   puts $makeFileId "\t   echo proc xpass { msg } { puts '\"XPASS: \$\$msg\"' '; exit 1' }; \\"
-  puts $makeFileId "\t   echo proc verbose { msg level } { puts stderr '\"\$\$msg\"' }; \\"
+  if $verbose>=2 {
+    puts $makeFileId "\t   echo proc verbose { msg level } { puts stderr '\"\$\$msg\"' }; \\"
+  } else {
+    puts $makeFileId "\t   echo proc verbose { msg level } { }; \\"
+  }
   puts $makeFileId "\t   echo set subdir \$(SUBDIR); \\"
   puts $makeFileId "\t   echo run_one_test \$<) | \\"
   puts $makeFileId "\t  (ulimit -t 600; \\"