diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-28 10:38:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-28 10:38:44 (GMT) |
| commit | 9c024d9d3bfcd6cee7c0a39492f7e1fd4f80192d (patch) | |
| tree | c00f1e2c3c0c427dc5fce5b4dd4b760c77d70fbc /library/tcltest | |
| parent | 6b29884385ff5fa383bd25b84ae1184db4f8811c (diff) | |
| download | tcl-9c024d9d3bfcd6cee7c0a39492f7e1fd4f80192d.zip tcl-9c024d9d3bfcd6cee7c0a39492f7e1fd4f80192d.tar.gz tcl-9c024d9d3bfcd6cee7c0a39492f7e1fd4f80192d.tar.bz2 | |
Use "in" operator in stead of "lsearch -exact" when possible
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 7dc75d7..dedcd7a 100644 --- a/library/tcltest/tcltest.tcl +++ b/library/tcltest/tcltest.tcl @@ -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 |