diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-28 11:08:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-28 11:08:46 (GMT) |
| commit | 33b2c943235d9343253e4dfc60cfb80ca0e064d6 (patch) | |
| tree | 1fdd72c0c52d3ff402f214a7d35626e9e3558c52 /library/tcltest | |
| parent | 82f2bed5fe26cb420a472abc95b92120a84e02cf (diff) | |
| parent | 8d49123e73e1b0bbbf97cd212e88960772a9e166 (diff) | |
| download | tcl-33b2c943235d9343253e4dfc60cfb80ca0e064d6.zip tcl-33b2c943235d9343253e4dfc60cfb80ca0e064d6.tar.gz tcl-33b2c943235d9343253e4dfc60cfb80ca0e064d6.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'library/tcltest')
| -rw-r--r-- | library/tcltest/tcltest.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl index 3c58782..eb47963 100644 --- a/library/tcltest/tcltest.tcl +++ b/library/tcltest/tcltest.tcl @@ -648,7 +648,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 |