summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2016-03-27 16:37:11 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2016-03-27 16:37:11 (GMT)
commit365eefedf170cdc365c5d948509ffb6d12b5ce23 (patch)
tree2a979d92014a91288560d7d033fb722bb3e606b8 /tests
parentb8cacee84f43fc8f72c924e0c0fcc7c2f53f5a04 (diff)
downloadtcl-365eefedf170cdc365c5d948509ffb6d12b5ce23.zip
tcl-365eefedf170cdc365c5d948509ffb6d12b5ce23.tar.gz
tcl-365eefedf170cdc365c5d948509ffb6d12b5ce23.tar.bz2
[47ac84309b] Fix problems with [lreplace] compilation.
Diffstat (limited to 'tests')
-rw-r--r--tests/lreplace.test11
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/lreplace.test b/tests/lreplace.test
index e66a331..55a36a8 100644
--- a/tests/lreplace.test
+++ b/tests/lreplace.test
@@ -181,6 +181,17 @@ test lreplace-4.11 {lreplace end index first} {
test lreplace-4.12 {lreplace end index first} {
lreplace {0 1 2 3 4} end-2 2 a b c
} {0 1 a b c 3 4}
+
+test lreplace-5.1 {compiled lreplace: Bug 47ac84309b} {
+ apply {x {
+ lreplace $x end 0
+ }} {a b c}
+} {a b c}
+test lreplace-5.2 {compiled lreplace: Bug 47ac84309b} {
+ apply {x {
+ lreplace $x end 0 A
+ }} {a b c}
+} {a b A c}
# cleanup
catch {unset foo}