diff options
Diffstat (limited to 'tests/result.test')
| -rw-r--r-- | tests/result.test | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/tests/result.test b/tests/result.test index ff60713..4337ef3 100644 --- a/tests/result.test +++ b/tests/result.test @@ -111,11 +111,16 @@ test result-5.4 {Tcl_SetErrorCode - two args, list quoting} testseterrorcode { ::tcltest::testConstraint testreturn \ [expr {[info commands testreturn] != {}}] -test result-6.0 {Bug 1209759} testreturn { +test result-6.0 {Bug 1209759} -constraints testreturn -body { # Might panic if bug is not fixed. proc foo {} {testreturn} foo -} {} +} -returnCodes ok -result {} +test result-6.1 {Bug 1209759} -constraints testreturn -body { + # Might panic if bug is not fixed. + proc foo {} {catch {return -level 2}; testreturn} + foo +} -returnCodes ok -result {} # cleanup ::tcltest::cleanupTests |