summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2011-06-02 14:45:00 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2011-06-02 14:45:00 (GMT)
commitc64a4321a3facb02fef01af7f7384f8ef961ff4f (patch)
tree47d1bb6bee23c9563a20a7859d96bf43555bd593 /tests
parentc31b5e030892e09c7f5bdc8538ecc09b760bab3b (diff)
parent5d982178ea4904932de32a6331512d6db0174a91 (diff)
downloadtcl-c64a4321a3facb02fef01af7f7384f8ef961ff4f.zip
tcl-c64a4321a3facb02fef01af7f7384f8ef961ff4f.tar.gz
tcl-c64a4321a3facb02fef01af7f7384f8ef961ff4f.tar.bz2
[Bug 3185407]: Extend the set of epochs that are potentially bumped (in
TclInvalidateNsCmdLookup) when a command is created, for a slight performance drop (in some circumstances) and improved semantics.
Diffstat (limited to 'tests')
-rw-r--r--tests/namespace.test16
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/namespace.test b/tests/namespace.test
index 504d532..2be4cfc 100644
--- a/tests/namespace.test
+++ b/tests/namespace.test
@@ -2467,6 +2467,22 @@ test namespace-51.16 {Bug 1566526} {
slave eval namespace eval demo namespace path ::
interp delete slave
} {}
+test namespace-51.17 {Bug 3185407} -setup {
+ namespace eval ::test_ns_1 {}
+} -body {
+ namespace eval ::test_ns_1 {
+ variable result {}
+ namespace eval ns {proc foo {} {}}
+ namespace eval ns2 {proc foo {} {}}
+ namespace path {ns ns2}
+ variable x foo
+ lappend result [namespace which $x]
+ proc foo {} {}
+ lappend result [namespace which $x]
+ }
+} -cleanup {
+ namespace delete ::test_ns_1
+} -result {::test_ns_1::ns::foo ::test_ns_1::foo}
# TIP 181 - namespace unknown tests
test namespace-52.1 {unknown: default handler ::unknown} {