diff options
| author | dgp <dgp@users.sourceforge.net> | 2005-06-02 03:11:34 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2005-06-02 03:11:34 (GMT) |
| commit | 83b74d8b93717170d06c75c19c7b92defe9100d7 (patch) | |
| tree | 0bb29c69c4c95b10f1a65088aa7250e8dd58528b /tests | |
| parent | 739062154a9a146d256d6138ad44358b9d53d55d (diff) | |
| download | tcl-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.test | 9 |
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 |