diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2016-03-27 16:37:11 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2016-03-27 16:37:11 (GMT) |
| commit | 365eefedf170cdc365c5d948509ffb6d12b5ce23 (patch) | |
| tree | 2a979d92014a91288560d7d033fb722bb3e606b8 /tests/lreplace.test | |
| parent | b8cacee84f43fc8f72c924e0c0fcc7c2f53f5a04 (diff) | |
| download | tcl-365eefedf170cdc365c5d948509ffb6d12b5ce23.zip tcl-365eefedf170cdc365c5d948509ffb6d12b5ce23.tar.gz tcl-365eefedf170cdc365c5d948509ffb6d12b5ce23.tar.bz2 | |
[47ac84309b] Fix problems with [lreplace] compilation.
Diffstat (limited to 'tests/lreplace.test')
| -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} |