summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2005-06-02 03:11:34 (GMT)
committerdgp <dgp@users.sourceforge.net>2005-06-02 03:11:34 (GMT)
commit83b74d8b93717170d06c75c19c7b92defe9100d7 (patch)
tree0bb29c69c4c95b10f1a65088aa7250e8dd58528b /tests
parent739062154a9a146d256d6138ad44358b9d53d55d (diff)
downloadtcl-83b74d8b93717170d06c75c19c7b92defe9100d7.zip
tcl-83b74d8b93717170d06c75c19c7b92defe9100d7.tar.gz
tcl-83b74d8b93717170d06c75c19c7b92defe9100d7.tar.bz2
This close to a release, simple is better.
Diffstat (limited to 'tests')
-rw-r--r--tests/result.test9
1 files changed, 7 insertions, 2 deletions
diff --git a/tests/result.test b/tests/result.test
index ff60713..4337ef3 100644
--- a/tests/result.test
+++ b/tests/result.test
@@ -111,11 +111,16 @@ test result-5.4 {Tcl_SetErrorCode - two args, list quoting} testseterrorcode {
::tcltest::testConstraint testreturn \
[expr {[info commands testreturn] != {}}]
-test result-6.0 {Bug 1209759} testreturn {
+test result-6.0 {Bug 1209759} -constraints testreturn -body {
# Might panic if bug is not fixed.
proc foo {} {testreturn}
foo
-} {}
+} -returnCodes ok -result {}
+test result-6.1 {Bug 1209759} -constraints testreturn -body {
+ # Might panic if bug is not fixed.
+ proc foo {} {catch {return -level 2}; testreturn}
+ foo
+} -returnCodes ok -result {}
# cleanup
::tcltest::cleanupTests