summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2014-09-05 10:05:05 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2014-09-05 10:05:05 (GMT)
commit0b7aa99ede7838e4390b0c14bcda9485a08d0cf4 (patch)
treea13d527efc04cfe17dce8b8bfb99d04f2d0bad4d /tests
parent1ce040baf210e345e2c8f8a19fe7b8d821274c4b (diff)
downloadtcl-0b7aa99ede7838e4390b0c14bcda9485a08d0cf4.zip
tcl-0b7aa99ede7838e4390b0c14bcda9485a08d0cf4.tar.gz
tcl-0b7aa99ede7838e4390b0c14bcda9485a08d0cf4.tar.bz2
[ccc2c2cc98]: lreplace edge case
Diffstat (limited to 'tests')
-rw-r--r--tests/lreplace.test14
1 files changed, 13 insertions, 1 deletions
diff --git a/tests/lreplace.test b/tests/lreplace.test
index 5f675bc..b976788 100644
--- a/tests/lreplace.test
+++ b/tests/lreplace.test
@@ -15,7 +15,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
namespace import -force ::tcltest::*
}
-
+
test lreplace-1.1 {lreplace command} {
lreplace {1 2 3 4 5} 0 0 a
} {a 2 3 4 5}
@@ -130,7 +130,19 @@ test lreplace-3.1 {lreplace won't modify shared argument objects} {
p
} "a b c"
+test lreplace-4.1 {Bug ccc2c2cc98: lreplace edge case} {
+ lreplace {} 1 1
+} {}
+# Note that this test will fail in 8.5
+test lreplace-4.2 {Bug ccc2c2cc98: lreplace edge case} {
+ lreplace { } 1 1
+} {}
+
# cleanup
catch {unset foo}
::tcltest::cleanupTests
return
+
+# Local Variables:
+# mode: tcl
+# End: