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 | 9de817a471f8549bdbb0e66539291038903cd406 (patch) | |
| tree | e878c891395a1996c130248478b32d2a8e687824 /llvm/test | |
| parent | 8d9056c56c33ca4ff54aa1613256125e4764f845 (diff) | |
| download | bcm5719-llvm-9de817a471f8549bdbb0e66539291038903cd406.tar.gz bcm5719-llvm-9de817a471f8549bdbb0e66539291038903cd406.zip | |
Abandone the entire test case on the first error.
llvm-svn: 36056
Diffstat (limited to 'llvm/test')
| -rw-r--r-- | llvm/test/lib/llvm.exp | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/llvm/test/lib/llvm.exp b/llvm/test/lib/llvm.exp index 160a7848e39..4a5af2aec0b 100644 --- a/llvm/test/lib/llvm.exp +++ b/llvm/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" } { |
