diff options
Diffstat (limited to 'tests/lreplace.test')
| -rw-r--r-- | tests/lreplace.test | 64 |
1 files changed, 6 insertions, 58 deletions
diff --git a/tests/lreplace.test b/tests/lreplace.test index d7f8226..50610dc 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} @@ -98,19 +98,14 @@ 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} { - lreplace x 1 1 -} x -test lreplace-1.28 {lreplace command} { - lreplace x 1 1 y -} {x y} + test lreplace-2.1 {lreplace errors} { list [catch lreplace msg] $msg -} {1 {wrong # args: should be "lreplace list first last ?element ...?"}} +} {1 {wrong # args: should be "lreplace list first last ?element element ...?"}} test lreplace-2.2 {lreplace errors} { list [catch {lreplace a b} msg] $msg -} {1 {wrong # args: should be "lreplace list first last ?element ...?"}} +} {1 {wrong # args: should be "lreplace list first last ?element element ...?"}} test lreplace-2.3 {lreplace errors} { list [catch {lreplace x a 10} msg] $msg } {1 {bad index "a": must be integer?[+-]integer? or end?[+-]integer?}} @@ -124,8 +119,8 @@ test lreplace-2.6 {lreplace errors} { list [catch {lreplace x 3 2} msg] $msg } {1 {list doesn't contain element 3}} test lreplace-2.7 {lreplace errors} { - list [catch {lreplace x 2 2} msg] $msg -} {1 {list doesn't contain element 2}} + list [catch {lreplace x 1 1} msg] $msg +} {1 {list doesn't contain element 1}} test lreplace-3.1 {lreplace won't modify shared argument objects} { proc p {} { @@ -186,55 +181,8 @@ 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-4.13 {lreplace empty list} { - lreplace {} 1 1 1 -} 1 -test lreplace-4.14 {lreplace empty list} { - lreplace {} 2 2 2 -} 2 - -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} -# Testing for compiled behaviour. Far too many variations to check with -# spelt-out tests. Note that this *just* checks whether the compiled version -# and the interpreted version are the same, not whether the interpreted -# version is correct. -apply {{} { - set lss {{} {a} {a b c} {a b c d}} - set ins {{} A {A B}} - set idxs {-2 -1 0 1 2 3 end-3 end-2 end-1 end end+1 end+2} - set lreplace lreplace - - foreach ls $lss { - foreach a $idxs { - foreach b $idxs { - foreach i $ins { - set expected [list [catch {$lreplace $ls $a $b {*}$i} m] $m] - set tester [list lreplace $ls $a $b {*}$i] - set script [list catch $tester m] - set script "list \[$script\] \$m" - test lreplace-6.[incr n] {lreplace battery} \ - [list apply [list {} $script]] $expected - } - } - } - } -}} - # cleanup catch {unset foo} ::tcltest::cleanupTests return - -# Local Variables: -# mode: tcl -# End: |