diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/result.test | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/result.test b/tests/result.test index 92f8d41..a1ee0b7 100644 --- a/tests/result.test +++ b/tests/result.test @@ -109,6 +109,14 @@ test result-5.4 {Tcl_SetErrorCode - two args, list quoting} testseterrorcode { set errorCode } {{a b} c} +::tcltest::testConstraint testreturn \ + [expr {[info commands testreturn] != {}}] +test result-6.0 {Bug 1209759} testreturn { + # Might panic if bug is not fixed. + proc foo {} {testreturn} + foo +} + # cleanup ::tcltest::cleanupTests return |