summaryrefslogtreecommitdiffstats
path: root/tests/result.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/result.test')
-rw-r--r--tests/result.test8
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