diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/exitpackage.tcl | 2 | ||||
-rw-r--r-- | tests/misc.test | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/tests/exitpackage.tcl b/tests/exitpackage.tcl index c292557..b76a0d9 100644 --- a/tests/exitpackage.tcl +++ b/tests/exitpackage.tcl @@ -1,3 +1,3 @@ # This package just exits -exit 1 +exit diff --git a/tests/misc.test b/tests/misc.test index 14c6d71..cda7f57 100644 --- a/tests/misc.test +++ b/tests/misc.test @@ -288,8 +288,8 @@ test catch-1.6 "catch break" { test catch-1.7 "catch exit" { # Normally exit would not be caught - dict get [info returncodes] [catch -exit {exit 5} result] -} {exit} + list [dict get [info returncodes] [catch -exit {exit 5} result]] $result +} {exit 5} test catch-1.8 "catch error has -errorinfo" { set rc [catch {set undefined} msg opts] |