diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2008-04-23 15:44:37 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2008-04-23 15:44:37 (GMT) |
| commit | 2806530fd57fcf8fdf0f65ef7b2778bcadfaa8ed (patch) | |
| tree | b898cceb637a2f5cc684d10d9956e40ee699ad36 /tests/result.test | |
| parent | 7346f5c47fd9b46f12a26714b5dde16148a5b932 (diff) | |
| download | tcl-2806530fd57fcf8fdf0f65ef7b2778bcadfaa8ed.zip tcl-2806530fd57fcf8fdf0f65ef7b2778bcadfaa8ed.tar.gz tcl-2806530fd57fcf8fdf0f65ef7b2778bcadfaa8ed.tar.bz2 | |
Assorted improvements to make better use of tcltest2
Diffstat (limited to 'tests/result.test')
| -rw-r--r-- | tests/result.test | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/tests/result.test b/tests/result.test index cefcaed..95407b9 100644 --- a/tests/result.test +++ b/tests/result.test @@ -49,7 +49,6 @@ test result-1.8 {Tcl_SaveInterpResult} {testsaveresult} { testsaveresult object {set x 42} 1 } {42 different} - # Tcl_RestoreInterpResult is mostly tested by the previous tests except # for the following case @@ -60,9 +59,9 @@ test result-2.1 {Tcl_RestoreInterpResult} {testsaveresult} { # Tcl_DiscardInterpResult is mostly tested by the previous tests except # for the following cases -test result-3.1 {Tcl_DiscardInterpResult} {testsaveresult} { - list [catch {testsaveresult append {cd _foobar} 1} msg] $msg -} {1 {couldn't change working directory to "_foobar": no such file or directory}} +test result-3.1 {Tcl_DiscardInterpResult} -constraints testsaveresult -body { + testsaveresult append {cd _foobar} 1 +} -returnCodes error -result {couldn't change working directory to "_foobar": no such file or directory} test result-3.2 {Tcl_DiscardInterpResult} {testsaveresult} { testsaveresult free {set x 42} 1 } {42} @@ -133,7 +132,6 @@ test result-6.2 {Bug 1649062} -setup { rename foo {} } -result {foo {} {}} - # cleanup cleanupTests return |