diff options
Diffstat (limited to 'Master/tlpkg/tltcl/lib/tcl8/8.5/tcltest-2.5.3.tm')
| -rw-r--r-- | Master/tlpkg/tltcl/lib/tcl8/8.5/tcltest-2.5.3.tm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Master/tlpkg/tltcl/lib/tcl8/8.5/tcltest-2.5.3.tm b/Master/tlpkg/tltcl/lib/tcl8/8.5/tcltest-2.5.3.tm index 7dc75d7db4b..dedcd7ac16e 100644 --- a/Master/tlpkg/tltcl/lib/tcl8/8.5/tcltest-2.5.3.tm +++ b/Master/tlpkg/tltcl/lib/tcl8/8.5/tcltest-2.5.3.tm @@ -642,7 +642,7 @@ namespace eval tcltest { proc IsVerbose {level} { variable Option - return [expr {[lsearch -exact $Option(-verbose) $level] >= 0}] + return [expr {$level in $Option(-verbose)}] } # Default verbosity is to show bodies of failed tests |