summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2016-02-19 14:42:53 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2016-02-19 14:42:53 (GMT)
commit3a234ba343433d741a7a0c873702da6cb7987ae5 (patch)
treefdd7aef9911da2e29cc5b1c96e0ada1c8b02c8b1
parent52862d4aeb45df2aad6c9d0b2ef00fcb89790be8 (diff)
downloadtcl-3a234ba343433d741a7a0c873702da6cb7987ae5.zip
tcl-3a234ba343433d741a7a0c873702da6cb7987ae5.tar.gz
tcl-3a234ba343433d741a7a0c873702da6cb7987ae5.tar.bz2
Add test-case which demonstrates the problem. This test-case fails in trunk (but passes in core-8-5-branch, as expected).bug_9b47029467631832
-rw-r--r--tests/env.test13
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/env.test b/tests/env.test
index 83d99e0..f9df4d6 100644
--- a/tests/env.test
+++ b/tests/env.test
@@ -314,6 +314,19 @@ test env-7.2 {[219226]: links to env elements should not be removed by read} {
}}
} ok
+test env-7.3 {[9b4702]: testing existence of env(some_thing) should not destroy trace} {
+ apply {{} {
+ catch {unset ::env(test7_3)}
+ proc foo args {
+ set ::env(test7_3) ok
+ }
+ trace add variable ::env(not_yet_existent) write foo
+ info exists ::env(not_yet_existent)
+ set ::env(not_yet_existent) "Now I'm here";
+ info exists ::env(test7_3)
+ }}
+} 1
+
# Restore the environment variables at the end of the test.
foreach name [array names env] {