diff options
| author | aspect <aspect+tclcore@abstracted-spleen.org> | 2015-06-16 00:41:39 (GMT) |
|---|---|---|
| committer | aspect <aspect+tclcore@abstracted-spleen.org> | 2015-06-16 00:41:39 (GMT) |
| commit | ea9f9ac81ed1924402c16e0bd4674a065acb80b8 (patch) | |
| tree | b2a52a81f044fe9da430aa691f31f4a4f64d2d20 /tests/lreplace.test | |
| parent | 3d5869fb4bb012a0188d91ec25d638fdde7342b0 (diff) | |
| download | tcl-ea9f9ac81ed1924402c16e0bd4674a065acb80b8.zip tcl-ea9f9ac81ed1924402c16e0bd4674a065acb80b8.tar.gz tcl-ea9f9ac81ed1924402c16e0bd4674a065acb80b8.tar.bz2 | |
fix for a4cb3f06c4fe - bug introduced in 32b61592465
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 d1319c6..cf0ae51 100644 --- a/tests/lreplace.test +++ b/tests/lreplace.test @@ -146,6 +146,9 @@ test lreplace-4.4 {lreplace edge case} { test lreplace-4.5 {lreplace edge case} { lreplace {1 2 3 4 5} 3 0 _ } {1 2 3 _ 4 5} +test lreplace-4.6 {lreplace end-x: bug a4cb3f06c4} { + lreplace {0 1 2 3 4} 0 end-2 +} {3 4} # cleanup catch {unset foo} |