diff options
| author | dgp <dgp@users.sourceforge.net> | 2005-06-01 21:38:34 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2005-06-01 21:38:34 (GMT) |
| commit | 9fb09ab047419f92eea30d3b4dc0a3a6b83f58b0 (patch) | |
| tree | f64716a58409f5582716350a70767ed3630c9cc7 /tests/result.test | |
| parent | 854f85bb1700aa6f106cc6a443cb0eb2e917f2de (diff) | |
| download | tcl-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/result.test')
| -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 |