diff options
Diffstat (limited to 'tests/lindex.test')
| -rw-r--r-- | tests/lindex.test | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/tests/lindex.test b/tests/lindex.test index b86e2e0..fee9f48 100644 --- a/tests/lindex.test +++ b/tests/lindex.test @@ -17,9 +17,6 @@ if {[lsearch [namespace children] ::tcltest] == -1} { namespace import -force ::tcltest::* } -::tcltest::loadTestedCommands -catch [list package require -exact Tcltest [info patchlevel]] - set minus - testConstraint testevalex [llength [info commands testevalex]] @@ -27,7 +24,7 @@ testConstraint testevalex [llength [info commands testevalex]] test lindex-1.1 {wrong # args} testevalex { list [catch {testevalex lindex} result] $result -} "1 {wrong # args: should be \"lindex list ?index ...?\"}" +} "1 {wrong # args: should be \"lindex list ?index...?\"}" # Indices that are lists or convertible to lists @@ -191,7 +188,7 @@ test lindex-8.7 {data reuse} testevalex { test lindex-9.1 {wrong # args} { list [catch {lindex} result] $result -} "1 {wrong # args: should be \"lindex list ?index ...?\"}" +} "1 {wrong # args: should be \"lindex list ?index...?\"}" test lindex-9.2 {ensure that compilation works in the right order} { proc foo {} { rename foo {} |