summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2024-03-18 08:47:45 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2024-03-18 08:47:45 (GMT)
commit63224392940dee1706ff8d6014ae2f0658e50f0d (patch)
tree5f50cbc8e3bf60a9166f3f8ee0d1dbaba00388aa /tests
parent7d9b7ddc2d1dbdf126239a90fc1ef839acf2aece (diff)
parent20547771bb29c967bf3eb2c0d8b17df50ddb8950 (diff)
downloadtcl-63224392940dee1706ff8d6014ae2f0658e50f0d.zip
tcl-63224392940dee1706ff8d6014ae2f0658e50f0d.tar.gz
tcl-63224392940dee1706ff8d6014ae2f0658e50f0d.tar.bz2
For now, revert TIP #689 implementation, until it's accepted.
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} {