summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-08-14 17:07:00 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-08-14 17:07:00 (GMT)
commit2b3657769b1d0b9ae6e10113b1d3c038b4967899 (patch)
treed95768f57f7d31e60d09a96c40dde315f8bf76f0 /tests
parent34f83405d31dbe1b95f1608c91f483f9170c4d23 (diff)
parent2916d083d8e80db13d25190cdc1534aad0cf67ad (diff)
downloadtcl-2b3657769b1d0b9ae6e10113b1d3c038b4967899.zip
tcl-2b3657769b1d0b9ae6e10113b1d3c038b4967899.tar.gz
tcl-2b3657769b1d0b9ae6e10113b1d3c038b4967899.tar.bz2
[a16752c252] Correct failure to call cmd deletion callbacks.
Diffstat (limited to 'tests')
-rw-r--r--tests/rename.test7
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/rename.test b/tests/rename.test
index 1fa0441..ebf5425 100644
--- a/tests/rename.test
+++ b/tests/rename.test
@@ -140,6 +140,13 @@ test rename-4.7 {reentrancy issues with command deletion and renaming} testdel {
if {[info exists env(value)]} {
unset env(value)
}
+test rename-4.8 {Bug a16752c252} testdel {
+ set x broken
+ testdel {} foo {set x ok}
+ proc foo args {}
+ rename foo {}
+ return -level 0 $x[unset x]
+} ok
# Save the unknown procedure which is modified by the following test.