diff options
author | Steve Bennett <steveb@workware.net.au> | 2016-09-28 10:58:42 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2016-09-28 10:59:05 +1000 |
commit | 991e0e4ea183eedec150751ed51029bce41690c8 (patch) | |
tree | e37cf42ec0e437a516fc68f39035a4c949df0c08 | |
parent | 7a0f1c602ff55f99fe4c580b7d9f0eaad55793d2 (diff) | |
download | jimtcl-991e0e4ea183eedec150751ed51029bce41690c8.zip jimtcl-991e0e4ea183eedec150751ed51029bce41690c8.tar.gz jimtcl-991e0e4ea183eedec150751ed51029bce41690c8.tar.bz2 |
tcltest: print test description on SKIP if verbose
Signed-off-by: Steve Bennett <steveb@workware.net.au>
-rw-r--r-- | tcltest.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tcltest.tcl b/tcltest.tcl index 083f951..b98164a 100644 --- a/tcltest.tcl +++ b/tcltest.tcl @@ -199,7 +199,7 @@ proc test {id descr args} { if {![testConstraint $c]} { incr ::testinfo(numskip) if {$::testinfo(verbose)} { - puts "SKIP" + puts "SKIP $descr" } return } |