summaryrefslogtreecommitdiffstats
path: root/tests/appendComp.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2014-11-08 07:06:52 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2014-11-08 07:06:52 (GMT)
commit69d586c18ca336c0b7eafea4bdebcf7c01b769ce (patch)
tree423ad9e3d60dbcb003793c09c09725b0cd63b433 /tests/appendComp.test
parentf033a745db5e733d99ebc0a7895320435de1bd82 (diff)
downloadtcl-69d586c18ca336c0b7eafea4bdebcf7c01b769ce.zip
tcl-69d586c18ca336c0b7eafea4bdebcf7c01b769ce.tar.gz
tcl-69d586c18ca336c0b7eafea4bdebcf7c01b769ce.tar.bz2
[214cc0eb22] Add tests to make sure that this bug stays fixed.
Diffstat (limited to 'tests/appendComp.test')
-rw-r--r--tests/appendComp.test21
1 files changed, 21 insertions, 0 deletions
diff --git a/tests/appendComp.test b/tests/appendComp.test
index f85c3ba..bbf5f9c 100644
--- a/tests/appendComp.test
+++ b/tests/appendComp.test
@@ -438,6 +438,27 @@ test appendComp-9.3 {bug 3057639, append direct eval, read trace on non-existing
} -cleanup {
unset -nocomplain ::env(__DUMMY__)
} -result {0 {new value}}
+
+test appendComp-10.1 {Bug 214cc0eb22: lappend with no values} {
+ apply {lst {
+ lappend lst
+ }} "# 1 2 3"
+} "# 1 2 3"
+test appendComp-10.2 {Bug 214cc0eb22: lappend with no values} -body {
+ apply {lst {
+ lappend lst
+ }} "1 \{ 2"
+} -returnCodes error -result {unmatched open brace in list}
+test appendComp-10.3 {Bug 214cc0eb22: expanded lappend with no values} {
+ apply {lst {
+ lappend lst {*}[list]
+ }} "# 1 2 3"
+} "# 1 2 3"
+test appendComp-10.4 {Bug 214cc0eb22: expanded lappend with no values} -body {
+ apply {lst {
+ lappend lst {*}[list]
+ }} "1 \{ 2"
+} -returnCodes error -result {unmatched open brace in list}
catch {unset i x result y}
catch {rename foo ""}