diff options
author | Steve Bennett <steveb@workware.net.au> | 2019-12-13 11:35:57 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2019-12-13 11:35:57 +1000 |
commit | 32eed9197b9560356d7c81a65d4de9f06fe70081 (patch) | |
tree | 68fb6f416bdf8963bb87acb203f9a79de27da970 | |
parent | 1f0f424fe611611251694502655b9330fc6c9e7d (diff) | |
download | jimtcl-32eed9197b9560356d7c81a65d4de9f06fe70081.zip jimtcl-32eed9197b9560356d7c81a65d4de9f06fe70081.tar.gz jimtcl-32eed9197b9560356d7c81a65d4de9f06fe70081.tar.bz2 |
tests: Fix misc.test for new return -level 0 behaviour
Signed-off-by: Steve Bennett <steveb@workware.net.au>
-rw-r--r-- | tests/misc.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/misc.test b/tests/misc.test index 0ff2a7a..14c6d71 100644 --- a/tests/misc.test +++ b/tests/misc.test @@ -306,7 +306,7 @@ test return-1.1 "return can rethrow an error" { proc b {} { catch {a} msg opts; return {*}$opts $msg } set rc [catch {b} msg opts] list $rc $msg [llength $opts(-errorinfo)] -} {1 {from a} 6} +} {1 {from a} 9} test return-1.2 "error can rethrow an error" { proc a {} { error "from a" } |