summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2009-08-02 14:26:07 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2009-08-02 14:26:07 (GMT)
commitdff3fc1f53f49695e31f07d4b00ac359c4f1e728 (patch)
treee2a0d4b03e9ad9602ae8e4bb1f66dc759104ed87 /tests
parent9b243d8861a7ba96ab64928edc9795beb02a4997 (diff)
downloadtcl-dff3fc1f53f49695e31f07d4b00ac359c4f1e728.zip
tcl-dff3fc1f53f49695e31f07d4b00ac359c4f1e728.tar.gz
tcl-dff3fc1f53f49695e31f07d4b00ac359c4f1e728.tar.bz2
* tests/coroutine.test: fix testfile cleanup
Diffstat (limited to 'tests')
-rw-r--r--tests/coroutine.test14
1 files changed, 6 insertions, 8 deletions
diff --git a/tests/coroutine.test b/tests/coroutine.test
index 7820e9a..29c68e9 100644
--- a/tests/coroutine.test
+++ b/tests/coroutine.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: coroutine.test,v 1.2 2009/06/25 19:24:16 dgp Exp $
+# RCS: @(#) $Id: coroutine.test,v 1.3 2009/08/02 14:26:07 msofer Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -530,17 +530,15 @@ test coroutine-5.2 {right numLevels within coro} -constraints {testnrelevels} \
unset res
} -result {0 0 0 0}
-
-
-# cleanup
-::tcltest::cleanupTests
-
-
-unset -nocomplain lambda
+unset lambda
if {[testConstraint testnrelevels]} {
namespace forget testnre::*
namespace delete testnre
}
+# cleanup
+::tcltest::cleanupTests
+
+
return