diff options
| author | aspect <aspect+tclcore@abstracted-spleen.org> | 2015-02-19 02:42:13 (GMT) |
|---|---|---|
| committer | aspect <aspect+tclcore@abstracted-spleen.org> | 2015-02-19 02:42:13 (GMT) |
| commit | 650782af59cef1d9524137ddc9ef3f373b3cda69 (patch) | |
| tree | 0a15cfa1e8417cc5fa66669fa9cc1d9d5f6fab88 /tests/lreplace.test | |
| parent | a3fe56e967acaf42e8fb2180de39428b24fb3ed4 (diff) | |
| download | tcl-650782af59cef1d9524137ddc9ef3f373b3cda69.zip tcl-650782af59cef1d9524137ddc9ef3f373b3cda69.tar.gz tcl-650782af59cef1d9524137ddc9ef3f373b3cda69.tar.bz2 | |
handle [lreplace l x y ...] where y<x
Diffstat (limited to 'tests/lreplace.test')
| -rw-r--r-- | tests/lreplace.test | 3 |
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} |