summaryrefslogtreecommitdiffstats
path: root/tests/set-old.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2013-04-29 09:31:53 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2013-04-29 09:31:53 (GMT)
commit1d75b0eb9444d42e7399a40853deb8bb47a88e4d (patch)
tree157750afa28177a9e7bdea789280ccf451698196 /tests/set-old.test
parent51ced0ecdafd3e996e1ce9de767b004ba5a9bfad (diff)
downloadtcl-1d75b0eb9444d42e7399a40853deb8bb47a88e4d.zip
tcl-1d75b0eb9444d42e7399a40853deb8bb47a88e4d.tar.gz
tcl-1d75b0eb9444d42e7399a40853deb8bb47a88e4d.tar.bz2
Improve code generation for [array set] in a common case.
Diffstat (limited to 'tests/set-old.test')
-rw-r--r--tests/set-old.test5
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/set-old.test b/tests/set-old.test
index 52dc0ff..4c25ec5 100644
--- a/tests/set-old.test
+++ b/tests/set-old.test
@@ -678,6 +678,11 @@ test set-old-8.57 {array command, array get with trivial pattern} {
set a(y) 2
array get a x
} {x 1}
+test set-old-8.58 {array command, array set with LVT and odd length literal} {
+ list [catch {apply {{} {
+ array set a {b c d}
+ }}} msg] $msg
+} {1 {list must have an even number of elements}}
test set-old-9.1 {ids for array enumeration} {
catch {unset a}