summaryrefslogtreecommitdiffstats
path: root/tests/dict.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/dict.test')
-rw-r--r--tests/dict.test9
1 files changed, 8 insertions, 1 deletions
diff --git a/tests/dict.test b/tests/dict.test
index 6f4ea3c..ce51633 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.23 2007/12/13 15:26:06 dgp Exp $
+# RCS: @(#) $Id: dict.test,v 1.24 2008/03/16 17:00:44 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -562,6 +562,13 @@ test dict-14.18 {dict for command in compilation context} {
test dict-14.19 {dict for and invalid dicts: bug 1531184} -body {
di[list]ct for {k v} x {}
} -returnCodes 1 -result {missing value to go with key}
+test dict-14.20 {dict for stack space compilation: bug 1903325} {
+ proc dicttest {x y args} {
+ dict for {a b} $x {}
+ concat "c=$y,$args"
+ }
+ dicttest {} 1 2 3
+} {c=1,2 3}
# There's probably a lot more tests to add here. Really ought to use a
# coverage tool for this job...