diff options
author | Reid Spencer <rspencer@reidspencer.com> | 2007-04-15 07:21:26 +0000 |
---|---|---|
committer | Reid Spencer <rspencer@reidspencer.com> | 2007-04-15 07:21:26 +0000 |
commit | 0947df46065c7070346000d31d8b2d62eb5ead8b (patch) | |
tree | 1040383ff69e7b144f1e11f5f9cd7b362c8687f8 /test/lib | |
parent | ca5d9ca748773a122024aa9e3c533de31726b85e (diff) | |
download | external_llvm-0947df46065c7070346000d31d8b2d62eb5ead8b.zip external_llvm-0947df46065c7070346000d31d8b2d62eb5ead8b.tar.gz external_llvm-0947df46065c7070346000d31d8b2d62eb5ead8b.tar.bz2 |
Abandone the entire test case on the first error.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@36056 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'test/lib')
-rw-r--r-- | test/lib/llvm.exp | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/test/lib/llvm.exp b/test/lib/llvm.exp index 160a784..4a5af2a 100644 --- a/test/lib/llvm.exp +++ b/test/lib/llvm.exp @@ -45,7 +45,9 @@ proc substitute { line test tmpFile } { set path [file join $srcdir $subdir] set tmp [file join Output $tmpFile] - set new_line $line + # Substitute all Tcl variables. + set new_line [subst $line ] + #replace %prcontext with prcontext.tcl (Must replace before %p) regsub -all {%prcontext} $new_line $prcontext new_line #replace %llvmgcc with actual path to llvmgcc @@ -159,7 +161,6 @@ proc RunLLVMTests { test_source_files } { set failed 0 for { set i 0 } { $i < $numLines } { set i [ expr $i + 1 ] } { regsub ^.*RUN:(.*) $lines($i) \1 theLine - set theLine [subst $theLine ] set resultmsg [execOneLine $test $PRNUMS $outcome $i $theLine ] if { $resultmsg != "" } { if { $outcome == "XFAIL" } { @@ -171,8 +172,10 @@ proc RunLLVMTests { test_source_files } { break } } - if { !$failed } { - if {$PRNUMS != ""} { + if { $failed } { + break; + } else { + if { $PRNUMS != "" } { set PRNUMS " for $PRNUMS" } if { $outcome == "XFAIL" } { |