Fix [Bug 1379349]

1 files changed, 12 insertions, 1 deletions

diff --git a/tests/dict.test b/tests/dict.test
index 19f7088..722ba23 100644
--- a/tests/dict.test
+++ b/tests/dict.test
@@ -9,7 +9,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: dict.test,v 1.15 2005/11/07 09:38:22 dkf Exp $
+# RCS: @(#) $Id: dict.test,v 1.16 2005/12/13 13:46:15 dkf Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -540,6 +540,17 @@ test dict-14.16 {dict for command in compilation context} {
     }
     dicttest
 } {a b c d e f}
+test dict-14.17 {dict for command in compilation context} {
+    # Bug 1379349
+    proc dicttest {} {
+	set d [dict create a 1]		;# Dict must be unshared!
+	dict for {k v} $d {
+	    dict set d $k 0		;# Any modification will do
+	}
+	return $d
+    }
+    dicttest
+} {a 0}
 # There's probably a lot more tests to add here.  Really ought to use
 # a coverage tool for this job...