diff options
| author | dgp <dgp@noemail.net> | 2005-06-01 21:38:34 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2005-06-01 21:38:34 (GMT) |
| commit | fbd81d585b9290c7dd844419e9854a42ac862f60 (patch) | |
| tree | f64716a58409f5582716350a70767ed3630c9cc7 /tests/result.test | |
| parent | f4d06364bf1faa68275e63759f7f5ceb77c42562 (diff) | |
| download | tcl-fbd81d585b9290c7dd844419e9854a42ac862f60.zip tcl-fbd81d585b9290c7dd844419e9854a42ac862f60.tar.gz tcl-fbd81d585b9290c7dd844419e9854a42ac862f60.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].
FossilOrigin-Name: ad959189c3776813094af37aaa21a44bd4bdad91
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 |