diff options
Diffstat (limited to 'tests/basic.test')
-rw-r--r-- | tests/basic.test | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/tests/basic.test b/tests/basic.test index 1a0037c..91e4d6c 100644 --- a/tests/basic.test +++ b/tests/basic.test @@ -18,9 +18,6 @@ package require tcltest 2 namespace import ::tcltest::* -::tcltest::loadTestedCommands -catch [list package require -exact Tcltest [info patchlevel]] - testConstraint testevalex [llength [info commands testevalex]] testConstraint testcmdtoken [llength [info commands testcmdtoken]] testConstraint testcreatecommand [llength [info commands testcreatecommand]] @@ -641,10 +638,8 @@ test basic-46.5 {Tcl_AllowExceptions: exception return not allowed} -setup { "return -code return" (file "*BREAKtest" line 2)} -test basic-47.1 {Tcl_EvalEx: check for missing close-bracket} -constraints { - testevalex -} -body { - testevalex {a[set b [format cd]} +test basic-47.1 {Tcl_EvalEx: check for missing close-bracket} -body { + subst {a[set b [format cd]} } -returnCodes error -result {missing close-bracket} # Some lists for expansion tests to work with |