diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-28 11:28:39 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-28 11:28:39 (GMT) |
commit | 800a6d497e5bafa649964373af2523d09526e914 (patch) | |
tree | a05a7d9318a109a06f1ca343538c82487c750838 /library | |
parent | 9cc6bfd27a7df39781fec100fb172ac516802891 (diff) | |
parent | 33b2c943235d9343253e4dfc60cfb80ca0e064d6 (diff) | |
download | tcl-800a6d497e5bafa649964373af2523d09526e914.zip tcl-800a6d497e5bafa649964373af2523d09526e914.tar.gz tcl-800a6d497e5bafa649964373af2523d09526e914.tar.bz2 |
Merge 8.7
Diffstat (limited to 'library')
-rw-r--r-- | library/opt/optparse.tcl | 2 | ||||
-rw-r--r-- | library/tcltest/tcltest.tcl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/library/opt/optparse.tcl b/library/opt/optparse.tcl index 1639379..454b923 100644 --- a/library/opt/optparse.tcl +++ b/library/opt/optparse.tcl @@ -601,7 +601,7 @@ proc ::tcl::OptCheckType {arg type {typeArgs ""}} { return [expr {$arg ? 1 : 0}] } choice { - if {[lsearch -exact $typeArgs $arg] < 0} { + if {$arg ni $typeArgs} { error "invalid choice" } return $arg 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 |