summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2024-03-18 11:59:02 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2024-03-18 11:59:02 (GMT)
commite0d3f5baa9f4c849cb603fedafdc55721417f145 (patch)
treefe28e2c1a33da71db91c754a0a922e4fda71af08 /tests
parent877d7934df687cd8d0c49a794a2fa755663b5e74 (diff)
downloadtcl-e0d3f5baa9f4c849cb603fedafdc55721417f145.zip
tcl-e0d3f5baa9f4c849cb603fedafdc55721417f145.tar.gz
tcl-e0d3f5baa9f4c849cb603fedafdc55721417f145.tar.bz2
Now _really_ remove TIP #689
Diffstat (limited to 'tests')
-rw-r--r--tests/namespace.test42
1 files changed, 0 insertions, 42 deletions
diff --git a/tests/namespace.test b/tests/namespace.test
index abe642e..ae233cb 100644
--- a/tests/namespace.test
+++ b/tests/namespace.test
@@ -3124,48 +3124,6 @@ test namespace-52.12 {unknown: error case must not reset handler} -body {
} -cleanup {
namespace delete foo
} -result ok
-test namespace-52.13 {unknown: invocation outside of NS doesn't evade namespace unknown, bug 910d67a229fe7f65} -body {
- namespace eval ::foo::bar {
- proc _unknown args {list ::foo:bar:_unknown [uplevel {namespace current}] $args}
- namespace unknown [namespace current]::_unknown
- }
- list [namespace inscope ::foo::bar {xxx}] [namespace inscope ::foo {bar::xxx}] [::foo::bar::xxx] [namespace inscope :: {foo::bar::xxx}]
-} -cleanup {
- namespace delete ::foo
-} -result {{::foo:bar:_unknown ::foo::bar xxx} {::foo:bar:_unknown ::foo bar::xxx} {::foo:bar:_unknown :: ::foo::bar::xxx} {::foo:bar:_unknown :: foo::bar::xxx}}
-test namespace-52.14 {unknown: invocation outside of NS doesn't evade namespace unknown for command with sub-NS, bug 910d67a229fe7f65} -body {
- namespace eval ::foo::bar {
- proc _unknown args {list ::foo:bar:_unknown [uplevel {namespace current}] $args}
- namespace unknown [namespace current]::_unknown
- }
- set res {}
- lappend res [namespace inscope ::foo::bar {xxx::yyy}] [namespace inscope ::foo {bar::xxx::yyy}] [::foo::bar::xxx::yyy] [namespace inscope :: {foo::bar::xxx::yyy}]
- # now with existsing ::foo::bar::xxx, but without unknown handler inside (only parent ::foo::bar has a handler):
- namespace eval ::foo::bar::xxx {}
- lappend res [namespace inscope ::foo::bar {xxx::yyy}] [namespace inscope ::foo {bar::xxx::yyy}] [::foo::bar::xxx::yyy] [namespace inscope :: {foo::bar::xxx::yyy}]
-} -cleanup {
- namespace delete ::foo
- unset -nocomplain res
-} -result [lrepeat 2 \
- {::foo:bar:_unknown ::foo::bar xxx::yyy} {::foo:bar:_unknown ::foo bar::xxx::yyy} {::foo:bar:_unknown :: ::foo::bar::xxx::yyy} {::foo:bar:_unknown :: foo::bar::xxx::yyy}
-]
-test namespace-52.14 {unknown: it must consider alternate search path (relative global NS), bug 910d67a229fe7f65} -body {
- namespace eval ::foo::bar {}
- namespace eval ::xxx::yyy {
- proc _unknown args {list ::xxx:yyy:_unknown [uplevel {namespace current}] $args}
- namespace unknown [namespace current]::_unknown
- }
- set res {}
- lappend res [namespace inscope ::foo::bar {xxx::yyy::cmd}] [namespace inscope ::foo {xxx::yyy::cmd}]
- namespace eval ::foo::bar::xxx {}
- lappend res [namespace inscope ::foo::bar {xxx::yyy::cmd}] [namespace inscope ::foo {xxx::yyy::cmd}]
- namespace eval ::foo::bar::xxx::yyy {}
- lappend res [namespace inscope ::foo::bar {xxx::yyy::cmd}] [namespace inscope ::foo {xxx::yyy::cmd}]
-} -cleanup {
- namespace delete ::foo
- namespace delete ::xxx
- unset -nocomplain res
-} -result [lrepeat 3 {::xxx:yyy:_unknown ::foo::bar xxx::yyy::cmd} {::xxx:yyy:_unknown ::foo xxx::yyy::cmd}]
# TIP 314 - ensembles with parameters
test namespace-53.1 {ensembles: parameters} {