1 files changed, 3 insertions, 11 deletions
diff --git a/tests/foreach.test b/tests/foreach.test
index ac7a279..4042b3c 100644
--- a/tests/foreach.test
+++ b/tests/foreach.test
@@ -9,6 +9,8 @@
 #
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+#
+# RCS: @(#) $Id: foreach.test,v 1.15 2009/06/24 15:17:40 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -254,17 +256,6 @@ test foreach-9.1 {compiled empty var list} {
     list [catch { foo } msg] $msg
 } {1 {foreach varlist is empty}}
 
-test foreach-9.2 {line numbers} -setup {
-    proc linenumber {} {dict get [info frame -1] line}
-} -body {
-    apply {n {
-        foreach x y {*}{
-        } {return [incr n -[linenumber]]}
-    }} [linenumber]
-} -cleanup {
-    rename linenumber {}
-} -result 1
-
 test foreach-10.1 {foreach: [Bug 1671087]} -setup {
     proc demo {} {
 	set vals {1 2 3 4}
@@ -280,5 +271,6 @@ test foreach-10.1 {foreach: [Bug 1671087]} -setup {
 # cleanup
 catch {unset a}
 catch {unset x}
+catch {rename foo {}}
 ::tcltest::cleanupTests
 return