diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/testing.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/testing.tcl b/tests/testing.tcl index 6f7a56e..695c543 100644 --- a/tests/testing.tcl +++ b/tests/testing.tcl @@ -150,7 +150,7 @@ proc test {id descr args} { set rc [catch {uplevel 1 $a(-body)} result opts] catch {uplevel 1 $a(-cleanup)} - if {[info return $rc] ni $a(-returnCodes)} { + if {[info return $rc] ni $a(-returnCodes) && $rc ni $a(-returnCodes)} { set ok 0 set expected "rc=$a(-returnCodes) result=$a(-result)" set result "rc=[info return $rc] result=$result" |