diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-18 08:47:45 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-18 08:47:45 (GMT) |
commit | 63224392940dee1706ff8d6014ae2f0658e50f0d (patch) | |
tree | 5f50cbc8e3bf60a9166f3f8ee0d1dbaba00388aa /tests | |
parent | 7d9b7ddc2d1dbdf126239a90fc1ef839acf2aece (diff) | |
parent | 20547771bb29c967bf3eb2c0d8b17df50ddb8950 (diff) | |
download | tcl-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.test | 42 |
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} { |