summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authoraspect <aspect+tclcore@abstracted-spleen.org>2015-02-19 02:34:43 (GMT)
committeraspect <aspect+tclcore@abstracted-spleen.org>2015-02-19 02:34:43 (GMT)
commita3fe56e967acaf42e8fb2180de39428b24fb3ed4 (patch)
tree437c7f1136cd39ced0be486e6e9ada7d6ee63f26 /tests
parentb45286725aeaf89d746d3f7edc0f125a4c0950a3 (diff)
downloadtcl-a3fe56e967acaf42e8fb2180de39428b24fb3ed4.zip
tcl-a3fe56e967acaf42e8fb2180de39428b24fb3ed4.tar.gz
tcl-a3fe56e967acaf42e8fb2180de39428b24fb3ed4.tar.bz2
(core ticket [32b6159246]) Fix for [lreplace l x y] where y<x-1
Diffstat (limited to 'tests')
-rw-r--r--tests/lreplace.test6
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/lreplace.test b/tests/lreplace.test
index b976788..44f3ac2 100644
--- a/tests/lreplace.test
+++ b/tests/lreplace.test
@@ -137,6 +137,12 @@ test lreplace-4.1 {Bug ccc2c2cc98: lreplace edge case} {
test lreplace-4.2 {Bug ccc2c2cc98: lreplace edge case} {
lreplace { } 1 1
} {}
+test lreplace-4.3 {lreplace edge case} {
+ lreplace {1 2 3} 2 0
+} {1 2 3}
+test lreplace-4.4 {lreplace edge case} {
+ lreplace {1 2 3 4 5} 3 1
+} {1 2 3 4 5}
# cleanup
catch {unset foo}