summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordas <das>2009-08-30 19:18:39 (GMT)
committerdas <das>2009-08-30 19:18:39 (GMT)
commitd4ddb3cf109ed11eb4f01f7a5d8e0f17fd722c6a (patch)
tree22275ec1783eb0989c18bf307f97f78296075c16
parentf79643279e56c8e153c9ece42f9cf83b88e817f5 (diff)
downloadtcl-d4ddb3cf109ed11eb4f01f7a5d8e0f17fd722c6a.zip
tcl-d4ddb3cf109ed11eb4f01f7a5d8e0f17fd722c6a.tar.gz
tcl-d4ddb3cf109ed11eb4f01f7a5d8e0f17fd722c6a.tar.bz2
add "error:" to -verbose line test failure output to satisfy stricter log parsers like Xcode 3.2
-rw-r--r--library/tcltest/tcltest.tcl4
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]"
}
}