diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-17 11:02:06 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-17 11:02:06 (GMT) |
| commit | 48be57a0c0537fe9378bbed20d07cf4b070a0c8e (patch) | |
| tree | dde378dc6f368007d2c4e295e91f5e77ee61feb7 /library/tcltest/tcltest.tcl | |
| parent | b60a9ffd6aaae0cc0218ac36474c1f72db036ca8 (diff) | |
| parent | 7338142bb0c0b87490dc37b637eb69b11bb6c34c (diff) | |
| download | tcl-48be57a0c0537fe9378bbed20d07cf4b070a0c8e.zip tcl-48be57a0c0537fe9378bbed20d07cf4b070a0c8e.tar.gz tcl-48be57a0c0537fe9378bbed20d07cf4b070a0c8e.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'library/tcltest/tcltest.tcl')
| -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 |