diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-03-08 17:26:49 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-03-08 17:26:49 (GMT) |
| commit | 64038c5656f9d288cb8a710c5b0b397244911b88 (patch) | |
| tree | e13aea5613a3801ce02f52efd4f2cbc532385956 /tests | |
| parent | 101ac8bca755a22b853816ef11db876e71d0ee29 (diff) | |
| download | tcl-64038c5656f9d288cb8a710c5b0b397244911b88.zip tcl-64038c5656f9d288cb8a710c5b0b397244911b88.tar.gz tcl-64038c5656f9d288cb8a710c5b0b397244911b88.tar.bz2 | |
Rollback the stealth change to [lreplace a 1 1] in Tcl 8.6.6. [409ea17e37].
Scratch rewrite of the [lreplace] compiler.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/lreplace.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/lreplace.test b/tests/lreplace.test index d7f8226..392e84d 100644 --- a/tests/lreplace.test +++ b/tests/lreplace.test @@ -98,12 +98,12 @@ test lreplace-1.26 {lreplace command} { [set foo [lreplace $foo end end]] \ [set foo [lreplace $foo end end]] } {a {} {}} -test lreplace-1.27 {lreplace command} { +test lreplace-1.27 {lreplace command} -body { lreplace x 1 1 -} x -test lreplace-1.28 {lreplace command} { +} -returnCodes 1 -result {list doesn't contain element 1} +test lreplace-1.28 {lreplace command} -body { lreplace x 1 1 y -} {x y} +} -returnCodes 1 -result {list doesn't contain element 1} test lreplace-2.1 {lreplace errors} { list [catch lreplace msg] $msg |