Disabled/fixed segments that produced doxygen warnings while running the test

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