From 39efd5474116799b123d4082bca3a9c30c7b8b82 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Sat, 2 Sep 2017 21:14:55 +0000
Subject: Add test

---
 tests/basic.test | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/tests/basic.test b/tests/basic.test
index 91e4d6c..e4b46fd 100644
--- a/tests/basic.test
+++ b/tests/basic.test
@@ -221,6 +221,21 @@ test basic-15.1 {Tcl_CreateObjCommand, new cmd goes into a namespace specified i
     list [test_ns_basic::cmd] \
          [namespace delete test_ns_basic]
 } {::test_ns_basic {}}
+test basic-15.2 {Tcl_CreateObjCommand, Bug 0e4d88b650} -setup {
+    proc deleter {ns args} {
+        namespace delete $ns
+    }
+    namespace eval n {
+        proc p {} {}
+    }
+    trace add command n::p delete [list [namespace which deleter] [namespace current]::n]
+} -body {
+    proc n::p {} {}
+} -cleanup {
+    namespace delete n
+    rename deleter {}
+}
+
 
 test basic-16.1 {TclInvokeStringCommand} {emptyTest} {
 } {}
-- 
cgit v0.12