diff options
Diffstat (limited to 'tests')
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 @@ -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\"" @@ -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 |