diff options
author | aspect <aspect+tclcore@abstracted-spleen.org> | 2015-02-19 02:34:43 (GMT) |
---|---|---|
committer | aspect <aspect+tclcore@abstracted-spleen.org> | 2015-02-19 02:34:43 (GMT) |
commit | 48650316e3373be33455bab6db0a33546169c906 (patch) | |
tree | 437c7f1136cd39ced0be486e6e9ada7d6ee63f26 /tests | |
parent | 3f9555d4c2af861ded30792fc8a9c35b23187a2c (diff) | |
download | tcl-48650316e3373be33455bab6db0a33546169c906.zip tcl-48650316e3373be33455bab6db0a33546169c906.tar.gz tcl-48650316e3373be33455bab6db0a33546169c906.tar.bz2 |
(core ticket [32b6159246]) Fix for [lreplace l x y] where y<x-1
Diffstat (limited to 'tests')
-rw-r--r-- | tests/lreplace.test | 6 |
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} |