summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2005-06-01 21:38:34 (GMT)
committerdgp <dgp@users.sourceforge.net>2005-06-01 21:38:34 (GMT)
commit9fb09ab047419f92eea30d3b4dc0a3a6b83f58b0 (patch)
treef64716a58409f5582716350a70767ed3630c9cc7 /tests
parent854f85bb1700aa6f106cc6a443cb0eb2e917f2de (diff)
downloadtcl-9fb09ab047419f92eea30d3b4dc0a3a6b83f58b0.zip
tcl-9fb09ab047419f92eea30d3b4dc0a3a6b83f58b0.tar.gz
tcl-9fb09ab047419f92eea30d3b4dc0a3a6b83f58b0.tar.bz2
* generic/tclBasic.c: For compatibility with earlier Tcl releases,
* generic/tclResult.c: when a command procedure simply does a * generic/tclTest.c: "return TCL_RETURN;" we must interpret that * tests/result.test: the same as "return Tcl_SetReturnOptions(interp, Tcl_NewObj());" [Bug 1209759].
Diffstat (limited to 'tests')
-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