diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-09-05 10:05:05 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-09-05 10:05:05 (GMT) |
| commit | 0b7aa99ede7838e4390b0c14bcda9485a08d0cf4 (patch) | |
| tree | a13d527efc04cfe17dce8b8bfb99d04f2d0bad4d /tests | |
| parent | 1ce040baf210e345e2c8f8a19fe7b8d821274c4b (diff) | |
| download | tcl-0b7aa99ede7838e4390b0c14bcda9485a08d0cf4.zip tcl-0b7aa99ede7838e4390b0c14bcda9485a08d0cf4.tar.gz tcl-0b7aa99ede7838e4390b0c14bcda9485a08d0cf4.tar.bz2 | |
[ccc2c2cc98]: lreplace edge case
Diffstat (limited to 'tests')
| -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: |