From dff3fc1f53f49695e31f07d4b00ac359c4f1e728 Mon Sep 17 00:00:00 2001
From: Miguel Sofer <miguel.sofer@gmail.com>
Date: Sun, 2 Aug 2009 14:26:07 +0000
Subject: 	* tests/coroutine.test: fix testfile cleanup

---
 ChangeLog            |  4 ++++
 tests/coroutine.test | 14 ++++++--------
 2 files changed, 10 insertions(+), 8 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 352fd5e..3a4cab8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2009-08-02  Miguel Sofer  <msofer@users.sf.net>
+
+	* tests/coroutine.test: fix testfile cleanup
+
 2009-08-02  Donal K. Fellows  <dkf@users.sf.net>
 
 	* generic/tclObj.c (Tcl_RepresentationCmd): Added an unsupported
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
-- 
cgit v0.12