diff options
-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 } |