1 files changed, 0 insertions, 43 deletions
diff --git a/testing/063_bug_729092.tcl b/testing/063_bug_729092.tcl
deleted file mode 100644
index a6d3341..0000000
--- a/testing/063_bug_729092.tcl
+++ /dev/null
@@ -1,43 +0,0 @@
-#// objective: test for bug 729092 - TCL: Full documentation not shown for procs in namespaces.
-#// check: namespaceoo.xml
-#// check: namespaceoo_1_1_helpers.xml
-#// check: namespaceoo_1_1define.xml
-#// config: EXTRACT_ALL = yes
-#// config: GENERATE_HTML = yes
-
-# taken from
-# https://bugzilla.gnome.org/show_bug.cgi?id=729092
-
-##
-# Extension to TclOO to add static methods.
-# Defines the method on the class instead of on the object. Can be used for
-# the creation of megawidgets using TclOO by overriding the unknown method to
-# detect if the user is trying to instantiate a widget (because the method
-# will be unknown and start with a dot).
-#
-proc ::oo::define::classmethod {name {args ""} {body ""}} {
-    # Create the method on the class if the caller gave arguments and body.
-    if {[llength [info level 0]] == 4} {
-        uplevel 1 [list self method $name $args $body]
-    }
-    # Get the name of the class being defined.
-    set cls [lindex [info level -1] 1]
-    # Make connection to private class "my" command by forwarding.
-    uplevel forward $name [info object namespace $cls]::my $name
-}
-
-##
-# Extension to TclOO to add static variables.
-# Defines variables on the class instead of on the object. Can be used to
-# enforce a limited number of instantiations.
-#
-proc ::oo::Helpers::classvar {args} {
-    # Get reference to class's namespace.
-    set nsCl [info object namespace [uplevel 1 {self class}]]
-    set nsObj [uplevel 1 {namespace current}]
-    # Link variables into local (caller's) scope.
-    foreach v $args {
-        uplevel "my variable $v"
-        upvar #0 ${nsCl}::$v ${nsObj}::$v
-    }
-}