diff options
| author | evilotto <evilotto> | 2014-11-26 18:17:34 (GMT) |
|---|---|---|
| committer | evilotto <evilotto> | 2014-11-26 18:17:34 (GMT) |
| commit | 5cd6e3655aa18d12fd25de99de591b2e2074049b (patch) | |
| tree | b496abc8bdbca86c65cdc20e6d21f2bc471206c2 /tests/lreplace.test | |
| parent | 6eb9ac605e8119a21ec7d047ba0da0375559d527 (diff) | |
| parent | 33eb2510ff53b7fd3b32ea1c84b4ef85d00c10f8 (diff) | |
| download | tcl-jcr_notifier_poll.zip tcl-jcr_notifier_poll.tar.gz tcl-jcr_notifier_poll.tar.bz2 | |
Merge from trunkjcr_notifier_poll
Diffstat (limited to 'tests/lreplace.test')
| -rw-r--r-- | tests/lreplace.test | 14 |
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: |