diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2016-03-27 16:40:28 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2016-03-27 16:40:28 (GMT) |
| commit | e36f2ddf64ff6755162a079ebd33732c38b176f2 (patch) | |
| tree | e820611013a48ceb0a26d195e6145e79c77e74f6 /tests | |
| parent | d293c903f1a2757ef199f5236861bb41153795ed (diff) | |
| parent | 365eefedf170cdc365c5d948509ffb6d12b5ce23 (diff) | |
| download | tcl-e36f2ddf64ff6755162a079ebd33732c38b176f2.zip tcl-e36f2ddf64ff6755162a079ebd33732c38b176f2.tar.gz tcl-e36f2ddf64ff6755162a079ebd33732c38b176f2.tar.bz2 | |
[47ac84309b] Fix problems with [lreplace] compilation.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/lreplace.test | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/lreplace.test b/tests/lreplace.test index e66a331..55a36a8 100644 --- a/tests/lreplace.test +++ b/tests/lreplace.test @@ -181,6 +181,17 @@ test lreplace-4.11 {lreplace end index first} { test lreplace-4.12 {lreplace end index first} { lreplace {0 1 2 3 4} end-2 2 a b c } {0 1 a b c 3 4} + +test lreplace-5.1 {compiled lreplace: Bug 47ac84309b} { + apply {x { + lreplace $x end 0 + }} {a b c} +} {a b c} +test lreplace-5.2 {compiled lreplace: Bug 47ac84309b} { + apply {x { + lreplace $x end 0 A + }} {a b c} +} {a b A c} # cleanup catch {unset foo} |