1 files changed, 0 insertions, 157 deletions
diff --git a/testing/058_bracket_recursion.tcl b/testing/058_bracket_recursion.tcl
deleted file mode 100644
index 2ecd673..0000000
--- a/testing/058_bracket_recursion.tcl
+++ /dev/null
@@ -1,157 +0,0 @@
-#// objective: tests processing of commands inside brackets [], only references/referencedby relations are relevant
-#// check: 058__bracket__recursion_8tcl.xml
-#// config: REFERENCED_BY_RELATION = yes
-#// config: REFERENCES_RELATION = yes
-#// config: EXTRACT_ALL = yes
-#// config: INLINE_SOURCES = yes
-
-##
-# \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
-}
-#
-# check brackets with various quoting, bracing
-proc b args {
-    set r [Invoked]
-    set r [list \[NotInvoked \]]
-    return
-}
-proc c args {
-    set r \{[Invoked]\}
-    set r {[NotInvoked]}
-    return
-}
-proc d args {
-    set r "[Invoked]"
-    set r "\[NotInvoked \]"
-    return
-}
-proc e args {
-    set r [list \[NotInvoked [Invoked]\]]
-    return
-}
-proc f args {
-    set r [list [Invoked \[NotInvoked \]]]
-    return
-}
-proc g args {
-    set r "{[Invoked]}"
-    set r "{\[NotInvoked \]}"
-    return
-}
-proc h args {
-    [Invoked set] r {[NotInvoked]}
-    return
-}
-# check brackets in tcl commands containing script arguments
-#
-# example generated according to
-# https://groups.google.com/d/msg/comp.lang.tcl/G5-mc3GiIyY/e-AVD9t7xMkJ
-proc i args {
-    foreach item [Invoked] {
-    return
-    }
-}
-proc j args {
-    foreach [Invoked item] [list one two three] {
-    }
-    return
-}
-proc k args {
-    while {[Invoked 0]} {
-    }
-}
-proc l args {
-    for {} {[Invoked 0]} {} {
-    }
-}
-proc m args {
-    if {[Invoked 1]} {
-    }
-}
-proc n args {
-    if [Invoked 1] {
-    }
-}
-proc o args {
-    if {0} {
-    } elseif {[Invoked 0]} {
-    }
-}
-# these are really nasty examples
-# they shows, that the condition argument may not be parsed as a script
-set NotInvoked \$NotInvoked
-proc $NotInvoked args {
-    puts "Procedure \"\$NotInvoked\" is invoked. Not Ok!"
-    return $args
-}
-proc p args {
-    set NotInvoked \$NotInvoked
-    if {$NotInvoked eq [Invoked 1]} {
-    }
-    return
-}
-proc q args {
-    set NotInvoked \$NotInvoked
-    if {0} {
-    } elseif {$NotInvoked eq [Invoked 1]} {
-    }
-    return
-}
-proc r args {
-    set NotInvoked \$NotInvoked
-    while {$NotInvoked eq [Invoked 1]} {
-    }
-    return
-}
-proc s args {
-    set NotInvoked \$NotInvoked
-    for {} {$NotInvoked eq [Invoked 1]} {} {
-    }
-    return
-}
-# dangling open brackets should not confuse the scanner
-proc t args {
-    set foo ]]]][Invoked]
-    return
-}
-# Example according to
-# https://bugzilla.gnome.org/show_bug.cgi?id=729135
-#                                       |
-# Note the subtle difference in this    | whitespace
-#                                       V
-proc y {} {
-    set classifier_state {{bphy} }
-    if { ($classifier_state == {{bphy} }) } {
-        Invoked
-    }
-}
-proc z {} {
-    set classifier_state {{bphy} }
-    if { ($classifier_state == {{bphy} } ) } {
-        Invoked
-    }
-}
-#
-# 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
-