summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authoraspect <aspect+tclcore@abstracted-spleen.org>2015-02-19 02:42:13 (GMT)
committeraspect <aspect+tclcore@abstracted-spleen.org>2015-02-19 02:42:13 (GMT)
commit650782af59cef1d9524137ddc9ef3f373b3cda69 (patch)
tree0a15cfa1e8417cc5fa66669fa9cc1d9d5f6fab88 /tests
parenta3fe56e967acaf42e8fb2180de39428b24fb3ed4 (diff)
downloadtcl-650782af59cef1d9524137ddc9ef3f373b3cda69.zip
tcl-650782af59cef1d9524137ddc9ef3f373b3cda69.tar.gz
tcl-650782af59cef1d9524137ddc9ef3f373b3cda69.tar.bz2
handle [lreplace l x y ...] where y<x
Diffstat (limited to 'tests')
-rw-r--r--tests/lreplace.test3
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/lreplace.test b/tests/lreplace.test
index 44f3ac2..d5c51ae 100644
--- a/tests/lreplace.test
+++ b/tests/lreplace.test
@@ -143,6 +143,9 @@ test lreplace-4.3 {lreplace edge case} {
test lreplace-4.4 {lreplace edge case} {
lreplace {1 2 3 4 5} 3 1
} {1 2 3 4 5}
+test lreplace-4.4 {lreplace edge case} {
+ lreplace {1 2 3 4 5} 3 0 _
+} {1 2 3 _ 4 5}
# cleanup
catch {unset foo}