diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-08-05 08:57:41 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2011-08-22 08:20:11 +1000 |
commit | b5d191e9f8e01b840ab46eaced3c2f08534b3f63 (patch) | |
tree | 0689f960c316c451783fb26346c14b4c66912db0 | |
parent | 33b86c56df545baf6b9e5f0c1decdd0052dd8cea (diff) | |
download | jimtcl-b5d191e9f8e01b840ab46eaced3c2f08534b3f63.zip jimtcl-b5d191e9f8e01b840ab46eaced3c2f08534b3f63.tar.gz jimtcl-b5d191e9f8e01b840ab46eaced3c2f08534b3f63.tar.bz2 |
Allow -returnCodes to use numbers as well as names
Signed-off-by: Steve Bennett <steveb@workware.net.au>
-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" |