summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorstanton <stanton@noemail.net>1998-09-14 18:39:42 (GMT)
committerstanton <stanton@noemail.net>1998-09-14 18:39:42 (GMT)
commitd18103c837e55a0a945a1e9527bde6733eca153a (patch)
tree91ecabdbdcd0bf4fb6bc9397a725b55993ed4060 /tests
parentf2c22dd914ac2006c230ba1b676efbe299dce88d (diff)
downloadtcl-d18103c837e55a0a945a1e9527bde6733eca153a.zip
tcl-d18103c837e55a0a945a1e9527bde6733eca153a.tar.gz
tcl-d18103c837e55a0a945a1e9527bde6733eca153a.tar.bz2
Replaced SCCS strings, fixed binary filescore-8-0-3
FossilOrigin-Name: 196f92fd17305db5fec1acd59f6926de11e01624
Diffstat (limited to 'tests')
-rw-r--r--tests/README2
-rw-r--r--tests/all4
-rw-r--r--tests/append.test2
-rw-r--r--tests/assocd.test2
-rw-r--r--tests/async.test2
-rw-r--r--tests/autoMkindex.test2
-rw-r--r--tests/basic.test2
-rw-r--r--tests/binary.test2
-rw-r--r--tests/case.test2
-rw-r--r--tests/clock.test2
-rw-r--r--tests/cmdAH.test2
-rw-r--r--tests/cmdIL.test2
-rw-r--r--tests/cmdInfo.test2
-rw-r--r--tests/compile.test2
-rw-r--r--tests/concat.test2
-rw-r--r--tests/dcall.test2
-rw-r--r--tests/defs2
-rw-r--r--tests/dstring.test2
-rw-r--r--tests/env.test2
-rw-r--r--tests/error.test2
-rw-r--r--tests/eval.test2
-rw-r--r--tests/event.test2
-rw-r--r--tests/exec.test2
-rw-r--r--tests/execute.test2
-rw-r--r--tests/expr-old.test2
-rw-r--r--tests/expr.test2
-rw-r--r--tests/fCmd.test2
-rw-r--r--tests/fileName.test2
-rw-r--r--tests/for-old.test2
-rw-r--r--tests/for.test2
-rw-r--r--tests/foreach.test2
-rw-r--r--tests/format.test2
-rw-r--r--tests/get.test2
-rw-r--r--tests/history.test2
-rw-r--r--tests/http.test2
-rw-r--r--tests/httpold.test2
-rw-r--r--tests/if-old.test2
-rw-r--r--tests/if.test2
-rw-r--r--tests/incr-old.test2
-rw-r--r--tests/incr.test2
-rw-r--r--tests/indexObj.test2
-rw-r--r--tests/info.test2
-rw-r--r--tests/init.test2
-rw-r--r--tests/interp.test2
-rw-r--r--tests/io.test2
-rw-r--r--tests/ioCmd.test2
-rw-r--r--tests/ioUtil.test2
-rw-r--r--tests/join.test2
-rw-r--r--tests/lindex.test2
-rw-r--r--tests/link.test2
-rw-r--r--tests/linsert.test2
-rw-r--r--tests/list.test2
-rw-r--r--tests/listObj.test2
-rw-r--r--tests/llength.test2
-rw-r--r--tests/load.test2
-rw-r--r--tests/lrange.test2
-rw-r--r--tests/lreplace.test2
-rw-r--r--tests/lsearch.test2
-rw-r--r--tests/macFCmd.test2
-rw-r--r--tests/misc.test2
-rw-r--r--tests/namespace-old.test2
-rw-r--r--tests/namespace.test2
-rw-r--r--tests/obj.test2
-rw-r--r--tests/opt.test2
-rw-r--r--tests/osa.test2
-rw-r--r--tests/parse.test2
-rw-r--r--tests/pid.test2
-rw-r--r--tests/pkg.test2
-rw-r--r--tests/proc-old.test2
-rw-r--r--tests/proc.test2
-rw-r--r--tests/pwd.test2
-rw-r--r--tests/regexp.test2
-rw-r--r--tests/registry.test2
-rw-r--r--tests/remote.tcl2
-rw-r--r--tests/rename.test2
-rw-r--r--tests/resource.test2
-rw-r--r--tests/safe.test2
-rw-r--r--tests/scan.test2
-rw-r--r--tests/set-old.test2
-rw-r--r--tests/set.test2
-rw-r--r--tests/socket.test2
-rw-r--r--tests/source.test2
-rw-r--r--tests/split.test2
-rw-r--r--tests/string.test2
-rw-r--r--tests/stringObj.test2
-rw-r--r--tests/subst.test2
-rw-r--r--tests/switch.test2
-rw-r--r--tests/timer.test2
-rw-r--r--tests/trace.test2
-rw-r--r--tests/unixFCmd.test2
-rw-r--r--tests/unixFile.test2
-rw-r--r--tests/unixNotfy.test2
-rw-r--r--tests/unknown.test2
-rw-r--r--tests/uplevel.test2
-rw-r--r--tests/upvar.test2
-rw-r--r--tests/util.test2
-rw-r--r--tests/var.test2
-rw-r--r--tests/while-old.test2
-rw-r--r--tests/while.test2
-rw-r--r--tests/winFCmd.test2
-rw-r--r--tests/winNotify.test2
-rw-r--r--tests/winPipe.test2
102 files changed, 103 insertions, 103 deletions
diff --git a/tests/README b/tests/README
index 7dce2a2..07915c9 100644
--- a/tests/README
+++ b/tests/README
@@ -1,7 +1,7 @@
Tcl Test Suite
--------------
-SCCS: @(#) README 1.6 96/04/17 10:51:11
+RCS: @(#) $Id: README,v 1.2 1998/09/14 18:40:07 stanton Exp $
This directory contains a set of validation tests for the Tcl
commands. Each of the files whose name ends in ".test" is
diff --git a/tests/all b/tests/all
index 4023e55..03847de 100644
--- a/tests/all
+++ b/tests/all
@@ -2,7 +2,7 @@
# tests. Execute it by invoking "source all" when running tclTest
# in this directory.
#
-# SCCS: @(#) all 1.8 97/08/01 11:07:14
+# RCS: @(#) $Id: all,v 1.2 1998/09/14 18:40:07 stanton Exp $
if {$tcl_platform(os) == "Win32s"} {
set files [glob *.tes]
@@ -12,7 +12,7 @@ if {$tcl_platform(os) == "Win32s"} {
foreach i [lsort $files] {
if [string match l.*.test $i] {
- # This is an SCCS lock file; ignore it.
+ # This is an SCCS lockfile
continue
}
puts stdout $i
diff --git a/tests/append.test b/tests/append.test
index f89ade5..d4ccba3 100644
--- a/tests/append.test
+++ b/tests/append.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) append.test 1.17 97/10/28 15:45:52
+# RCS: @(#) $Id: append.test,v 1.2 1998/09/14 18:40:07 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/assocd.test b/tests/assocd.test
index 20e8223..48ef00b 100644
--- a/tests/assocd.test
+++ b/tests/assocd.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# "@(#) assocd.test 1.5 95/08/02 17:11:37"
+# RCS: @(#) $Id: assocd.test,v 1.2 1998/09/14 18:40:07 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/async.test b/tests/async.test
index cfc572c..9bacf3c 100644
--- a/tests/async.test
+++ b/tests/async.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) async.test 1.5 96/04/05 15:29:38
+# RCS: @(#) $Id: async.test,v 1.2 1998/09/14 18:40:07 stanton Exp $
if {[info commands testasync] == {}} {
puts "This application hasn't been compiled with the \"testasync\""
diff --git a/tests/autoMkindex.test b/tests/autoMkindex.test
index cf5bffc..6445614 100644
--- a/tests/autoMkindex.test
+++ b/tests/autoMkindex.test
@@ -8,7 +8,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: $Id: autoMkindex.test,v 1.1 1998/07/24 14:31:08 welch Exp $
+# RCS: @(#) $Id: autoMkindex.test,v 1.2 1998/09/14 18:40:07 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/basic.test b/tests/basic.test
index a3b8c6b..43f92cb 100644
--- a/tests/basic.test
+++ b/tests/basic.test
@@ -14,7 +14,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) basic.test 1.19 97/10/31 16:02:26
+# RCS: @(#) $Id: basic.test,v 1.4 1998/09/14 18:40:07 stanton Exp $
#
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/binary.test b/tests/binary.test
index dcc5cf6..70ddf0c 100644
--- a/tests/binary.test
+++ b/tests/binary.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) binary.test 1.13 97/09/11 18:50:30
+# RCS: @(#) $Id: binary.test,v 1.2 1998/09/14 18:40:07 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/case.test b/tests/case.test
index 9224372..e36b3b3 100644
--- a/tests/case.test
+++ b/tests/case.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) case.test 1.13 96/02/16 08:55:41
+# RCS: @(#) $Id: case.test,v 1.2 1998/09/14 18:40:07 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/clock.test b/tests/clock.test
index 95f73ac..5fbee3a 100644
--- a/tests/clock.test
+++ b/tests/clock.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) clock.test 1.17 97/11/24 15:05:38
+# RCS: @(#) $Id: clock.test,v 1.2 1998/09/14 18:40:07 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/cmdAH.test b/tests/cmdAH.test
index d5161b5..e09eb58 100644
--- a/tests/cmdAH.test
+++ b/tests/cmdAH.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) cmdAH.test 1.35 97/07/22 14:07:43
+# RCS: @(#) $Id: cmdAH.test,v 1.3 1998/09/14 18:40:08 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/cmdIL.test b/tests/cmdIL.test
index 71ec774..925570f 100644
--- a/tests/cmdIL.test
+++ b/tests/cmdIL.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) cmdIL.test 1.18 97/09/18 11:42:12
+# RCS: @(#) $Id: cmdIL.test,v 1.3 1998/09/14 18:40:08 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/cmdInfo.test b/tests/cmdInfo.test
index 14267ac..661caa4 100644
--- a/tests/cmdInfo.test
+++ b/tests/cmdInfo.test
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) cmdInfo.test 1.10 97/06/20 14:51:12
+# RCS: @(#) $Id: cmdInfo.test,v 1.2 1998/09/14 18:40:08 stanton Exp $
if {[info commands testcmdinfo] == {}} {
puts "This application hasn't been compiled with the \"testcmdinfo\""
diff --git a/tests/compile.test b/tests/compile.test
index 0c94332..2c01585 100644
--- a/tests/compile.test
+++ b/tests/compile.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) compile.test 1.7 97/08/12 13:34:13
+# RCS: @(#) $Id: compile.test,v 1.4 1998/09/14 18:40:08 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/concat.test b/tests/concat.test
index d0222e9..a0d819d 100644
--- a/tests/concat.test
+++ b/tests/concat.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) concat.test 1.10 96/12/20 18:53:31
+# RCS: @(#) $Id: concat.test,v 1.2 1998/09/14 18:40:08 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/dcall.test b/tests/dcall.test
index c7ad1c6..6cd4908 100644
--- a/tests/dcall.test
+++ b/tests/dcall.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) dcall.test 1.6 96/02/16 08:55:44
+# RCS: @(#) $Id: dcall.test,v 1.2 1998/09/14 18:40:08 stanton Exp $
if {[info commands testdcall] == {}} {
puts "This application hasn't been compiled with the \"testdcall\""
diff --git a/tests/defs b/tests/defs
index 2f15eda..28f028e 100644
--- a/tests/defs
+++ b/tests/defs
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) defs 1.60 97/08/13 18:10:19
+# RCS: @(#) $Id: defs,v 1.3 1998/09/14 18:40:08 stanton Exp $
if ![info exists VERBOSE] {
set VERBOSE 0
diff --git a/tests/dstring.test b/tests/dstring.test
index 93a84d4..5b17b7d 100644
--- a/tests/dstring.test
+++ b/tests/dstring.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) dstring.test 1.10 96/10/08 17:40:02
+# RCS: @(#) $Id: dstring.test,v 1.2 1998/09/14 18:40:08 stanton Exp $
if {[info commands testdstring] == {}} {
puts "This application hasn't been compiled with the \"testdstring\""
diff --git a/tests/env.test b/tests/env.test
index 1bfc8dd..0a4df27 100644
--- a/tests/env.test
+++ b/tests/env.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) env.test 1.14 97/10/31 17:00:03
+# RCS: @(#) $Id: env.test,v 1.2 1998/09/14 18:40:08 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/error.test b/tests/error.test
index 1421e9b..bd78987 100644
--- a/tests/error.test
+++ b/tests/error.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) error.test 1.22 97/08/12 17:02:43
+# RCS: @(#) $Id: error.test,v 1.2 1998/09/14 18:40:08 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/eval.test b/tests/eval.test
index 07f610c..05eec40 100644
--- a/tests/eval.test
+++ b/tests/eval.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) eval.test 1.10 97/07/02 16:40:56
+# RCS: @(#) $Id: eval.test,v 1.2 1998/09/14 18:40:08 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/event.test b/tests/event.test
index e8d0462..118bfc1 100644
--- a/tests/event.test
+++ b/tests/event.test
@@ -8,7 +8,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# "@(#) event.test 1.35 97/08/11 11:58:38"
+# RCS: @(#) $Id: event.test,v 1.3 1998/09/14 18:40:08 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/exec.test b/tests/exec.test
index 169885a..d365b5d 100644
--- a/tests/exec.test
+++ b/tests/exec.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) exec.test 1.58 97/08/01 11:10:00
+# RCS: @(#) $Id: exec.test,v 1.2 1998/09/14 18:40:08 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/execute.test b/tests/execute.test
index 81fde45..b4ae4a4 100644
--- a/tests/execute.test
+++ b/tests/execute.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.
#
-# SCCS: @(#) execute.test 1.5 97/08/12 11:16:31
+# RCS: @(#) $Id: execute.test,v 1.2 1998/09/14 18:40:08 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/expr-old.test b/tests/expr-old.test
index e11ecd2..1ef6afc 100644
--- a/tests/expr-old.test
+++ b/tests/expr-old.test
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) expr-old.test 1.63 97/10/31 17:23:24
+# RCS: @(#) $Id: expr-old.test,v 1.3 1998/09/14 18:40:09 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/expr.test b/tests/expr.test
index 3c4779f..2a5c860 100644
--- a/tests/expr.test
+++ b/tests/expr.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) expr.test 1.39 97/11/03 16:04:47
+# RCS: @(#) $Id: expr.test,v 1.2 1998/09/14 18:40:09 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/fCmd.test b/tests/fCmd.test
index ae2b8b0..0166643 100644
--- a/tests/fCmd.test
+++ b/tests/fCmd.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) fCmd.test 1.33 97/11/03 15:58:08
+# RCS: @(#) $Id: fCmd.test,v 1.2 1998/09/14 18:40:09 stanton Exp $
#
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/fileName.test b/tests/fileName.test
index e0f7260..287033f 100644
--- a/tests/fileName.test
+++ b/tests/fileName.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) fileName.test 1.31 97/08/19 18:45:07
+# RCS: @(#) $Id: fileName.test,v 1.2 1998/09/14 18:40:09 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/for-old.test b/tests/for-old.test
index 354f3d68..c78ff2c 100644
--- a/tests/for-old.test
+++ b/tests/for-old.test
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) for-old.test 1.14 97/01/13 13:42:18
+# RCS: @(#) $Id: for-old.test,v 1.2 1998/09/14 18:40:09 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/for.test b/tests/for.test
index aa918ec..609ca78 100644
--- a/tests/for.test
+++ b/tests/for.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) for.test 1.10 97/07/02 16:40:59
+# RCS: @(#) $Id: for.test,v 1.2 1998/09/14 18:40:09 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/foreach.test b/tests/foreach.test
index f87dd39..7d7b8b5 100644
--- a/tests/foreach.test
+++ b/tests/foreach.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) foreach.test 1.8 97/08/12 18:19:27
+# RCS: @(#) $Id: foreach.test,v 1.2 1998/09/14 18:40:09 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/format.test b/tests/format.test
index 758825b..2cb4436 100644
--- a/tests/format.test
+++ b/tests/format.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) format.test 1.29 97/09/03 15:51:02
+# RCS: @(#) $Id: format.test,v 1.2 1998/09/14 18:40:09 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/get.test b/tests/get.test
index 5155b95..bf746aa 100644
--- a/tests/get.test
+++ b/tests/get.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) get.test 1.7 97/10/31 17:23:00
+# RCS: @(#) $Id: get.test,v 1.2 1998/09/14 18:40:09 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/history.test b/tests/history.test
index 498fb2e..4417049 100644
--- a/tests/history.test
+++ b/tests/history.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) history.test 1.15 97/08/13 14:37:10
+# RCS: @(#) $Id: history.test,v 1.2 1998/09/14 18:40:09 stanton Exp $
if {[catch {history}]} {
puts stdout "This version of Tcl was built without the history command;\n"
diff --git a/tests/http.test b/tests/http.test
index 2770e13..2403c33 100644
--- a/tests/http.test
+++ b/tests/http.test
@@ -11,7 +11,7 @@
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
#
-# SCCS: @(#) http2.test 1.8 97/08/13 11:16:50
+# RCS: @(#) $Id: http.test,v 1.2 1998/09/14 18:40:09 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/httpold.test b/tests/httpold.test
index 5e9ba0c..f6d5fe0 100644
--- a/tests/httpold.test
+++ b/tests/httpold.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) http.test 1.12 97/07/29 17:04:12
+# RCS: @(#) $Id: httpold.test,v 1.2 1998/09/14 18:40:09 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/if-old.test b/tests/if-old.test
index abade28..024cc53 100644
--- a/tests/if-old.test
+++ b/tests/if-old.test
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) if-old.test 1.10 96/10/22 11:33:06
+# RCS: @(#) $Id: if-old.test,v 1.2 1998/09/14 18:40:10 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/if.test b/tests/if.test
index 03b8bcd..8da1a0d 100644
--- a/tests/if.test
+++ b/tests/if.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) if.test 1.9 97/07/02 16:40:58
+# RCS: @(#) $Id: if.test,v 1.2 1998/09/14 18:40:10 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/incr-old.test b/tests/incr-old.test
index 8fbd89f..cafe208 100644
--- a/tests/incr-old.test
+++ b/tests/incr-old.test
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) incr-old.test 1.11 96/11/19 16:56:23
+# RCS: @(#) $Id: incr-old.test,v 1.2 1998/09/14 18:40:10 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/incr.test b/tests/incr.test
index e187d41..99ded82 100644
--- a/tests/incr.test
+++ b/tests/incr.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) incr.test 1.9 97/07/02 16:41:32
+# RCS: @(#) $Id: incr.test,v 1.2 1998/09/14 18:40:10 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/indexObj.test b/tests/indexObj.test
index 9f30ee0..d4ae81a 100644
--- a/tests/indexObj.test
+++ b/tests/indexObj.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# @(#) indexObj.test 1.3 97/06/23 18:23:09
+# RCS: @(#) $Id: indexObj.test,v 1.2 1998/09/14 18:40:10 stanton Exp $
if {[info procs test] != "test"} {
source defs
diff --git a/tests/info.test b/tests/info.test
index 38cb8ee..d4ad093 100644
--- a/tests/info.test
+++ b/tests/info.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) info.test 1.39 97/08/01 11:10:24
+# RCS: @(#) $Id: info.test,v 1.3 1998/09/14 18:40:10 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/init.test b/tests/init.test
index 2d6e068..2cec460 100644
--- a/tests/init.test
+++ b/tests/init.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) init.test 1.5 97/11/19 18:08:20
+# RCS: @(#) $Id: init.test,v 1.2 1998/09/14 18:40:10 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/interp.test b/tests/interp.test
index 6755f71..a4086a2 100644
--- a/tests/interp.test
+++ b/tests/interp.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) interp.test 1.64 97/09/04 16:02:23
+# RCS: @(#) $Id: interp.test,v 1.3 1998/09/14 18:40:10 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/io.test b/tests/io.test
index e2a48dd..6e82dd3 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) io.test 1.131 97/09/22 11:15:05
+# RCS: @(#) $Id: io.test,v 1.4 1998/09/14 18:40:10 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/ioCmd.test b/tests/ioCmd.test
index fd39263..8de4456 100644
--- a/tests/ioCmd.test
+++ b/tests/ioCmd.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# "@(#) ioCmd.test 1.49 97/10/31 17:23:22"
+# RCS: @(#) $Id: ioCmd.test,v 1.2 1998/09/14 18:40:11 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/ioUtil.test b/tests/ioUtil.test
index ad7ec74..dd254fd 100644
--- a/tests/ioUtil.test
+++ b/tests/ioUtil.test
@@ -8,7 +8,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: %Z% $Id: ioUtil.test,v 1.4 1998/08/07 12:02:42 suresh Exp $
+# RCS: @(#) $Id: ioUtil.test,v 1.5 1998/09/14 18:40:10 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/join.test b/tests/join.test
index 62af644..1c41d53 100644
--- a/tests/join.test
+++ b/tests/join.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) join.test 1.7 97/10/06 13:04:59
+# RCS: @(#) $Id: join.test,v 1.2 1998/09/14 18:40:11 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/lindex.test b/tests/lindex.test
index fa2c1c6..a4596c5 100644
--- a/tests/lindex.test
+++ b/tests/lindex.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) lindex.test 1.7 97/02/27 16:53:56
+# RCS: @(#) $Id: lindex.test,v 1.2 1998/09/14 18:40:11 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/link.test b/tests/link.test
index 25eefb1..0878c5f 100644
--- a/tests/link.test
+++ b/tests/link.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) link.test 1.12 97/01/21 21:16:04
+# RCS: @(#) $Id: link.test,v 1.2 1998/09/14 18:40:11 stanton Exp $
if {[info commands testlink] == {}} {
puts "This application hasn't been compiled with the \"testlink\""
diff --git a/tests/linsert.test b/tests/linsert.test
index 86a47f5..2ccce4b 100644
--- a/tests/linsert.test
+++ b/tests/linsert.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) linsert.test 1.14 97/11/18 13:54:18
+# RCS: @(#) $Id: linsert.test,v 1.2 1998/09/14 18:40:11 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/list.test b/tests/list.test
index 6c59f20..06a7e2f 100644
--- a/tests/list.test
+++ b/tests/list.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) list.test 1.22 97/06/23 18:19:17
+# RCS: @(#) $Id: list.test,v 1.2 1998/09/14 18:40:11 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/listObj.test b/tests/listObj.test
index 00eb7c6..5ea2ad4 100644
--- a/tests/listObj.test
+++ b/tests/listObj.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) listObj.test 1.9 97/06/10 15:28:11
+# RCS: @(#) $Id: listObj.test,v 1.2 1998/09/14 18:40:11 stanton Exp $
if {[info commands testobj] == {}} {
puts "This application hasn't been compiled with the \"testobj\""
diff --git a/tests/llength.test b/tests/llength.test
index badfd17..cf09b23 100644
--- a/tests/llength.test
+++ b/tests/llength.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) llength.test 1.4 96/02/16 08:56:11
+# RCS: @(#) $Id: llength.test,v 1.2 1998/09/14 18:40:11 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/load.test b/tests/load.test
index 5c33677..17affb7 100644
--- a/tests/load.test
+++ b/tests/load.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) load.test 1.19 96/11/30 16:05:18
+# RCS: @(#) $Id: load.test,v 1.2 1998/09/14 18:40:11 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/lrange.test b/tests/lrange.test
index 32fbbaa..1691eb4 100644
--- a/tests/lrange.test
+++ b/tests/lrange.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) lrange.test 1.12 97/06/23 18:19:25
+# RCS: @(#) $Id: lrange.test,v 1.2 1998/09/14 18:40:11 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/lreplace.test b/tests/lreplace.test
index 44e8ee1..0aed5d5 100644
--- a/tests/lreplace.test
+++ b/tests/lreplace.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) lreplace.test 1.16 97/10/29 16:32:39
+# RCS: @(#) $Id: lreplace.test,v 1.2 1998/09/14 18:40:11 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/lsearch.test b/tests/lsearch.test
index 4eda84b..8d066c4 100644
--- a/tests/lsearch.test
+++ b/tests/lsearch.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) lsearch.test 1.7 97/04/30 13:23:53
+# RCS: @(#) $Id: lsearch.test,v 1.2 1998/09/14 18:40:12 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/macFCmd.test b/tests/macFCmd.test
index a06004c..17d6f89 100644
--- a/tests/macFCmd.test
+++ b/tests/macFCmd.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) macFCmd.test 1.3 97/06/23 18:24:10
+# RCS: @(#) $Id: macFCmd.test,v 1.2 1998/09/14 18:40:12 stanton Exp $
#
if {$tcl_platform(platform) != "macintosh"} {
diff --git a/tests/misc.test b/tests/misc.test
index b2168c1..6106ce8 100644
--- a/tests/misc.test
+++ b/tests/misc.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) misc.test 1.12 97/07/02 16:41:34
+# RCS: @(#) $Id: misc.test,v 1.2 1998/09/14 18:40:12 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/namespace-old.test b/tests/namespace-old.test
index f743722..7efa6c1 100644
--- a/tests/namespace-old.test
+++ b/tests/namespace-old.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.
#
-# SCCS: @(#) namespace-old.test 1.5 97/06/20 14:51:17
+# RCS: @(#) $Id: namespace-old.test,v 1.2 1998/09/14 18:40:12 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/namespace.test b/tests/namespace.test
index 0b9a2b5..93add66 100644
--- a/tests/namespace.test
+++ b/tests/namespace.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) namespace.test 1.15 97/07/30 15:26:42
+# RCS: @(#) $Id: namespace.test,v 1.3 1998/09/14 18:40:12 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/obj.test b/tests/obj.test
index 08f230b..b4b7672 100644
--- a/tests/obj.test
+++ b/tests/obj.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# @(#) obj.test 1.12 97/10/31 17:23:23
+# RCS: @(#) $Id: obj.test,v 1.2 1998/09/14 18:40:12 stanton Exp $
if {[info commands testobj] == {}} {
puts "This application hasn't been compiled with the \"testobj\""
diff --git a/tests/opt.test b/tests/opt.test
index 69d981c..ce79827 100644
--- a/tests/opt.test
+++ b/tests/opt.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) opt.test 1.2 97/08/20 15:57:18
+# RCS: @(#) $Id: opt.test,v 1.3 1998/09/14 18:40:12 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/osa.test b/tests/osa.test
index 0e94838..d7de348 100644
--- a/tests/osa.test
+++ b/tests/osa.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) osa.test 1.4 97/06/23 18:24:24
+# RCS: @(#) $Id: osa.test,v 1.2 1998/09/14 18:40:12 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/parse.test b/tests/parse.test
index 514ed2a..7019b7a 100644
--- a/tests/parse.test
+++ b/tests/parse.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) parse.test 1.42 97/08/04 11:05:53
+# RCS: @(#) $Id: parse.test,v 1.2 1998/09/14 18:40:12 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/pid.test b/tests/pid.test
index 1f6e039..c93237f 100644
--- a/tests/pid.test
+++ b/tests/pid.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) pid.test 1.12 96/04/12 11:14:43
+# RCS: @(#) $Id: pid.test,v 1.2 1998/09/14 18:40:12 stanton Exp $
# If pid is not defined just return with no error
# Some platforms may not have the pid command implemented
diff --git a/tests/pkg.test b/tests/pkg.test
index e6a99c6..412d478 100644
--- a/tests/pkg.test
+++ b/tests/pkg.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) pkg.test 1.12 97/08/14 01:33:54
+# RCS: @(#) $Id: pkg.test,v 1.2 1998/09/14 18:40:12 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/proc-old.test b/tests/proc-old.test
index c770edb..07310f4 100644
--- a/tests/proc-old.test
+++ b/tests/proc-old.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.
#
-# SCCS: @(#) proc-old.test 1.31 97/07/02 16:41:36
+# RCS: @(#) $Id: proc-old.test,v 1.2 1998/09/14 18:40:12 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/proc.test b/tests/proc.test
index eeace97..f470707 100644
--- a/tests/proc.test
+++ b/tests/proc.test
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) proc.test 1.11 97/08/12 13:31:43
+# RCS: @(#) $Id: proc.test,v 1.2 1998/09/14 18:40:12 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/pwd.test b/tests/pwd.test
index e283799..ae827f9 100644
--- a/tests/pwd.test
+++ b/tests/pwd.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) pwd.test 1.2 97/08/13 23:06:41
+# RCS: @(#) $Id: pwd.test,v 1.2 1998/09/14 18:40:12 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/regexp.test b/tests/regexp.test
index 5fb785b..f5354fb 100644
--- a/tests/regexp.test
+++ b/tests/regexp.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) regexp.test 1.21 96/12/23 13:59:48
+# RCS: @(#) $Id: regexp.test,v 1.2 1998/09/14 18:40:13 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/registry.test b/tests/registry.test
index 605c84b..e02a538 100644
--- a/tests/registry.test
+++ b/tests/registry.test
@@ -9,7 +9,7 @@
#
# Copyright (c) 1997 by Sun Microsystems, Inc. All rights reserved.
#
-# SCCS: @(#) registry.test 1.5 97/08/01 11:14:25
+# RCS: @(#) $Id: registry.test,v 1.2 1998/09/14 18:40:13 stanton Exp $
if {$tcl_platform(platform) != "windows"} {
return
diff --git a/tests/remote.tcl b/tests/remote.tcl
index 3ede61a..9d27cdc 100644
--- a/tests/remote.tcl
+++ b/tests/remote.tcl
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# @(#) remote.tcl 1.5 96/04/17 08:21:19"
+# RCS: @(#) $Id: remote.tcl,v 1.2 1998/09/14 18:40:13 stanton Exp $
# Initialize message delimitor
diff --git a/tests/rename.test b/tests/rename.test
index 05f5938..5f0d733 100644
--- a/tests/rename.test
+++ b/tests/rename.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) rename.test 1.20 97/06/24 17:26:23
+# RCS: @(#) $Id: rename.test,v 1.2 1998/09/14 18:40:13 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/resource.test b/tests/resource.test
index e815ef8..c1d9a9e 100644
--- a/tests/resource.test
+++ b/tests/resource.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) resource.test 1.8 97/11/06 12:36:32
+# RCS: @(#) $Id: resource.test,v 1.2 1998/09/14 18:40:13 stanton Exp $
# Only run this test on Macintosh systems
if {$tcl_platform(platform) != "macintosh"} {
diff --git a/tests/safe.test b/tests/safe.test
index c23f06a..3ac1c10 100644
--- a/tests/safe.test
+++ b/tests/safe.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) safe.test 1.34 97/11/19 14:59:13
+# RCS: @(#) $Id: safe.test,v 1.2 1998/09/14 18:40:13 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/scan.test b/tests/scan.test
index 50bf876..e95af35 100644
--- a/tests/scan.test
+++ b/tests/scan.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) scan.test 1.26 97/08/06 08:56:08
+# RCS: @(#) $Id: scan.test,v 1.2 1998/09/14 18:40:13 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/set-old.test b/tests/set-old.test
index 12944f3..bd93730 100644
--- a/tests/set-old.test
+++ b/tests/set-old.test
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) set-old.test 1.22 97/10/29 14:05:07
+# RCS: @(#) $Id: set-old.test,v 1.3 1998/09/14 18:40:13 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/set.test b/tests/set.test
index 4d0f352..5d762b4 100644
--- a/tests/set.test
+++ b/tests/set.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) set.test 1.6 97/06/23 18:18:54
+# RCS: @(#) $Id: set.test,v 1.2 1998/09/14 18:40:13 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/socket.test b/tests/socket.test
index 15b3ae4..88d3ed2 100644
--- a/tests/socket.test
+++ b/tests/socket.test
@@ -59,7 +59,7 @@
# listening at port 2048. If all fails, a message is printed and the tests
# using the remote server are not performed.
#
-# SCCS: @(#) socket.test 1.83 97/09/15 16:29:47
+# RCS: @(#) $Id: socket.test,v 1.5 1998/09/14 18:40:13 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/source.test b/tests/source.test
index 9a7e230..590188f 100644
--- a/tests/source.test
+++ b/tests/source.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) source.test 1.26 97/09/24 16:33:37
+# RCS: @(#) $Id: source.test,v 1.2 1998/09/14 18:40:13 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/split.test b/tests/split.test
index a57c714..8674db8 100644
--- a/tests/split.test
+++ b/tests/split.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) split.test 1.10 97/07/07 16:30:07
+# RCS: @(#) $Id: split.test,v 1.2 1998/09/14 18:40:14 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/string.test b/tests/string.test
index 6643d4f..b7b58ab 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) string.test 1.15 97/07/02 16:49:27
+# RCS: @(#) $Id: string.test,v 1.2 1998/09/14 18:40:14 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/stringObj.test b/tests/stringObj.test
index 3d03bad..bcfbe0c 100644
--- a/tests/stringObj.test
+++ b/tests/stringObj.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# @(#) stringObj.test 1.8 97/04/09 11:29:37
+# RCS: @(#) $Id: stringObj.test,v 1.2 1998/09/14 18:40:14 stanton Exp $
if {[info commands testobj] == {}} {
puts "This application hasn't been compiled with the \"testobj\""
diff --git a/tests/subst.test b/tests/subst.test
index 356114d..3378756 100644
--- a/tests/subst.test
+++ b/tests/subst.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) subst.test 1.8 97/06/23 18:20:15
+# RCS: @(#) $Id: subst.test,v 1.2 1998/09/14 18:40:14 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/switch.test b/tests/switch.test
index 347e7a5..4d1f4a8 100644
--- a/tests/switch.test
+++ b/tests/switch.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) switch.test 1.7 97/02/10 17:27:13
+# RCS: @(#) $Id: switch.test,v 1.2 1998/09/14 18:40:14 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/timer.test b/tests/timer.test
index 4671366..7064d6d 100644
--- a/tests/timer.test
+++ b/tests/timer.test
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) timer.test 1.2 97/04/29 11:59:59
+# RCS: @(#) $Id: timer.test,v 1.2 1998/09/14 18:40:14 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/trace.test b/tests/trace.test
index b4d02d3..c0faa35 100644
--- a/tests/trace.test
+++ b/tests/trace.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) trace.test 1.27 97/07/23 17:08:38
+# RCS: @(#) $Id: trace.test,v 1.2 1998/09/14 18:40:14 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/unixFCmd.test b/tests/unixFCmd.test
index ffa4fdd..76febd0 100644
--- a/tests/unixFCmd.test
+++ b/tests/unixFCmd.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) unixFCmd.test 1.15 97/11/03 15:58:22
+# RCS: @(#) $Id: unixFCmd.test,v 1.5 1998/09/14 18:40:14 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/unixFile.test b/tests/unixFile.test
index eed009c..c7f5b7c 100644
--- a/tests/unixFile.test
+++ b/tests/unixFile.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: %Z% $Id: unixFile.test,v 1.1 1998/06/17 18:16:41 stanton Exp $
+# RCS: @(#) $Id: unixFile.test,v 1.2 1998/09/14 18:40:14 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/unixNotfy.test b/tests/unixNotfy.test
index bc08ad9..7c19129 100644
--- a/tests/unixNotfy.test
+++ b/tests/unixNotfy.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) unixNotfy.test 1.3 97/09/15 15:39:53
+# RCS: @(#) $Id: unixNotfy.test,v 1.3 1998/09/14 18:40:14 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/unknown.test b/tests/unknown.test
index 83ad160..d0f05c0 100644
--- a/tests/unknown.test
+++ b/tests/unknown.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) unknown.test 1.12 96/08/26 11:29:29
+# RCS: @(#) $Id: unknown.test,v 1.2 1998/09/14 18:40:14 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/uplevel.test b/tests/uplevel.test
index 84daa03..ca091bb 100644
--- a/tests/uplevel.test
+++ b/tests/uplevel.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) uplevel.test 1.13 96/02/16 08:56:35
+# RCS: @(#) $Id: uplevel.test,v 1.2 1998/09/14 18:40:14 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/upvar.test b/tests/upvar.test
index cb89b56..087b4b2 100644
--- a/tests/upvar.test
+++ b/tests/upvar.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) upvar.test 1.15 97/10/29 18:25:56
+# RCS: @(#) $Id: upvar.test,v 1.3 1998/09/14 18:40:14 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/util.test b/tests/util.test
index ee37047..bf9babe 100644
--- a/tests/util.test
+++ b/tests/util.test
@@ -6,7 +6,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) util.test 1.8 97/08/12 15:50:02
+# RCS: @(#) $Id: util.test,v 1.2 1998/09/14 18:40:14 stanton Exp $
if {[info commands testobj] == {}} {
puts "This application hasn't been compiled with the \"testobj\""
diff --git a/tests/var.test b/tests/var.test
index 93a66d1..735b0ee 100644
--- a/tests/var.test
+++ b/tests/var.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.
#
-# SCCS: @(#) var.test 1.10 97/07/28 18:31:47
+# RCS: @(#) $Id: var.test,v 1.3 1998/09/14 18:40:15 stanton Exp $
#
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/while-old.test b/tests/while-old.test
index f5e5b05..a97832e 100644
--- a/tests/while-old.test
+++ b/tests/while-old.test
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) while-old.test 1.14 97/05/16 10:44:19
+# RCS: @(#) $Id: while-old.test,v 1.2 1998/09/14 18:40:15 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/while.test b/tests/while.test
index 8642747..cd9381f 100644
--- a/tests/while.test
+++ b/tests/while.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) @(#) while.test 1.9 97/07/02 16:41:35
+# RCS: @(#) $Id: while.test,v 1.2 1998/09/14 18:40:15 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/winFCmd.test b/tests/winFCmd.test
index a38d72f..55df5d0 100644
--- a/tests/winFCmd.test
+++ b/tests/winFCmd.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) winFCmd.test 1.11 97/10/10 11:50:05
+# RCS: @(#) $Id: winFCmd.test,v 1.2 1998/09/14 18:40:15 stanton Exp $
#
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/winNotify.test b/tests/winNotify.test
index 2914a41..2264699 100644
--- a/tests/winNotify.test
+++ b/tests/winNotify.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) winNotify.test 1.2 97/04/14 17:24:56
+# RCS: @(#) $Id: winNotify.test,v 1.2 1998/09/14 18:40:15 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
diff --git a/tests/winPipe.test b/tests/winPipe.test
index f3fc757..be6bbbc 100644
--- a/tests/winPipe.test
+++ b/tests/winPipe.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) winPipe.test 1.11 97/10/09 17:06:16
+# RCS: @(#) $Id: winPipe.test,v 1.3 1998/09/14 18:40:15 stanton Exp $
if {$tcl_platform(platform) != "windows"} {
return