diff options
Diffstat (limited to 'tests/compExpr.test')
| -rw-r--r-- | tests/compExpr.test | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/tests/compExpr.test b/tests/compExpr.test index 14c875d..f5d2bf8 100644 --- a/tests/compExpr.test +++ b/tests/compExpr.test @@ -16,7 +16,7 @@ if {"::tcltest" ni [namespace children]} { ::tcltest::loadTestedCommands catch [list package require -exact Tcltest [info patchlevel]] -if {[catch {expr T1()} msg] && $msg eq {invalid command name "tcl::mathfunc::T1"}} { +if {[catch {expr T1()} msg] && ($msg eq {invalid command name "tcl::mathfunc::T1"})} { testConstraint testmathfunctions 0 } else { testConstraint testmathfunctions 1 @@ -25,7 +25,7 @@ if {[catch {expr T1()} msg] && $msg eq {invalid command name "tcl::mathfunc::T1" # Constrain memory leak tests testConstraint memory [llength [info commands memory]] -catch {unset a} +unset -nocomplain a test compExpr-1.1 {TclCompileExpr procedure, successful expr parse and compile} { expr 1+2 @@ -385,8 +385,7 @@ test compExpr-7.2 {[Bug 1869989]: expr parser memleak} -constraints memory -setu } -result 0 # cleanup -catch {unset a} -catch {unset b} +unset -nocomplain a b ::tcltest::cleanupTests return |