aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2019-12-13 11:35:57 +1000
committerSteve Bennett <steveb@workware.net.au>2019-12-13 11:35:57 +1000
commit32eed9197b9560356d7c81a65d4de9f06fe70081 (patch)
tree68fb6f416bdf8963bb87acb203f9a79de27da970 /tests
parent1f0f424fe611611251694502655b9330fc6c9e7d (diff)
downloadjimtcl-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>
Diffstat (limited to 'tests')
-rw-r--r--tests/misc.test2
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" }