summaryrefslogtreecommitdiffstats
path: root/tests/dict.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2016-06-23 08:20:16 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2016-06-23 08:20:16 (GMT)
commit6a513d71d369eed56569ff3bf3e05c4f80c2ccae (patch)
tree0c4aafec6a50b5a8c624a647c68791f2bec68ff7 /tests/dict.test
parent23df0f8727cefc64cb5b4a6c7a3af518d16fbd7c (diff)
downloadtcl-6a513d71d369eed56569ff3bf3e05c4f80c2ccae.zip
tcl-6a513d71d369eed56569ff3bf3e05c4f80c2ccae.tar.gz
tcl-6a513d71d369eed56569ff3bf3e05c4f80c2ccae.tar.bz2
[d553228d9f] Stop crashes in [dict update] with low refcount dictionaries.
Diffstat (limited to 'tests/dict.test')
-rw-r--r--tests/dict.test7
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/dict.test b/tests/dict.test
index d5406d0..a6b0cb4 100644
--- a/tests/dict.test
+++ b/tests/dict.test
@@ -2048,6 +2048,13 @@ test dict-24.25 {dict map with huge dict (compiled)} {
}} 100000
} 166666666600000
+test dict-25.1 {compiled dict update with low-refcount values [Bug d553228d9f]} {
+ # Test crashes on failure
+ apply {{} {
+ lassign {} item
+ dict update item item item two two {}
+ }}
+} {}
# cleanup
::tcltest::cleanupTests