diff options
author | dgp <dgp@noemail.net> | 2011-03-02 16:06:41 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2011-03-02 16:06:41 (GMT) |
commit | d52cd67f6675a2c781913cb5fce2335b3a98babd (patch) | |
tree | eb4c16e323de2d467a528cb46f37376fb5b9ed03 /tests | |
parent | 07611cba41834e84cbd17b521487c20a7b9e55bf (diff) | |
parent | 6acf6d6c01ef3798c8a8d98448253b02ae352d30 (diff) | |
download | tcl-d52cd67f6675a2c781913cb5fce2335b3a98babd.zip tcl-d52cd67f6675a2c781913cb5fce2335b3a98babd.tar.gz tcl-d52cd67f6675a2c781913cb5fce2335b3a98babd.tar.bz2 |
Now that we're no longer using SCM based on RCS, the RCS Keyword lines cause
more harm than good. Purged them.
FossilOrigin-Name: 79367df0f0e01a96f037f893e889e7cb9b807847
Diffstat (limited to 'tests')
140 files changed, 2 insertions, 286 deletions
diff --git a/tests/README b/tests/README index 75a08e7..ce2382e 100644 --- a/tests/README +++ b/tests/README @@ -1,7 +1,5 @@ README -- Tcl test suite design document. -RCS: @(#) $Id: README,v 1.12 2003/04/01 19:17:21 dgp Exp $ - Contents: --------- diff --git a/tests/all.tcl b/tests/all.tcl index 75650a1..d01a54d 100644 --- a/tests/all.tcl +++ b/tests/all.tcl @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: all.tcl,v 1.19 2006/11/03 00:34:52 hobbs Exp $ package require Tcl 8.5 package require tcltest 2.2 diff --git a/tests/append.test b/tests/append.test index 921b46e..caf6210 100644 --- a/tests/append.test +++ b/tests/append.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: append.test,v 1.9.4.1 2010/09/01 19:42:41 andreas_kupries Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/appendComp.test b/tests/appendComp.test index dc009ce..14e9567 100644 --- a/tests/appendComp.test +++ b/tests/appendComp.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: appendComp.test,v 1.9.10.1 2010/09/01 19:42:42 andreas_kupries Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/apply.test b/tests/apply.test index 5235de3..31fe918 100644 --- a/tests/apply.test +++ b/tests/apply.test @@ -11,8 +11,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: apply.test,v 1.12.2.2 2010/08/15 16:16:07 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.2 diff --git a/tests/assocd.test b/tests/assocd.test index a677090..1ca1c9b 100644 --- a/tests/assocd.test +++ b/tests/assocd.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: assocd.test,v 1.6 2004/05/19 10:42:00 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/async.test b/tests/async.test index 014740a..f89413f 100644 --- a/tests/async.test +++ b/tests/async.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: async.test,v 1.9 2006/03/21 11:12:27 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/autoMkindex.test b/tests/autoMkindex.test index 56e1ffb..be1e3e6 100644 --- a/tests/autoMkindex.test +++ b/tests/autoMkindex.test @@ -8,8 +8,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: autoMkindex.test,v 1.15 2004/05/25 17:44:29 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/basic.test b/tests/basic.test index b8d608e..318e5c4 100644 --- a/tests/basic.test +++ b/tests/basic.test @@ -14,9 +14,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: basic.test,v 1.44 2007/04/20 05:51:11 kennykb Exp $ -# package require tcltest 2 namespace import -force ::tcltest::* diff --git a/tests/binary.test b/tests/binary.test index 71acaf3..44af9e5 100644 --- a/tests/binary.test +++ b/tests/binary.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: binary.test,v 1.32 2008/03/24 03:10:46 patthoyts Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/case.test b/tests/case.test index 023fdbb..2960c9d 100644 --- a/tests/case.test +++ b/tests/case.test @@ -10,8 +10,6 @@ # # 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.7 2006/10/09 19:15:44 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/chan.test b/tests/chan.test index eb09fd7..f5e35bc 100644 --- a/tests/chan.test +++ b/tests/chan.test @@ -6,8 +6,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: chan.test,v 1.11 2007/12/13 15:26:04 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/chanio.test b/tests/chanio.test index bcd24fe..b195f7b 100644 --- a/tests/chanio.test +++ b/tests/chanio.test @@ -12,8 +12,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: chanio.test,v 1.3.2.12 2011/01/17 12:34:43 nijtmans Exp $ if {[catch {package require tcltest 2}]} { chan puts stderr "Skipping tests in [info script]. tcltest 2 required." diff --git a/tests/clock.test b/tests/clock.test index 86fad72..7937933 100644 --- a/tests/clock.test +++ b/tests/clock.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: clock.test,v 1.83.2.9 2009/10/29 01:17:03 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/cmdAH.test b/tests/cmdAH.test index d573bb9..2e94d7d 100644 --- a/tests/cmdAH.test +++ b/tests/cmdAH.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: cmdAH.test,v 1.57.2.1 2009/12/28 13:53:40 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.1 diff --git a/tests/cmdIL.test b/tests/cmdIL.test index 1f2cf73..aed4264 100644 --- a/tests/cmdIL.test +++ b/tests/cmdIL.test @@ -7,8 +7,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: cmdIL.test,v 1.38 2008/02/13 19:41:20 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/cmdInfo.test b/tests/cmdInfo.test index 010d3d1..86aa6e1 100644 --- a/tests/cmdInfo.test +++ b/tests/cmdInfo.test @@ -12,8 +12,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: cmdInfo.test,v 1.10 2006/11/03 00:34:52 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/cmdMZ.test b/tests/cmdMZ.test index 85b7bde..7fe4fda 100644 --- a/tests/cmdMZ.test +++ b/tests/cmdMZ.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: cmdMZ.test,v 1.25 2006/10/09 19:15:44 msofer Exp $ if {[catch {package require tcltest 2.1}]} { puts stderr "Skipping tests in [info script]. tcltest 2.1 required." diff --git a/tests/compExpr-old.test b/tests/compExpr-old.test index f7fe427..bb19151 100644 --- a/tests/compExpr-old.test +++ b/tests/compExpr-old.test @@ -11,8 +11,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: compExpr-old.test,v 1.23 2007/12/13 15:26:06 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/compExpr.test b/tests/compExpr.test index c3e68c1..f02e999 100644 --- a/tests/compExpr.test +++ b/tests/compExpr.test @@ -7,8 +7,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: compExpr.test,v 1.17 2008/01/16 21:54:33 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/compile.test b/tests/compile.test index de77438..7e9dcda 100644 --- a/tests/compile.test +++ b/tests/compile.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: compile.test,v 1.48.2.3 2010/11/03 00:58:04 kennykb Exp $ package require tcltest 2 namespace import -force ::tcltest::* diff --git a/tests/concat.test b/tests/concat.test index c369340..c95e116 100644 --- a/tests/concat.test +++ b/tests/concat.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: concat.test,v 1.6 2004/05/19 10:55:05 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/config.test b/tests/config.test index 2023d9c..c0a56b7 100644 --- a/tests/config.test +++ b/tests/config.test @@ -11,8 +11,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: config.test,v 1.4 2004/10/29 15:39:10 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/dcall.test b/tests/dcall.test index 55f6731..8977c31 100644 --- a/tests/dcall.test +++ b/tests/dcall.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: dcall.test,v 1.6 2004/05/19 10:54:20 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/dict.test b/tests/dict.test index f02171a..cfaf36d 100644 --- a/tests/dict.test +++ b/tests/dict.test @@ -8,8 +8,6 @@ # Copyright (c) 2003 Donal K. Fellows # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: dict.test,v 1.24.2.5 2010/05/20 08:55:22 ferrieux Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/dstring.test b/tests/dstring.test index 033e29e..95321ec 100644 --- a/tests/dstring.test +++ b/tests/dstring.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: dstring.test,v 1.8 2004/06/24 10:34:12 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/encoding.test b/tests/encoding.test index 4530580..836f277 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -7,8 +7,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: encoding.test,v 1.27.4.2 2009/11/16 12:14:45 ferrieux Exp $ package require tcltest 2 diff --git a/tests/env.test b/tests/env.test index e73ca52..47ada47 100644 --- a/tests/env.test +++ b/tests/env.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: env.test,v 1.28.4.1 2010/01/06 22:02:05 nijtmans Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/error.test b/tests/error.test index 67c87b4..b989338 100644 --- a/tests/error.test +++ b/tests/error.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: error.test,v 1.16 2006/10/09 19:15:44 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/eval.test b/tests/eval.test index 98acd08..ff50997 100644 --- a/tests/eval.test +++ b/tests/eval.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: eval.test,v 1.9 2006/10/09 19:15:44 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/event.test b/tests/event.test index 5ef3aa2..a7122f9 100644 --- a/tests/event.test +++ b/tests/event.test @@ -8,8 +8,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: event.test,v 1.27.2.1 2008/06/20 19:23:26 dgp Exp $ package require tcltest 2 namespace import -force ::tcltest::* diff --git a/tests/exec.test b/tests/exec.test index c803343..810dfa6 100644 --- a/tests/exec.test +++ b/tests/exec.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: exec.test,v 1.29 2008/03/11 22:23:33 das Exp $ package require tcltest 2 namespace import -force ::tcltest::* diff --git a/tests/execute.test b/tests/execute.test index 62c1fd2..b460cfe 100644 --- a/tests/execute.test +++ b/tests/execute.test @@ -13,8 +13,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: execute.test,v 1.27.2.3 2009/06/13 14:27:43 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/expr-old.test b/tests/expr-old.test index 40a38dd..c05a925 100644 --- a/tests/expr-old.test +++ b/tests/expr-old.test @@ -12,8 +12,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: expr-old.test,v 1.40 2007/12/13 15:26:06 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.1 diff --git a/tests/expr.test b/tests/expr.test index bd6d2b4..42d0c79 100644 --- a/tests/expr.test +++ b/tests/expr.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: expr.test,v 1.72.2.4 2010/02/21 20:27:50 nijtmans Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.1 diff --git a/tests/fCmd.test b/tests/fCmd.test index 879bb24..57aaa3c 100644 --- a/tests/fCmd.test +++ b/tests/fCmd.test @@ -9,9 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution of # this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: fCmd.test,v 1.60.2.2 2009/11/11 23:46:09 patthoyts Exp $ -# if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/fileName.test b/tests/fileName.test index 3196295..c613068 100644 --- a/tests/fileName.test +++ b/tests/fileName.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: fileName.test,v 1.51.8.11 2010/01/05 18:58:12 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/for-old.test b/tests/for-old.test index db63a16..a11a791 100644 --- a/tests/for-old.test +++ b/tests/for-old.test @@ -11,8 +11,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: for-old.test,v 1.6 2004/05/19 12:25:30 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/for.test b/tests/for.test index 8665df6..8f19e9f 100644 --- a/tests/for.test +++ b/tests/for.test @@ -8,8 +8,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: for.test,v 1.16 2006/10/09 19:15:44 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/foreach.test b/tests/foreach.test index 07fbe22..7df7481 100644 --- a/tests/foreach.test +++ b/tests/foreach.test @@ -9,8 +9,6 @@ # # 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.14 2008/03/14 17:43:25 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/format.test b/tests/format.test index 48476ab..d43b7eb 100644 --- a/tests/format.test +++ b/tests/format.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: format.test,v 1.25.2.2 2009/07/31 16:56:32 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/get.test b/tests/get.test index 112632f..40ec98f 100644 --- a/tests/get.test +++ b/tests/get.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: get.test,v 1.12 2005/08/08 14:08:05 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/history.test b/tests/history.test index b283b1a..49116be 100644 --- a/tests/history.test +++ b/tests/history.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: history.test,v 1.6 2004/05/19 12:43:03 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/http.test b/tests/http.test index b889b04..602047f 100644 --- a/tests/http.test +++ b/tests/http.test @@ -10,9 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# -# RCS: @(#) $Id: http.test,v 1.48.2.2 2009/04/10 13:15:57 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/httpd b/tests/httpd index 93ee08a..5272385 100644 --- a/tests/httpd +++ b/tests/httpd @@ -7,8 +7,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# SCCS: @(#) httpd 1.2 98/02/20 14:51:59 #set httpLog 1 diff --git a/tests/httpold.test b/tests/httpold.test index fe7c607..aeba311 100644 --- a/tests/httpold.test +++ b/tests/httpold.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: httpold.test,v 1.12 2004/05/19 12:44:27 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/if-old.test b/tests/if-old.test index 3a850b9..fbcf56c 100644 --- a/tests/if-old.test +++ b/tests/if-old.test @@ -12,8 +12,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: if-old.test,v 1.6 2003/03/27 13:19:15 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/if.test b/tests/if.test index 4f46354..f941d54 100644 --- a/tests/if.test +++ b/tests/if.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: if.test,v 1.12 2006/10/09 19:15:44 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/incr-old.test b/tests/incr-old.test index 96c68b7..ed457cf 100644 --- a/tests/incr-old.test +++ b/tests/incr-old.test @@ -12,8 +12,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: incr-old.test,v 1.10 2006/10/09 19:15:44 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/incr.test b/tests/incr.test index c5a41ad..253cb1d 100644 --- a/tests/incr.test +++ b/tests/incr.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: incr.test,v 1.16 2007/12/13 15:26:06 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/indexObj.test b/tests/indexObj.test index 4c1ef49..bff20a2 100644 --- a/tests/indexObj.test +++ b/tests/indexObj.test @@ -7,8 +7,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: indexObj.test,v 1.15 2006/04/06 18:57:58 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/info.test b/tests/info.test index dbf9b18..937da8c 100644 --- a/tests/info.test +++ b/tests/info.test @@ -13,7 +13,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: info.test,v 1.47.2.13 2010/11/15 21:32:32 andreas_kupries Exp $ +# DO NOT DELETE THIS LINE if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/init.test b/tests/init.test index 4e9f8bb..7bdbd82 100644 --- a/tests/init.test +++ b/tests/init.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: init.test,v 1.18 2007/12/13 15:26:06 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/interp.test b/tests/interp.test index 224ec11..5e6d6b0 100644 --- a/tests/interp.test +++ b/tests/interp.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: interp.test,v 1.54.2.4 2010/11/15 21:32:32 andreas_kupries Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.1 diff --git a/tests/io.test b/tests/io.test index a96105d..129d741 100644 --- a/tests/io.test +++ b/tests/io.test @@ -12,8 +12,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: io.test,v 1.80.2.16 2011/01/17 12:34:43 nijtmans Exp $ if {[catch {package require tcltest 2}]} { puts stderr "Skipping tests in [info script]. tcltest 2 required." diff --git a/tests/ioCmd.test b/tests/ioCmd.test index 3d776dc..768a748 100644 --- a/tests/ioCmd.test +++ b/tests/ioCmd.test @@ -12,8 +12,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: ioCmd.test,v 1.36.2.11 2011/01/17 12:34:43 nijtmans Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/ioUtil.test b/tests/ioUtil.test index 0f0d2fc..7e8687e 100644 --- a/tests/ioUtil.test +++ b/tests/ioUtil.test @@ -7,8 +7,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: ioUtil.test,v 1.19 2007/12/13 15:26:06 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/iogt.test b/tests/iogt.test index c45d97d..3882ecc 100644 --- a/tests/iogt.test +++ b/tests/iogt.test @@ -9,8 +9,6 @@ # Copyright (c) 2000 Ajuba Solutions. # Copyright (c) 2000 Andreas Kupries. # All rights reserved. -# -# RCS: @(#) $Id: iogt.test,v 1.16 2006/11/03 11:45:34 dkf Exp $ if {[catch {package require tcltest 2.1}]} { puts stderr "Skipping tests in [info script]. tcltest 2.1 required." diff --git a/tests/join.test b/tests/join.test index 562c3e0..133b7f1 100644 --- a/tests/join.test +++ b/tests/join.test @@ -10,8 +10,6 @@ # # 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.6 2004/05/19 10:51:06 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/lindex.test b/tests/lindex.test index 249acb9..fee9f48 100644 --- a/tests/lindex.test +++ b/tests/lindex.test @@ -11,8 +11,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: lindex.test,v 1.17 2007/12/13 15:26:06 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.2 diff --git a/tests/link.test b/tests/link.test index 6b87ff5..3b423ec 100644 --- a/tests/link.test +++ b/tests/link.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: link.test,v 1.17 2007/12/13 15:26:06 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/linsert.test b/tests/linsert.test index 3419c74..9262812 100644 --- a/tests/linsert.test +++ b/tests/linsert.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: linsert.test,v 1.10 2005/05/10 18:35:22 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/list.test b/tests/list.test index 01dc060..aab165c 100644 --- a/tests/list.test +++ b/tests/list.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: list.test,v 1.7 2003/07/24 16:05:24 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/listObj.test b/tests/listObj.test index 515592b..53017b1 100644 --- a/tests/listObj.test +++ b/tests/listObj.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: listObj.test,v 1.8.10.1 2010/03/18 20:38:43 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -201,4 +199,4 @@ return # Local Variables: # mode: tcl -# End:
\ No newline at end of file +# End: diff --git a/tests/llength.test b/tests/llength.test index 1f272f7..169c7ca 100644 --- a/tests/llength.test +++ b/tests/llength.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: llength.test,v 1.6 2004/05/19 12:23:58 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/load.test b/tests/load.test index dd3d011..f5c08e9 100644 --- a/tests/load.test +++ b/tests/load.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: load.test,v 1.19 2007/12/13 15:26:06 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/lrange.test b/tests/lrange.test index 29eafb9..ec5936d 100644 --- a/tests/lrange.test +++ b/tests/lrange.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: lrange.test,v 1.9 2005/05/10 18:35:22 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/lrepeat.test b/tests/lrepeat.test index f6888b1..5e9d70f 100644 --- a/tests/lrepeat.test +++ b/tests/lrepeat.test @@ -8,8 +8,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: lrepeat.test,v 1.2 2003/10/06 14:32:22 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/lreplace.test b/tests/lreplace.test index 6ea1f75..55bad37 100644 --- a/tests/lreplace.test +++ b/tests/lreplace.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: lreplace.test,v 1.9 2005/05/10 18:35:22 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/lsearch.test b/tests/lsearch.test index 91ac00e..36bf389 100644 --- a/tests/lsearch.test +++ b/tests/lsearch.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: lsearch.test,v 1.20 2007/12/13 15:26:06 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/lset.test b/tests/lset.test index ba6ad1f..cc1c00b 100644 --- a/tests/lset.test +++ b/tests/lset.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id$ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/lsetComp.test b/tests/lsetComp.test index 476ff71..2b89a47 100755..100644 --- a/tests/lsetComp.test +++ b/tests/lsetComp.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id$ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/macOSXFCmd.test b/tests/macOSXFCmd.test index 5c87bab..071f11b 100644 --- a/tests/macOSXFCmd.test +++ b/tests/macOSXFCmd.test @@ -8,9 +8,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: macOSXFCmd.test,v 1.5 2006/08/18 07:45:31 das Exp $ -# if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/macOSXLoad.test b/tests/macOSXLoad.test index 6db695e..12c77e0 100644 --- a/tests/macOSXLoad.test +++ b/tests/macOSXLoad.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: macOSXLoad.test,v 1.1 2006/12/17 03:47:08 das Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/main.test b/tests/main.test index 24d1fb5..cdd3b17 100644 --- a/tests/main.test +++ b/tests/main.test @@ -1,6 +1,4 @@ # This file contains a collection of tests for generic/tclMain.c. -# -# RCS: @(#) $Id: main.test,v 1.22 2007/12/13 15:26:06 dgp Exp $ if {[catch {package require tcltest 2.0.2}]} { puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required." diff --git a/tests/mathop.test b/tests/mathop.test index e0d5920..61a106e 100644 --- a/tests/mathop.test +++ b/tests/mathop.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution of # this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: mathop.test,v 1.11.2.2 2010/07/02 20:58:08 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.1 diff --git a/tests/misc.test b/tests/misc.test index 7015c52..fe19ebe 100644 --- a/tests/misc.test +++ b/tests/misc.test @@ -11,8 +11,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: misc.test,v 1.11 2006/10/09 19:15:45 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/msgcat.test b/tests/msgcat.test index 5cda47b..0669810 100644 --- a/tests/msgcat.test +++ b/tests/msgcat.test @@ -11,8 +11,6 @@ # # Note that after running these tests, entries will be left behind in the # message catalogs for locales foo, foo_BAR, and foo_BAR_baz. -# -# RCS: @(#) $Id: msgcat.test,v 1.20.8.1 2008/08/14 00:11:11 das Exp $ package require Tcl 8.2 if {[catch {package require tcltest 2}]} { diff --git a/tests/namespace-old.test b/tests/namespace-old.test index 8528391..5ffb25b 100644 --- a/tests/namespace-old.test +++ b/tests/namespace-old.test @@ -13,8 +13,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: namespace-old.test,v 1.13 2007/12/13 15:26:06 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.2 diff --git a/tests/namespace.test b/tests/namespace.test index efb72db..89f6759 100644 --- a/tests/namespace.test +++ b/tests/namespace.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: namespace.test,v 1.70.2.1 2008/05/21 13:26:17 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/notify.test b/tests/notify.test index 0d80132..ba52c50 100755..100644 --- a/tests/notify.test +++ b/tests/notify.test @@ -12,8 +12,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: notify.test,v 1.3 2003/10/06 14:32:22 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/obj.test b/tests/obj.test index f9c0a2d..126d5ca 100644 --- a/tests/obj.test +++ b/tests/obj.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: obj.test,v 1.21 2007/12/13 15:26:07 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/opt.test b/tests/opt.test index b7e3a55..ba59f6c 100644 --- a/tests/opt.test +++ b/tests/opt.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: opt.test,v 1.9 2004/05/19 12:48:32 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/package.test b/tests/package.test index eb24e99..e5e8873 100644 --- a/tests/package.test +++ b/tests/package.test @@ -7,8 +7,6 @@ # # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. -# -# RCS: @(#) $Id: package.test,v 1.3 2000/04/10 17:19:02 ericm Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/parse.test b/tests/parse.test index 0fed2f5..c3f05ab 100644 --- a/tests/parse.test +++ b/tests/parse.test @@ -7,8 +7,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: parse.test,v 1.30.2.1 2008/05/21 20:38:09 dgp Exp $ if {[catch {package require tcltest 2.0.2}]} { puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required." diff --git a/tests/parseExpr.test b/tests/parseExpr.test index 0f62b91..7673dbe 100644 --- a/tests/parseExpr.test +++ b/tests/parseExpr.test @@ -7,8 +7,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: parseExpr.test,v 1.29 2007/12/13 15:26:07 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/parseOld.test b/tests/parseOld.test index 9cc90fe..132481c 100644 --- a/tests/parseOld.test +++ b/tests/parseOld.test @@ -12,8 +12,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: parseOld.test,v 1.14 2006/10/09 19:15:45 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/pid.test b/tests/pid.test index 9734d51..d21dbaa 100644 --- a/tests/pid.test +++ b/tests/pid.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: pid.test,v 1.12 2004/05/19 22:06:07 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/pkg.test b/tests/pkg.test index 0953eeb..7d818d4 100644 --- a/tests/pkg.test +++ b/tests/pkg.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: pkg.test,v 1.29 2007/12/13 15:26:07 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/pkgMkIndex.test b/tests/pkgMkIndex.test index 0db6533..663a6b2 100644 --- a/tests/pkgMkIndex.test +++ b/tests/pkgMkIndex.test @@ -7,8 +7,6 @@ # # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. -# -# RCS: @(#) $Id: pkgMkIndex.test,v 1.29 2006/11/03 00:34:53 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/platform.test b/tests/platform.test index 7eda53c..9d88f98 100644 --- a/tests/platform.test +++ b/tests/platform.test @@ -8,8 +8,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/proc-old.test b/tests/proc-old.test index 7e2a067..5aec4f7 100644 --- a/tests/proc-old.test +++ b/tests/proc-old.test @@ -13,8 +13,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: proc-old.test,v 1.15 2006/10/09 19:15:45 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/proc.test b/tests/proc.test index 3ff7b71..1d46676 100644 --- a/tests/proc.test +++ b/tests/proc.test @@ -12,8 +12,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: proc.test,v 1.19.4.2 2009/10/29 17:21:18 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/pwd.test b/tests/pwd.test index 1592680..175c852 100644 --- a/tests/pwd.test +++ b/tests/pwd.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: pwd.test,v 1.7 2004/05/19 13:00:13 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/reg.test b/tests/reg.test index 4aab459..d92339f 100644 --- a/tests/reg.test +++ b/tests/reg.test @@ -8,8 +8,6 @@ # to read this file, ignoring the Tcl-isms.) # # Copyright (c) 1998, 1999 Henry Spencer. All rights reserved. -# -# RCS: @(#) $Id: reg.test,v 1.25.2.1 2009/10/29 17:21:18 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/regexp.test b/tests/regexp.test index 37f4442..b20349f 100644 --- a/tests/regexp.test +++ b/tests/regexp.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: regexp.test,v 1.30.2.2 2010/08/12 08:55:39 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/regexpComp.test b/tests/regexpComp.test index df7b60f..e927ca2 100644 --- a/tests/regexpComp.test +++ b/tests/regexpComp.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id$ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/registry.test b/tests/registry.test index 68645d4..2a38f2a 100644 --- a/tests/registry.test +++ b/tests/registry.test @@ -9,8 +9,6 @@ # # Copyright (c) 1997 by Sun Microsystems, Inc. All rights reserved. # Copyright (c) 1998-1999 by Scriptics Corporation. -# -# RCS: @(#) $Id: registry.test,v 1.21.4.1 2009/11/11 23:46:09 patthoyts Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/remote.tcl b/tests/remote.tcl index 005f2df..4ac3607 100644 --- a/tests/remote.tcl +++ b/tests/remote.tcl @@ -8,8 +8,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: remote.tcl,v 1.3 1999/04/16 00:47:33 stanton Exp $ # Initialize message delimitor diff --git a/tests/rename.test b/tests/rename.test index 45d6847..bd14578 100644 --- a/tests/rename.test +++ b/tests/rename.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: rename.test,v 1.12 2004/05/19 20:15:32 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/result.test b/tests/result.test index 8573217..3ee803e 100644 --- a/tests/result.test +++ b/tests/result.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# SCCS: @(#) result.test 1.4 97/12/08 15:07:49 if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/safe.test b/tests/safe.test index 7bfc4c4..fbcb2a1 100644 --- a/tests/safe.test +++ b/tests/safe.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: safe.test,v 1.22.4.8 2010/11/02 21:57:19 stwo Exp $ package require Tcl 8.5 diff --git a/tests/scan.test b/tests/scan.test index 2a07f4b..b37ce0c 100644 --- a/tests/scan.test +++ b/tests/scan.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: scan.test,v 1.21 2006/04/25 17:15:25 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/security.test b/tests/security.test index 2549a4a..4a73160 100644 --- a/tests/security.test +++ b/tests/security.test @@ -9,8 +9,6 @@ # Copyright (c) 1997 Sun Microsystems, Inc. # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. -# -# RCS: @(#) $Id: security.test,v 1.6 2004/05/19 13:02:10 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/set-old.test b/tests/set-old.test index b6e105b..2ef4019 100644 --- a/tests/set-old.test +++ b/tests/set-old.test @@ -12,8 +12,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: set-old.test,v 1.19 2007/12/13 15:26:07 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/set.test b/tests/set.test index 76eab79..9e0ddc0 100644 --- a/tests/set.test +++ b/tests/set.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: set.test,v 1.15 2008/02/13 20:35:03 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/socket.test b/tests/socket.test index 421d359..0ae5abd 100644 --- a/tests/socket.test +++ b/tests/socket.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: socket.test,v 1.41 2008/03/11 22:23:33 das Exp $ # Running socket tests with a remote server: # ------------------------------------------ diff --git a/tests/source.test b/tests/source.test index 29d3f2f..9162e8e 100644 --- a/tests/source.test +++ b/tests/source.test @@ -11,8 +11,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: source.test,v 1.13 2006/03/21 11:12:29 dkf Exp $ if {[catch {package require tcltest 2.1}]} { puts stderr "Skipping tests in [info script]. tcltest 2.1 required." diff --git a/tests/split.test b/tests/split.test index 93b0cc4..f18f333 100644 --- a/tests/split.test +++ b/tests/split.test @@ -10,8 +10,6 @@ # # 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.9 2004/05/19 10:50:30 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/stack.test b/tests/stack.test index 3a5c207..96bcb98 100644 --- a/tests/stack.test +++ b/tests/stack.test @@ -8,8 +8,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: stack.test,v 1.22.2.1 2010/01/06 21:35:25 nijtmans Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/string.test b/tests/string.test index 64427e4..6b00f3a 100644 --- a/tests/string.test +++ b/tests/string.test @@ -11,8 +11,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: string.test,v 1.71.2.1 2009/01/06 15:12:42 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/stringComp.test b/tests/stringComp.test index cf22346..2ce2010 100644 --- a/tests/stringComp.test +++ b/tests/stringComp.test @@ -14,8 +14,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: stringComp.test,v 1.15 2007/12/13 15:26:07 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/stringObj.test b/tests/stringObj.test index 5b0349c..5c8f88b 100644 --- a/tests/stringObj.test +++ b/tests/stringObj.test @@ -11,8 +11,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: stringObj.test,v 1.16.14.2 2009/03/30 17:47:30 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/subst.test b/tests/subst.test index a336c1b..933b1c6 100644 --- a/tests/subst.test +++ b/tests/subst.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: subst.test,v 1.18 2004/10/26 21:52:41 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.1 diff --git a/tests/switch.test b/tests/switch.test index 9a46191..5ee7216 100644 --- a/tests/switch.test +++ b/tests/switch.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: switch.test,v 1.21 2008/03/21 19:09:13 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/tcltest.test b/tests/tcltest.test index 66d64f2..86aca6f 100755..100644 --- a/tests/tcltest.test +++ b/tests/tcltest.test @@ -5,8 +5,6 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # Copyright (c) 2000 by Ajuba Solutions # All rights reserved. -# -# RCS: @(#) $Id: tcltest.test,v 1.55.4.1 2009/11/03 23:20:48 patthoyts Exp $ # Note that there are several places where the value of # tcltest::currentFailure is stored/reset in the -setup/-cleanup diff --git a/tests/thread.test b/tests/thread.test index 15fa2c6..bfef91c 100644 --- a/tests/thread.test +++ b/tests/thread.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: thread.test,v 1.18.2.1 2009/10/18 11:21:38 mistachkin Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/timer.test b/tests/timer.test index 6eecb7c..db508e5 100644 --- a/tests/timer.test +++ b/tests/timer.test @@ -12,8 +12,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: timer.test,v 1.12 2005/11/09 21:28:36 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/tm.test b/tests/tm.test index 3484747..f6c9a68 100644 --- a/tests/tm.test +++ b/tests/tm.test @@ -5,8 +5,6 @@ # # Copyright (c) 2004 by Donal K. Fellows. # All rights reserved. -# -# RCS: @(#) $Id: tm.test,v 1.6 2005/08/29 21:55:27 andreas_kupries Exp $ package require Tcl 8.5 if {"::tcltest" ni [namespace children]} { diff --git a/tests/trace.test b/tests/trace.test index 20a797d..c2a760d 100644 --- a/tests/trace.test +++ b/tests/trace.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: trace.test,v 1.61 2007/12/13 15:26:07 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/unixFCmd.test b/tests/unixFCmd.test index 20afe69..f60e04c 100644 --- a/tests/unixFCmd.test +++ b/tests/unixFCmd.test @@ -8,8 +8,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: unixFCmd.test,v 1.24 2006/03/21 11:12:29 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/unixFile.test b/tests/unixFile.test index 8e37b5d..0ea0ec1 100644 --- a/tests/unixFile.test +++ b/tests/unixFile.test @@ -8,8 +8,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: unixFile.test,v 1.9 2004/06/23 15:36:58 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/unixInit.test b/tests/unixInit.test index 1f4dc7a..003dd00 100644 --- a/tests/unixInit.test +++ b/tests/unixInit.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: unixInit.test,v 1.50 2006/11/03 11:45:35 dkf Exp $ package require tcltest 2.2 namespace import -force ::tcltest::* diff --git a/tests/unixNotfy.test b/tests/unixNotfy.test index 24717ee..8af8a21 100644 --- a/tests/unixNotfy.test +++ b/tests/unixNotfy.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: unixNotfy.test,v 1.19 2005/11/01 16:41:20 dgp Exp $ # The tests should not be run if you have a notifier which is unable to # detect infinite vwaits, as the tests below will hang. The presence of diff --git a/tests/unknown.test b/tests/unknown.test index e4e66bf..69a468f 100644 --- a/tests/unknown.test +++ b/tests/unknown.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: unknown.test,v 1.7 2004/05/19 13:05:37 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/unload.test b/tests/unload.test index d26f012..9e34bce 100644 --- a/tests/unload.test +++ b/tests/unload.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: unload.test,v 1.6 2006/12/17 03:47:08 das Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/uplevel.test b/tests/uplevel.test index b8bbbb7..cfe4b72 100644 --- a/tests/uplevel.test +++ b/tests/uplevel.test @@ -10,8 +10,6 @@ # # 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.8 2004/05/19 10:47:28 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/upvar.test b/tests/upvar.test index bcad004..457c9f8 100644 --- a/tests/upvar.test +++ b/tests/upvar.test @@ -10,8 +10,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: upvar.test,v 1.16 2007/12/13 15:26:07 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/utf.test b/tests/utf.test index 8eb583e..d319f6e 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -7,8 +7,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: utf.test,v 1.14.4.1 2010/10/23 07:32:24 nijtmans Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/util.test b/tests/util.test index 3f472cf..7e3f962 100644 --- a/tests/util.test +++ b/tests/util.test @@ -6,8 +6,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: util.test,v 1.18.8.4 2011/01/15 19:07:01 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/var.test b/tests/var.test index 65343f6..45b7207 100644 --- a/tests/var.test +++ b/tests/var.test @@ -13,9 +13,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: var.test,v 1.31.2.2 2010/08/03 17:16:14 andreas_kupries Exp $ -# if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.2 diff --git a/tests/while-old.test b/tests/while-old.test index 12e8537..ee17d0b 100644 --- a/tests/while-old.test +++ b/tests/while-old.test @@ -12,8 +12,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: while-old.test,v 1.8 2006/10/09 19:15:45 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/while.test b/tests/while.test index 5aadd10..4ad966e 100644 --- a/tests/while.test +++ b/tests/while.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: while.test,v 1.13 2006/10/09 19:15:45 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/winConsole.test b/tests/winConsole.test index 51c1781..fdde41c 100644 --- a/tests/winConsole.test +++ b/tests/winConsole.test @@ -8,8 +8,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: winConsole.test,v 1.8 2006/11/03 00:34:53 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/winDde.test b/tests/winDde.test index f59a7f2..9c777c3 100644 --- a/tests/winDde.test +++ b/tests/winDde.test @@ -8,8 +8,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: winDde.test,v 1.28 2005/05/10 18:35:25 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/winFCmd.test b/tests/winFCmd.test index 849562c..58a1b11 100644 --- a/tests/winFCmd.test +++ b/tests/winFCmd.test @@ -9,9 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: winFCmd.test,v 1.42.4.1 2009/11/11 23:46:09 patthoyts Exp $ -# if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/winFile.test b/tests/winFile.test index 5f69921..bfba9cf 100644 --- a/tests/winFile.test +++ b/tests/winFile.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution of # this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: winFile.test,v 1.20.2.1 2008/10/23 12:19:02 das Exp $ if {[catch {package require tcltest 2.0.2}]} { puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required." diff --git a/tests/winNotify.test b/tests/winNotify.test index 09ddc1c..f9c75a3 100644 --- a/tests/winNotify.test +++ b/tests/winNotify.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: winNotify.test,v 1.10 2004/06/23 15:36:59 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/winPipe.test b/tests/winPipe.test index a2df9b6..3f983e1 100644 --- a/tests/winPipe.test +++ b/tests/winPipe.test @@ -11,8 +11,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: winPipe.test,v 1.33 2006/11/03 15:31:26 dkf Exp $ package require tcltest namespace import -force ::tcltest::* diff --git a/tests/winTime.test b/tests/winTime.test index 00cf4d8..278db32 100644 --- a/tests/winTime.test +++ b/tests/winTime.test @@ -9,8 +9,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: winTime.test,v 1.10 2004/06/23 15:36:59 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest |