diff options
Diffstat (limited to 'tests')
144 files changed, 4 insertions, 295 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 d053516..69c6381 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.13 2010/12/09 10:47:53 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/appendComp.test b/tests/appendComp.test index d8eee8c..f85c3ba 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.14 2010/12/09 10:47:53 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/apply.test b/tests/apply.test index 9bcb50d..ba19b81 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.15 2010/08/15 16:12:27 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 654f995..db21333 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.10 2010/03/24 10:35:21 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/autoMkindex.test b/tests/autoMkindex.test index 2b15377..8f29131 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.16 2011/01/06 10:20:39 dkf Exp $ if {"::tcltest" ni [namespace children]} { package require tcltest 2 diff --git a/tests/basic.test b/tests/basic.test index c07d805..e072bea 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.46 2009/09/17 17:58:10 dgp Exp $ -# package require tcltest 2 namespace import -force ::tcltest::* diff --git a/tests/binary.test b/tests/binary.test index fc3d0b3..8b2880b 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.43 2010/11/09 14:20:19 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/case.test b/tests/case.test index a9bec93..6d63cea 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.8 2008/07/21 22:22:28 nijtmans Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/chan.test b/tests/chan.test index 7dccda7..da44ffd 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.16 2008/12/18 01:14:17 ferrieux Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/chanio.test b/tests/chanio.test index c191dfe..4f44d3f 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.27 2011/01/17 11:27:28 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 d5957bd..8c31f83 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.94 2009/10/29 01:17:54 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/cmdAH.test b/tests/cmdAH.test index 068b6cd..291df8d 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.70 2011/01/01 15:14:43 dkf Exp $ if {"::tcltest" ni [namespace children]} { package require tcltest 2.1 diff --git a/tests/cmdIL.test b/tests/cmdIL.test index b806e65..4b1002a 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.44 2010/12/27 00:01:07 dkf 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 78bb329..2d68138 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.31 2011/01/01 15:14:43 dkf 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 afa3b56..8e27f1f 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.18 2011/01/01 15:14:43 dkf Exp $ if {"::tcltest" ni [namespace children]} { package require tcltest 2 diff --git a/tests/compile.test b/tests/compile.test index 51cf64c..d6048be 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.53 2011/01/01 15:14:43 dkf Exp $ package require tcltest 2 namespace import -force ::tcltest::* diff --git a/tests/concat.test b/tests/concat.test index 8988bb0..eeb11ca 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.7 2011/01/01 15:14:43 dkf Exp $ if {"::tcltest" ni [namespace children]} { package require tcltest diff --git a/tests/config.test b/tests/config.test index cc951fb..d14837e 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.5 2008/07/19 22:50:38 nijtmans Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/coroutine.test b/tests/coroutine.test index d7b30bc..4d7e3de 100644 --- a/tests/coroutine.test +++ b/tests/coroutine.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: coroutine.test,v 1.14 2010/08/11 23:38:57 msofer 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 14e2fad..d80a11f 100644 --- a/tests/dict.test +++ b/tests/dict.test @@ -8,8 +8,6 @@ # Copyright (c) 2003-2009 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.38 2010/10/02 12:38:30 dkf 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 bc57b2d..1738413 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.29 2009/11/16 17:38:09 ferrieux Exp $ package require tcltest 2 diff --git a/tests/env.test b/tests/env.test index f5669d7..9c417d9 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.32 2009/12/21 23:25:40 nijtmans Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/error.test b/tests/error.test index 7465a44..c34ccb0 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.36 2010/11/04 15:00:41 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/eval.test b/tests/eval.test index 5d2813f..70ceac8 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.10 2011/01/01 15:14:43 dkf Exp $ if {"::tcltest" ni [namespace children]} { package require tcltest diff --git a/tests/event.test b/tests/event.test index c6ac019..0ee7558 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.29 2010/07/05 09:50:10 dkf Exp $ package require tcltest 2 namespace import -force ::tcltest::* diff --git a/tests/exec.test b/tests/exec.test index 61b818e..64d3517 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.33 2009/05/08 08:13:31 dkf Exp $ package require tcltest 2 namespace import -force ::tcltest::* diff --git a/tests/execute.test b/tests/execute.test index c5de6e8..012b3a7 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.37 2011/01/01 14:44:32 dkf Exp $ if {"::tcltest" ni [namespace children]} { 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 cdda607..6679569 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.79 2010/10/26 15:05:08 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.1 diff --git a/tests/fCmd.test b/tests/fCmd.test index a5770aa..410e610 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.73 2010/12/09 15:31:02 dkf Exp $ -# if {"::tcltest" ni [namespace children]} { package require tcltest 2 diff --git a/tests/fileName.test b/tests/fileName.test index c7c591d..affacff 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.67 2011/01/01 15:14:43 dkf Exp $ if {"::tcltest" ni [namespace children]} { package require tcltest 2 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 04aed84..ff4dc0e 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.17 2008/11/17 08:11:45 ferrieux Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/foreach.test b/tests/foreach.test index 4042b3c..a4b652a 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.15 2009/06/24 15:17:40 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/format.test b/tests/format.test index 54d9ffb..2d53eba 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.30 2010/01/18 09:31:02 dkf 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 3f02aa0..c562796 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.7 2009/07/25 21:51:02 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/http.test b/tests/http.test index 5365d6d..1f4d8b4 100644 --- a/tests/http.test +++ b/tests/http.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: http.test,v 1.56 2010/10/28 16:38:12 dgp Exp $ package require tcltest 2 namespace import -force ::tcltest::* 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 59fb24a..040364a 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.13 2009/10/29 15:51:50 dkf 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 495af3c..098aec0 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.17 2008/07/21 21:25:22 nijtmans Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/info.test b/tests/info.test index 8c37f6d..9977054 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.79 2010/11/15 21:34:54 andreas_kupries Exp $ +# DO NOT DELETE THIS LINE if {{::tcltest} ni [namespace children]} { package require tcltest 2 diff --git a/tests/init.test b/tests/init.test index 9c16ee3..6b61c06 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.22 2010/04/05 19:44:45 ferrieux Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/interp.test b/tests/interp.test index c67dcf7..fd6090e 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.71 2011/01/01 15:14:43 dkf Exp $ if {"::tcltest" ni [namespace children]} { package require tcltest 2.1 diff --git a/tests/io.test b/tests/io.test index 8a30260..e28948f 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.98 2011/01/17 11:27:28 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 09360ff..c83d174 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.54 2011/01/17 11:27:28 nijtmans Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/ioTrans.test b/tests/ioTrans.test index c4fd71d..8dbad78 100644 --- a/tests/ioTrans.test +++ b/tests/ioTrans.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: ioTrans.test,v 1.10 2010/11/24 11:56:57 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/iogt.test b/tests/iogt.test index 40f6b82..60d7ab8 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.17 2010/11/24 11:56:57 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 0a6da27..5c06936 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.7 2009/01/08 16:41:35 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/lindex.test b/tests/lindex.test index 1621fda..07abff8 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.18 2008/07/13 23:15:22 nijtmans 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 e9c545a..4939e5c 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.11 2008/09/29 15:38:32 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/list.test b/tests/list.test index 0dd2d73..4f48628 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.8 2010/02/12 03:21:32 mdejong Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/listObj.test b/tests/listObj.test index 2e8ae17..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.9 2010/03/18 20:34:48 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 711b919..b7c1a59 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.21 2010/04/02 21:21:06 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/lrange.test b/tests/lrange.test index 6f8f88d..6c81872 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.12 2009/02/22 17:45:21 ferrieux Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/lrepeat.test b/tests/lrepeat.test index 7789e2f..6068dea 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.4 2008/09/28 20:39:08 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/lreplace.test b/tests/lreplace.test index 59934fb..5f675bc 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.10 2008/07/21 22:22:28 nijtmans Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/lsearch.test b/tests/lsearch.test index fd58978..f36e987 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.23 2011/01/01 15:14:43 dkf Exp $ if {"::tcltest" ni [namespace children]} { package require tcltest 2 diff --git a/tests/lset.test b/tests/lset.test index c10f433..3f4914d 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 bc08d78..6846cbf 100755 --- 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 98de6a9..f1dc7fd 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.23 2010/11/18 15:50:54 nijtmans 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 b7c4a04..db713bf 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.14 2010/07/02 20:37:10 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 70dc384..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.21 2008/05/31 23:34:46 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 f4d4598..1d8ba31 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.15 2011/01/01 15:14:43 dkf Exp $ if {"::tcltest" ni [namespace children]} { package require tcltest 2.2 diff --git a/tests/namespace.test b/tests/namespace.test index 1c39b5c..cda26f8 100644 --- a/tests/namespace.test +++ b/tests/namespace.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: namespace.test,v 1.79 2011/01/01 15:14:43 dkf Exp $ package require tcltest 2 namespace import -force ::tcltest::* diff --git a/tests/notify.test b/tests/notify.test index 0d80132..ba52c50 100755 --- 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/nre.test b/tests/nre.test index dcc2180..2fe5825 100644 --- a/tests/nre.test +++ b/tests/nre.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: nre.test,v 1.12 2010/01/21 17:23:49 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 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/oo.test b/tests/oo.test index 1954d1b..395e345 100644 --- a/tests/oo.test +++ b/tests/oo.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: oo.test,v 1.44 2011/01/18 13:50:03 dkf Exp $ package require -exact TclOO 0.6.2 ;# Must match value in generic/tclOO.h package require tcltest 2 diff --git a/tests/opt.test b/tests/opt.test index 53e6711..2732d40 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.11 2010/05/27 09:18:12 nijtmans Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/package.test b/tests/package.test index 4179a47..dbeedb7 100644 --- a/tests/package.test +++ b/tests/package.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: package.test,v 1.4 2011/01/06 10:20:39 dkf Exp $ if {"::tcltest" ni [namespace children]} { package require tcltest 2 diff --git a/tests/parse.test b/tests/parse.test index b83d20e..2c992e3 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.39 2009/09/17 17:58:10 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/pkgMkIndex.test b/tests/pkgMkIndex.test index 33c76d5..0fe394e 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.30 2011/01/06 10:20:39 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/platform.test b/tests/platform.test index fd9ed66..8cb8dcd 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 6a95528..e45cf5c 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.18 2010/03/31 10:29:22 nijtmans Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/proc.test b/tests/proc.test index ba0c20d..c28e881 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.22 2011/01/01 15:14:43 dkf Exp $ if {"::tcltest" ni [namespace children]} { package require tcltest 2 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 46b5e64..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.26 2009/10/29 17:21:48 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/regexp.test b/tests/regexp.test index e2282eb..632a19d 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.36 2010/02/21 18:55:41 mdejong Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/regexpComp.test b/tests/regexpComp.test index 4f05bc3..6f0b688 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 02866f3..7234a32 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.26 2010/04/02 19:27:44 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/remote.tcl b/tests/remote.tcl index 06000aa..097e41f 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.5 2010/11/04 21:38:27 rmax Exp $ # Initialize message delimitor diff --git a/tests/rename.test b/tests/rename.test index 3a3a47f..9ac49b4 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.13 2009/01/08 16:41:35 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/result.test b/tests/result.test index 4dfee1d..f080654 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 5025469..0f82a6a 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.36 2010/12/07 16:32:06 dkf Exp $ package require Tcl 8.5 diff --git a/tests/scan.test b/tests/scan.test index 4296366..6e1ccb0 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.23 2008/12/10 18:21:47 ferrieux Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/security.test b/tests/security.test index e92775e..eeabc9c 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.7 2011/01/01 15:14:43 dkf Exp $ if {"::tcltest" ni [namespace children]} { package require tcltest diff --git a/tests/set-old.test b/tests/set-old.test index de16d60..52dc0ff 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.24 2010/02/04 13:49:55 dkf 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 1cc4441..09b34ad 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.49 2010/11/04 21:38:27 rmax Exp $ # Running socket tests with a remote server: # ------------------------------------------ diff --git a/tests/source.test b/tests/source.test index f358042..081a129 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.14 2009/01/05 11:27:41 dkf Exp $ if {[catch {package require tcltest 2.1}]} { puts stderr "Skipping tests in [info script]. tcltest 2.1 required." @@ -288,4 +286,4 @@ return # Local Variables: # mode: tcl -# End:
\ No newline at end of file +# End: diff --git a/tests/split.test b/tests/split.test index 1cc13b7..778131f 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.10 2009/01/08 16:41:35 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/stack.test b/tests/stack.test index da587b5..873cb08 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.25 2008/10/03 19:20:24 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/string.test b/tests/string.test index 39b12ff..2675faf 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.78 2010/03/01 23:25:43 ferrieux Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/stringComp.test b/tests/stringComp.test index 6ef94ee..ff18819 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.18 2010/09/25 02:25:54 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/stringObj.test b/tests/stringObj.test index 921deef..2f516ec 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.22 2009/03/21 02:55:49 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/subst.test b/tests/subst.test index 0c81069..4be4798 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.21 2010/10/06 18:38:45 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.1 diff --git a/tests/switch.test b/tests/switch.test index 3f127a4..255be00 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.26 2011/01/01 15:14:43 dkf Exp $ if {"::tcltest" ni [namespace children]} { package require tcltest 2 diff --git a/tests/tailcall.test b/tests/tailcall.test index 46e2471..e9ec188 100644 --- a/tests/tailcall.test +++ b/tests/tailcall.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: tailcall.test,v 1.14 2010/08/30 14:02:10 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/tcltest.test b/tests/tcltest.test index f235fac..86aca6f 100755 --- 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.56 2009/10/30 11:13:21 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 15988bd..a6961ed 100644 --- a/tests/thread.test +++ b/tests/thread.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: thread.test,v 1.21 2009/10/18 08:00:40 mistachkin Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/timer.test b/tests/timer.test index 76be883..ab6efc9 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.14 2008/07/19 22:50:39 nijtmans Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/tm.test b/tests/tm.test index 72bcc72..149a65d 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.8 2008/09/26 19:54:59 dgp Exp $ package require Tcl 8.5 if {"::tcltest" ni [namespace children]} { diff --git a/tests/trace.test b/tests/trace.test index 4d924e2..5767860 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.62 2008/07/19 22:50:38 nijtmans Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/unixFCmd.test b/tests/unixFCmd.test index 43dcf1a..e8148e9 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.26 2008/04/11 14:55:10 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 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 1f5c7c1..580a231 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.51 2011/01/01 15:14:43 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 72b3252..40be6602 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.9 2010/07/05 08:03:53 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/unload.test b/tests/unload.test index bf704c7..a103cc5 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.9 2010/04/02 21:21:06 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/uplevel.test b/tests/uplevel.test index 0413a47..0410469 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.10 2010/12/07 16:32:06 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/upvar.test b/tests/upvar.test index 90ba0b1..cd78c31 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.21 2010/12/07 16:32:06 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/utf.test b/tests/utf.test index 3a45d13..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.15 2010/10/18 21:47:36 nijtmans Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 diff --git a/tests/util.test b/tests/util.test index 22e03ee..1f214b5 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.23 2011/01/15 18:10:19 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -3868,4 +3866,4 @@ return # Local Variables: # mode: tcl -# End:
\ No newline at end of file +# End: diff --git a/tests/var.test b/tests/var.test index 8913204..f2923de 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.38 2011/01/01 15:14:43 dkf Exp $ -# if {"::tcltest" ni [namespace children]} { 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 323e160..642ec93 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.14 2009/10/30 16:28:02 dkf Exp $ if {"::tcltest" ni [namespace children]} { 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 a819f93..ca50a96 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.29 2011/01/01 15:14:43 dkf Exp $ if {"::tcltest" ni [namespace children]} { package require tcltest 2 diff --git a/tests/winFCmd.test b/tests/winFCmd.test index 7736985..b49356d 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.46 2009/11/10 20:40:06 patthoyts Exp $ -# if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest diff --git a/tests/winFile.test b/tests/winFile.test index d502b30..ad34624 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.22 2008/10/23 12:18:47 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 632f8e7..62d7d0d 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.35 2011/01/01 15:14:43 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 diff --git a/tests/zlib.test b/tests/zlib.test index 6159e65..47eeab8 100644 --- a/tests/zlib.test +++ b/tests/zlib.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: zlib.test,v 1.12 2010/02/26 00:39:29 patthoyts Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.1 |