diff options
Diffstat (limited to 'testing/060_command_switch.tcl')
| -rw-r--r-- | testing/060_command_switch.tcl | 238 |
1 files changed, 0 insertions, 238 deletions
diff --git a/testing/060_command_switch.tcl b/testing/060_command_switch.tcl deleted file mode 100644 index 407f2e9..0000000 --- a/testing/060_command_switch.tcl +++ /dev/null @@ -1,238 +0,0 @@ -#// objective: tests processing of switch, only references/referencedby relations are relevant -#// check: 060__command__switch_8tcl.xml -#// config: REFERENCED_BY_RELATION = yes -#// config: REFERENCES_RELATION = yes -#// config: EXTRACT_ALL = yes -#// config: INLINE_SOURCES = no - -## -# \brief should be reference by every proc below -proc Invoked args { - puts "Procedure \"Invoked\" is invoked indeed. Ok." - return $args -} -## -# \brief must not be reference by every proc below -proc NotInvoked args { - puts "Procedure \"NotInvoked\" is invoked. Not Ok!" - return $args -} -# -# check if call references work at all -proc a args { - Invoked NotInvoked - return -} -# -# switch command -# switch ?options? string pattern body ?pattern body ...? -proc b args { - switch value NotInvoked { - } NotInvoked { - } default { - Invoked - } - return -} -proc c args { - switch value NotInvoked { - } [Invoked] { - } default { - } - return -} -proc d args { - switch NotInvoked pattern { - } [Invoked] { - } default { - } - return -} -proc e args { - switch [Invoked] pattern { - } NotInvoked { - } default { - } - return -} -proc f args { - switch -exact value pattern { - } NotInvoked { - } default { - Invoked - } - return -} -proc g args { - switch -exact -- value pattern { - } NotInvoked { - } default { - Invoked - } - return -} -proc h args { - switch -exact -- -value pattern { - } NotInvoked { - } default { - Invoked - } - return -} -# switch ?options? string {pattern body ?pattern body ...?} -proc i args { - switch value { - NotInvoked { - } - NotInvoked { - } - default { - Invoked - } - } - return -} -proc j args { - switch vale { - NotInvoked { - } - [NotInvoked] { - } - default { - Invoked - } - } - return -} -proc k args { - switch NotInvoked { - [NotInvoked] { - } - NotInvoked { - Invoked - } - default { - } - } - return -} -proc l args { - switch [Invoked] { - pattern { - } - NotInvoked { - } - default { - } - } - return -} -proc m args { - switch -exact value { - pattern { - } - NotInvoked { - } - default { - Invoked - } - } - return -} -proc n args { - switch -exact -- value { - pattern { - } - NotInvoked { - } - default { - Invoked - } - } - return -} -proc o args { - switch -exact -- -value { - pattern { - } - NotInvoked { - } - default { - Invoked - } - } - return -} -proc p args { - switch -exact -- inquotes { - "inquotes" { - Invoked - } - default { - } - } - return -} -proc q args { - switch -exact -- "in quotes" { - "in quotes" { - Invoked - } - default { - } - } - return -} -proc r args { - switch -exact -- inbraces { - {inbraces} { - Invoked - } - default { - } - } - return -} -proc s args { - switch -exact -- {in braces} { - {in braces} { - Invoked - } - default { - } - } - return -} -# wrong syntax -#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 -#} -# -# call all single letter procs -# let tcl check what is called and what is not called -foreach p [info procs ?] { - puts "Check procedure \"$p\"" - $p -} -exit - |