diff options
| -rw-r--r-- | tests/case.test | 14 | ||||
| -rw-r--r-- | tests/join.test | 14 | ||||
| -rw-r--r-- | tests/result.test | 12 | ||||
| -rw-r--r-- | tests/split.test | 14 | ||||
| -rw-r--r-- | tests/uplevel.test | 14 |
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 - - - - - - - - - - - - |