diff options
| -rwxr-xr-x | tests/tcltest.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/tcltest.test b/tests/tcltest.test index 0e4b36c..282f624 100755 --- a/tests/tcltest.test +++ b/tests/tcltest.test @@ -6,7 +6,7 @@ # Copyright (c) 2000 by Ajuba Solutions # All rights reserved. # -# RCS: @(#) $Id: tcltest.test,v 1.27 2002/06/25 01:13:38 dgp Exp $ +# RCS: @(#) $Id: tcltest.test,v 1.28 2002/06/26 01:31:15 dgp Exp $ # Note that there are several places where the value of # tcltest::currentFailure is stored/reset in the -setup/-cleanup @@ -1190,7 +1190,7 @@ test tcltest-21.10 {test command with cleanup failure} -setup { } -cleanup { set ::tcltest::currentFailure $fail } -body { - test 21.10.0 {foo-1} -cleanup {unset foo} + test tcltest-21.10.0 {foo-1} -cleanup {unset foo} } -result {^$} -match regexp \ -output {Test cleanup failed:.*can't unset \"foo\": no such variable} @@ -1200,7 +1200,7 @@ test tcltest-21.11 {test command with setup failure} -setup { } set fail $::tcltest::currentFailure } -cleanup {set ::tcltest::currentFailure $fail} -body { - test 21.11.0 {foo-2} -setup {unset foo} + test tcltest-21.11.0 {foo-2} -setup {unset foo} } -result {^$} -output {Test setup failed:.*can't unset \"foo\": no such variable} -match regexp test tcltest-21.12 { @@ -1210,7 +1210,7 @@ test tcltest-21.12 { } -cleanup { set ::tcltest::currentFailure $fail } -body { - test 21.12.0 {foo-3} -setup { + test tcltest-21.12.0 {foo-3} -setup { if {[info exists foo]} { unset foo } |