summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/case.test14
-rw-r--r--tests/join.test14
-rw-r--r--tests/result.test12
-rw-r--r--tests/split.test14
-rw-r--r--tests/uplevel.test14
5 files changed, 4 insertions, 64 deletions
diff --git a/tests/case.test b/tests/case.test
index 997cecb..477538c 100644
--- a/tests/case.test
+++ b/tests/case.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: case.test,v 1.5 2000/04/10 17:18:57 ericm Exp $
+# RCS: @(#) $Id: case.test,v 1.6 2004/05/19 10:52:35 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -89,15 +89,3 @@ test case-3.3 {single-argument form for pattern/command pairs} {
# cleanup
::tcltest::cleanupTests
return
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/tests/join.test b/tests/join.test
index e464103..562c3e0 100644
--- a/tests/join.test
+++ b/tests/join.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: join.test,v 1.5 2000/04/10 17:19:01 ericm Exp $
+# RCS: @(#) $Id: join.test,v 1.6 2004/05/19 10:51:06 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -52,15 +52,3 @@ test join-3.2 {join is binary ok} {
# cleanup
::tcltest::cleanupTests
return
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/tests/result.test b/tests/result.test
index f0fb9e3..8054b75 100644
--- a/tests/result.test
+++ b/tests/result.test
@@ -89,15 +89,3 @@ test result-4.5 {Tcl_SetObjErrorCode - five args} {testsaveresult} {
# cleanup
::tcltest::cleanupTests
return
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/tests/split.test b/tests/split.test
index 0ad879b..93b0cc4 100644
--- a/tests/split.test
+++ b/tests/split.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: split.test,v 1.8 2002/11/12 02:25:24 hobbs Exp $
+# RCS: @(#) $Id: split.test,v 1.9 2004/05/19 10:50:30 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -84,15 +84,3 @@ test split-2.2 {split errors} {
catch {rename foo {}}
::tcltest::cleanupTests
return
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/tests/uplevel.test b/tests/uplevel.test
index d21e637..b8bbbb7 100644
--- a/tests/uplevel.test
+++ b/tests/uplevel.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: uplevel.test,v 1.7 2002/08/08 18:19:37 msofer Exp $
+# RCS: @(#) $Id: uplevel.test,v 1.8 2004/05/19 10:47:28 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -130,15 +130,3 @@ test uplevel-6.1 {uplevel and shadowed cmds} {
# cleanup
::tcltest::cleanupTests
return
-
-
-
-
-
-
-
-
-
-
-
-