diff options
| author | das <das@noemail.net> | 2009-08-30 19:18:38 (GMT) |
|---|---|---|
| committer | das <das@noemail.net> | 2009-08-30 19:18:38 (GMT) |
| commit | 8a80177a3ab0c7d231a40402e9038601bafcc2a3 (patch) | |
| tree | 22275ec1783eb0989c18bf307f97f78296075c16 /library | |
| parent | ffd1e8e3a815393c5356198f6cfaa0303e5603ab (diff) | |
| download | tcl-8a80177a3ab0c7d231a40402e9038601bafcc2a3.zip tcl-8a80177a3ab0c7d231a40402e9038601bafcc2a3.tar.gz tcl-8a80177a3ab0c7d231a40402e9038601bafcc2a3.tar.bz2 | |
add "error:" to -verbose line test failure output to satisfy stricter log parsers like Xcode 3.2
FossilOrigin-Name: 952b64194848aa0ef03383dd566bc1936209f1a1
Diffstat (limited to 'library')
| -rw-r--r-- | library/tcltest/tcltest.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl index f363c80..64a9c08 100644 --- a/library/tcltest/tcltest.tcl +++ b/library/tcltest/tcltest.tcl @@ -16,7 +16,7 @@ # Contributions from Don Porter, NIST, 2002. (not subject to US copyright) # All rights reserved. # -# RCS: @(#) $Id: tcltest.tcl,v 1.104 2009/04/08 16:05:15 dgp Exp $ +# RCS: @(#) $Id: tcltest.tcl,v 1.105 2009/08/30 19:18:39 das Exp $ package require Tcl 8.5 ;# -verbose line uses [info frame] namespace eval tcltest { @@ -2104,7 +2104,7 @@ proc tcltest::test {name description args} { } } if {[info exists testLine]} { - puts [outputChannel] "$testFile:$testLine: test failed:\ + puts [outputChannel] "$testFile:$testLine: error: test failed:\ $name [string trim $description]" } } |