diff options
author | gahr <gahr@gahr.ch> | 2016-06-10 12:10:41 (GMT) |
---|---|---|
committer | gahr <gahr@gahr.ch> | 2016-06-10 12:10:41 (GMT) |
commit | 74cee16544d00f49288f1819fb71e1c5c74ce5ad (patch) | |
tree | d77bcc9fb09de474104b1fc59dde7cc6c20b4031 /tests/apply.test | |
parent | 8377ed833a9566731442ef744b419425638d5040 (diff) | |
parent | 03462e2c1dfc9da26f049ee17a3001df257442e4 (diff) | |
download | tcl-74cee16544d00f49288f1819fb71e1c5c74ce5ad.zip tcl-74cee16544d00f49288f1819fb71e1c5c74ce5ad.tar.gz tcl-74cee16544d00f49288f1819fb71e1c5c74ce5ad.tar.bz2 |
Merge trunk
Diffstat (limited to 'tests/apply.test')
-rw-r--r-- | tests/apply.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/apply.test b/tests/apply.test index ba19b81..597cd97 100644 --- a/tests/apply.test +++ b/tests/apply.test @@ -228,7 +228,7 @@ test apply-8.3 {args treatment} { apply [list {x args} $applyBody] 1 2 3 } {{x 1} {args {2 3}}} test apply-8.4 {default values} { - apply [list {{x 1} {y 2}} $applyBody] + apply [list {{x 1} {y 2}} $applyBody] } {{x 1} {y 2}} test apply-8.5 {default values} { apply [list {{x 1} {y 2}} $applyBody] 3 4 |