[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.

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} {