diff options
Diffstat (limited to 'testing/060_command_switch.tcl')
-rw-r--r-- | testing/060_command_switch.tcl | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/testing/060_command_switch.tcl b/testing/060_command_switch.tcl index ab556d0..407f2e9 100644 --- a/testing/060_command_switch.tcl +++ b/testing/060_command_switch.tcl @@ -204,29 +204,29 @@ proc s args { return } # wrong syntax -proc x args { - catch {switch -exact -- [Invoked] pattern1 NotInvoked pattern2} - return -} +#proc x args { +# catch {switch -exact -- [Invoked] pattern1 NotInvoked pattern2} +# return +#} # The current version does not check the last argument beforehand. # Therefore, all script elements are evaluated as scripts before # the parser detects the dangling pattern. It throws a warning, at the very least. # Anyway, for working code the documentation will be correct. -proc y args { - catch {switch -exact -- [Invoked] { - pattern { - NotInvoked - } - NotInvoked { - NotInvoked - } - default { - NotInvoked - } - pattern - }} - return -} +#proc y args { +# catch {switch -exact -- [Invoked] { +# pattern { +# NotInvoked +# } +# NotInvoked { +# NotInvoked +# } +# default { +# NotInvoked +# } +# pattern +# }} +# return +#} # # call all single letter procs # let tcl check what is called and what is not called |