From 3667ec5d5acd7ccd1d1a94b148249952e3f5fef2 Mon Sep 17 00:00:00 2001
From: hershey <hershey>
Date: Wed, 24 Mar 1999 02:48:54 +0000
Subject: lint:  changed a tcltest namespace variable name from tmpDir to      
  workingDir. changes:  made more tests atomic. README is now updated to match
 new test suite features.

---
 tests/README             | 383 +++++++++++++++++++++++++++--------------------
 tests/all.tcl            |   5 +-
 tests/append.test        |   3 +-
 tests/assocd.test        |   3 +-
 tests/async.test         |   3 +-
 tests/autoMkindex.tcl    |   1 +
 tests/autoMkindex.test   |   5 +-
 tests/basic.test         |   3 +-
 tests/binary.test        |   3 +-
 tests/case.test          |   3 +-
 tests/clock.test         |   3 +-
 tests/cmdAH.test         |   3 +-
 tests/cmdIL.test         |   3 +-
 tests/cmdInfo.test       |   3 +-
 tests/cmdMZ.test         |   3 +-
 tests/compExpr-old.test  |   3 +-
 tests/compExpr.test      |   3 +-
 tests/compile.test       |   3 +-
 tests/concat.test        |   3 +-
 tests/dcall.test         |   3 +-
 tests/defs.tcl           | 164 +++++++++-----------
 tests/dstring.test       |   3 +-
 tests/encoding.test      |  27 ++--
 tests/env.test           |   3 +-
 tests/error.test         |   3 +-
 tests/eval.test          |   3 +-
 tests/event.test         |   3 +-
 tests/exec.test          |   3 +-
 tests/execute.test       |   3 +-
 tests/expr-old.test      |   3 +-
 tests/expr.test          |   3 +-
 tests/fCmd.test          |   3 +-
 tests/fileName.test      |   3 +-
 tests/for-old.test       |   3 +-
 tests/for.test           |   3 +-
 tests/foreach.test       |   3 +-
 tests/format.test        |   3 +-
 tests/get.test           |   3 +-
 tests/history.test       |   3 +-
 tests/http.test          |   3 +-
 tests/httpold.test       |   3 +-
 tests/if-old.test        |   3 +-
 tests/if.test            |   3 +-
 tests/incr-old.test      |   3 +-
 tests/incr.test          |   3 +-
 tests/indexObj.test      |   3 +-
 tests/info.test          |   3 +-
 tests/init.test          |   3 +-
 tests/interp.test        |   3 +-
 tests/io.test            |   3 +-
 tests/ioCmd.test         |   3 +-
 tests/ioUtil.test        |   3 +-
 tests/join.test          |   3 +-
 tests/lindex.test        |   3 +-
 tests/link.test          |   3 +-
 tests/linsert.test       |   3 +-
 tests/list.test          |   3 +-
 tests/listObj.test       |   3 +-
 tests/llength.test       |   3 +-
 tests/load.test          |   3 +-
 tests/lrange.test        |   3 +-
 tests/lreplace.test      |   3 +-
 tests/lsearch.test       |   3 +-
 tests/macFCmd.test       |   3 +-
 tests/misc.test          |   3 +-
 tests/msgcat.test        |   3 +-
 tests/namespace-old.test |   3 +-
 tests/namespace.test     |   3 +-
 tests/obj.test           |   3 +-
 tests/opt.test           |   3 +-
 tests/osa.test           |   3 +-
 tests/parse.test         |   3 +-
 tests/parseExpr.test     |   3 +-
 tests/parseOld.test      |   3 +-
 tests/pid.test           |   3 +-
 tests/pkg.test           |   3 +-
 tests/pkgMkIndex.test    |  11 +-
 tests/platform.test      |   1 +
 tests/proc-old.test      |   3 +-
 tests/proc.test          |   3 +-
 tests/pwd.test           |   3 +-
 tests/reg.test           |   3 +-
 tests/regexp.test        |   3 +-
 tests/registry.test      |   3 +-
 tests/remote.tcl         |   3 +-
 tests/rename.test        |   3 +-
 tests/resource.test      |   3 +-
 tests/result.test        |   1 +
 tests/safe.test          |   3 +-
 tests/scan.test          |   3 +-
 tests/security.test      |   3 +-
 tests/set-old.test       |   3 +-
 tests/set.test           |   3 +-
 tests/socket.test        |   3 +-
 tests/source.test        |   3 +-
 tests/split.test         |   3 +-
 tests/stack.test         |   3 +-
 tests/string.test        |   3 +-
 tests/stringObj.test     |   3 +-
 tests/subst.test         |   3 +-
 tests/switch.test        |   3 +-
 tests/thread.test        |   3 +-
 tests/timer.test         |   3 +-
 tests/trace.test         |   3 +-
 tests/unixFCmd.test      |   5 +-
 tests/unixFile.test      |   3 +-
 tests/unixInit.test      |   3 +-
 tests/unixNotfy.test     |   3 +-
 tests/unknown.test       |   3 +-
 tests/uplevel.test       |   3 +-
 tests/upvar.test         |   3 +-
 tests/utf.test           |   3 +-
 tests/util.test          |   3 +-
 tests/var.test           |   3 +-
 tests/while-old.test     |   3 +-
 tests/while.test         |   3 +-
 tests/winConsole.test    |   3 +-
 tests/winFCmd.test       |   3 +-
 tests/winFile.test       |   3 +-
 tests/winNotify.test     |   3 +-
 tests/winPipe.test       |   3 +-
 121 files changed, 548 insertions(+), 388 deletions(-)

diff --git a/tests/README b/tests/README
index 3df72ca..cb1ba35 100644
--- a/tests/README
+++ b/tests/README
@@ -1,10 +1,22 @@
 README -- Tcl test suite design document.
 
-RCS: @(#) $Id: README,v 1.1.2.3 1999/03/23 20:06:07 hershey Exp $
+RCS: @(#) $Id: README,v 1.1.2.4 1999/03/24 02:48:54 hershey Exp $
 
+Contents:
+---------
 
-Introduction:
--------------
+    1. Introduction
+    2. Definitions file
+    3. Writing a new test
+    4. Constraints
+    5. Adding a New Test File
+    6. Test output
+    7. Selecting tests for execution within a file
+    8. Selecting files to be sourced by all.tcl
+    9. Incompatibilities with prior Tcl versions
+
+1. Introduction:
+----------------
 
 This directory contains a set of validation tests for the Tcl commands
 and C Library procedures for Tcl.  Each of the files whose name ends
@@ -42,197 +54,124 @@ You can run the tests in three ways:
 
     (c) start up tcltest in this directory, then "source" the test
         file (for example, type "source parse.test").  To run all
-	of the tests, type "source all.tcl".
+	of the tests, type "source all.tcl".  To use the options in
+	interactive mode, you can set their corresponding tcltest
+	namespace variables:
+		  ::tcltest::matchingTests
+		  ::tcltest::skippingTests
+		  ::tcltest::testConfig(nonPortable)
+		  ::tcltest::testConfig(knownBug)
 
 In all cases, no output will be generated if all goes well, except for
-a listing of the tests.  If there are errors then additional messages
-will appear in the format described below.  Note that some tests will
-be skipped if you run as superuser.
+a listing of the test files and a statical summary.  If there are
+errors then additional messages will appear in the format described
+below.  Note that some tests will be skipped if you run as superuser.
 
 This approach to testing was designed and initially implemented by
 Mary Ann May-Pumphrey of Sun Microsystems in the early 1990's.  Many
 thanks to her for donating her work back to the public Tcl release.
 
-The rest of this file provides additional information on the
-features of the testing environment.
-
 
-Definitions file:
------------------
+2. Definitions file:
+--------------------
 
-The file "defs.tcl" defines the "test" namespace which contains a
+The file "defs.tcl" defines the "tcltest" namespace which contains a
 collection of procedures and variables used to run the tests.  It is
 read in automatically by each of the .test files if needed, but once
 it has been read once it will not be read again by the .test files.
-Currently, the following procedures are exported from the "test"
+Currently, the following procedures are exported from the "tcltest"
 namespace and automatically imported:
 
-    test cleanupTests dotests saveState restoreState normalizeMsg
-    makeFile removeFile makeDirectory removeDirectory viewFile
-    safeFetch bytestring set_iso8859_1_locale restore_locale setTmpDir
+    test	      Run a test script.
 
-Please refer to the defs.tcl file for documentation on these
-procedures.
+    cleanupTests      Print stats and remove files created by tests.
 
-To keep tests from polluting the current working directory with
-unwanted files, you can specify a temporary directory, which will
-become the current working directory for the tests, by specifying
--tmpdir on the command line or by calling the ::tcltest::setTmpDir
-procedure (after sourcing the defs.tcl file).  The default working dir
-is the directory from which tcltest was called.  Please note that when
-you run the test suite by calling "make test", the working dir is no
-longer automatically switched to "tests".
+    dotests	      Source a test file and run tests of the
+		      specified pattern.
 
+    makeFile	      Create a file--the file will automatically
+		      be removed by cleanupTests.
 
-Test output:
-------------
+    removeFile	      Force a file to be removed.
 
-For each test file, the number of tests passed, skipped, and failed is
-printed to stdout.  Aside from this statistical information, output
-can be controlled on a per-test basis by the ::tcltest::verbose variable.
+    makeDirectory     Create a directory--the directory will
+		      automatically be removed by cleanupTests.
 
-::tcltest::verbose can be set to any substring or permutation of "bps".
-In the string "bps", the 'b' stands for a test's "body", the 'p'
-stands for "passed" tests, and the 's' stands for "skipped" tests.
-The default value of ::tcltest::verbose is "b".  If 'b' is present, then
-the entire body of the test is printed for each failed test, otherwise
-only the test's name, desired output, and actual output, are printed
-for each failed test.  If 'p' is present, then a line is printed for
-each passed test, otherwise no line is printed for passed tests.  If
-'s' is present, then a line (containing the consraints that cause the
-test to be skipped) is printed for each skipped test, otherwise no
-line is printed for skipped tests.
+    removeDirectory   Force a directory to be removed.
 
-You can set ::tcltest::verbose either interactively (after the defs.tcl
-file has been sourced) or by the command line argument -verbose, for
-example:
+    viewFile	      Returns the contents of a file.
 
-      tcltest socket.test -verbose bps
+    normalizeMsg      Remove extra newlines from a string.
 
+    bytestring	      Construct a string that consists of the
+		      requested sequence of bytes, as opposed to a
+		      string of properly formed UTF-8 characters.
 
-Selecting files to be sourced by all.tcl:
------------------------------------------
+    set_iso8859_1_locale    Set the locale to iso8859_1.
 
-You can specify the files you want all.tcl to source on the command
-line with the -file options.  For example, if you call the
-following:
-
-     tcltest all.tcl -file "unix*.test"
-
-all files in "tests" directory that match the pattern unix*.test will
-be sourced by the all.tcl file.  Another useful example is if a
-particular test hangs, say "get.test", and you just want to run the
-remaining tests, then you can call the following:
-
-     tcltest all.tcl -file "[h-z]*.test"
-
-Note that the argument to -file will be substituted relative to the
-"tests" directory.
+    restore_locale    Restore the locale to its original setting.
 
+    saveState	      Save the procedure and global variable names.
 
-Selecting tests for execution within a file:
---------------------------------------------
-
-Normally, all the tests in a file are run whenever the file is
-sourced.  An individual test will be skipped if one of the following
-conditions is met:
+    restoreState      Restore the procedure and global variable names.
 
-    1) the "name" of the tests does not match (using glob style
-       matching) one or more elements in the ::tcltest::matchingTests
-       variable
-
-    2) the "name" of the tests matches (using glob style matching) one
-       or more elements in the ::tcltest::skippingTests variable
-
-    3) the "constraints" argument to the "test" call, if given,
-       contains one or more false elements.
-
-You can set ::tcltest::matchingTests and/or ::tcltest::skippingTests either
-interactively (after the defs.tcl file has been sourced), or by the
-command line arguments -match and -skip, for example:
-
-       tcltest socket.test -match "*2.* *4.*" -skip "*2.33*"
-
-The two predefined constraints (knownBug and nonPortable) can be
-overridden either interactively (after the defs.tcl file has been
-sourced) by setting the ::tcltest::testConfig(<constraint>) variable, or
-by using the -constraints command line option with the name of the
-constraint in the argument.  The following example shows how to run
-tests that are constrained by the knownBug and nonPortable
-restricions:
-
-	tcltest all.tcl -constraints "knownBug nonPortable"
-
-See the defs.tcl file for information about each of these constraints.
-Other constraints can be added at any time.  See the "Writing a new
-test" section below for more details about using built-in constraints
-and adding new ones.
-
-Adding a New Test File:
------------------------
-
-If the file matches the tests/*.test pattern (as it should), then it
-will automatically be run by the all.tcl file.  Make sure your test
-file can be run from any working directory by running the following
-from several different working directories:
-
-	tcltest tests/all.tcl
-
-Make sure no temporary files are left behind by your test file.  Your
-test file should call "::tcltest::cleanupTests" before returning.  The
-::tcltest::cleanupTests procedure prints statistics about the number of
-tests that passed, skipped, and failed, and removes all files that
-were created using the ::tcltest::makeFile and ::tcltest::makeDirectory
+Please refer to the defs.tcl file for more documentation on these
 procedures.
 
-Be sure your tests can run cross-platform in both the build
-environment as well as the installation environment.  If your test
-file contains tests that should not be run in or more of those cases,
-please use the constraints mechanism described in the next section to
-skip those tests.
 
+3. Writing a new test:
+----------------------
+
+The test procedure runs a test script and prints an error message if
+the script's result does not match the expected result.  The following
+is the spec for the "test" command:
 
-Writing a new test:
--------------------
+    test <name> <description> ?<constraint>? <script> <expectedAnswer>
 
-The following is the spec for the "test" command:
+The <name> argument should follow the pattern,
+"<target>-<majorNum>.<minorNum>".  For white-box (regression) tests,
+the target should be the name of the c function or Tcl procedure being
+tested.  For black-box tests, the target should be the name of the
+feature being tested.  Related tests should share a major number.
 
-	test <name> <description> ?<constraint>? <script> <answer>
+The <description> argument is a short textual description of the test,
+to help humans understand what it does.
 
-The <name> field should be:
+The optional <constraints> argument is list of one or more keywords,
+each of which must be the name of an element in the array
+"::tcltest::testConfig".  If any of these elements is false or does
+not exist, the test is skipped.  Add appropriate constraints (e.g.,
+unixOnly) to any tests that should not always be run.  For example, a
+test that should only be run on Unix should look like the following:
 
-	<target>-<majorNum>.<minorNum>
+    test getAttribute-1.1 {testing file permissions} {unixOnly} {
+        lindex [file attributes foo.tcl] 5
+    } {00644}
 
-For white-box (regression) tests, the target should be the name of the
-c function or Tcl procedure being tested.  For black-box tests, the
-target should be the name of the feature being tested.  Related tests
-should share a major number.
+See the "Constraints" section for a list of built in
+constraints and information on how to add your own constraints.
 
-If your test requires that a file be created on the fly, please use
+The <script> argument contains the script to run to carry out the
+test.  It must return a result that can be checked for correctness.
+If your script requires that a file be created on the fly, please use
 the ::tcltest::makeFile procedure.  If your test requires that a small
 file (<50 lines) be checked in, please consider creating the file on
 the fly using the ::tcltest::makeFile procedure.  Files created by the
 ::tcltest::makeFile procedure will automatically be removed by the
 ::tcltest::cleanupTests call at the end of each test file.
 
-Add appropriate constraints (e.g., unixOnly) to any tests that should
-not always be run.  For example, a test that should only be run on
-Unix should look like the following:
-
-    test getAttribute-1.1 {testing file permissions} {unixOnly} {
-        lindex [file attributes foo.tcl] 5
-    } {00644}
-
-See the "Constraints" section for a list of built in
-constraints and information on how to add your own constraints.
+The <expectedAnswer> argument will be compared against the result of
+evaluating the <script> argument.  If they match, the test passes,
+otherwise the test fails.
 
 
-Constraints:
-------------
+4. Constraints:
+---------------
 
-Constraints are used to determine whether a test is run.  Each
-constraint is stored as an index in the array ::tcltest::testConfig.  For
-example, the unixOnly constraint is defined as the following:
+Constraints are used to determine whether a test should be skipped.
+Each constraint is stored as an index in the array
+::tcltest::testConfig.  For example, the unixOnly constraint is
+defined as the following:
 
     set ::tcltest::testConfig(unixOnly) \
 	[expr {$tcl_platform(platform) == "unix"}]
@@ -305,22 +244,137 @@ eformat		test can only run if app has a working version of
 stdio		test can only be run if the current app can be
 		spawned via a pipe
 
-Saving keystrokes:
-------------------
 
-A convenience procedure named "::tcltest::dotests" is included in file
-"defs.tcl".  It takes two arguments--the name of the test file (such
-as "parse.test"), and a pattern selecting the tests you want to
-execute.  It sets ::tcltest::matching to the second argument, calls
-"source" on the file specified in the first argument, and restores
-::tcltest::matching to its pre-call value at the end.
+5. Adding a new test file:
+--------------------------
+
+Tests files should begin by sourcing the defs.tcl file:
 
+    if {[lsearch [namespace children] ::tcltest] == -1} {
+        source [file join [pwd] [file dirname [info script]] defs.tcl]
+    }
 
-Incompatibilities with prior Tcl versions:
-------------------------------------------
+Test files sould end by cleaning up after themselves and calling
+::tcltest::cleanupTests.  The ::tcltest::cleanupTests procedure prints
+statistics about the number of tests that passed, skipped, and failed,
+and removes all files that were created using the ::tcltest::makeFile
+and ::tcltest::makeDirectory procedures.
+
+    # Remove files created by these tests
+    # Change to original working directory
+    # Unset global arrays
+    ::tcltest::cleanupTests
+    return
+
+The all.tcl file will source your new test file as if the filename
+matches the tests/*.test pattern (as it should).  Test files that
+contain regression (or glass-box) tests should be named according to
+the Tcl or C code file that they are testing.  For example, the test
+file for the C file tclCmdAH.c is cmdAH.test.  Test files that contain
+black-box tests may not correspond to any Tcl or C code file so they
+should match the pattern "*_bb.test".
+
+Be sure your new test file can be run from any working directory.
+
+Be sure no temporary files are left behind by your test file.
+
+Be sure your tests can run cross-platform in both a build environment
+as well as an installation environment.  If your test file contains
+tests that should not be run in one or more of those cases, please use
+the constraints mechanism to skip those tests.
+
+
+6. Test output:
+---------------
+
+After all specified test files are sourced, the number of tests
+passed, skipped, and failed is printed to stdout.  Aside from this
+statistical information, output can be controlled on a per-test basis
+by the ::tcltest::verbose variable.
+
+::tcltest::verbose can be set to any substring or permutation of "bps".
+In the string "bps", the 'b' stands for a test's "body", the 'p'
+stands for "passed" tests, and the 's' stands for "skipped" tests.
+The default value of ::tcltest::verbose is "b".  If 'b' is present, then
+the entire body of the test is printed for each failed test, otherwise
+only the test's name, desired output, and actual output, are printed
+for each failed test.  If 'p' is present, then a line is printed for
+each passed test, otherwise no line is printed for passed tests.  If
+'s' is present, then a line (containing the consraints that cause the
+test to be skipped) is printed for each skipped test, otherwise no
+line is printed for skipped tests.
+
+You can set ::tcltest::verbose either interactively (after the defs.tcl
+file has been sourced) or by the command line argument -verbose, for
+example:
+
+      tcltest socket.test -verbose bps
+
+
+7. Selecting tests for execution within a file:
+-----------------------------------------------
+
+Normally, all the tests in a file are run whenever the file is
+sourced.  An individual test will be skipped if one of the following
+conditions is met:
+
+    1) the "name" of the tests does not match (using glob style
+       matching) one or more elements in the ::tcltest::matchingTests
+       variable
+
+    2) the "name" of the tests matches (using glob style matching) one
+       or more elements in the ::tcltest::skippingTests variable
+
+    3) the "constraints" argument to the "test" call, if given,
+       contains one or more false elements.
+
+You can set ::tcltest::matchingTests and/or ::tcltest::skippingTests
+either interactively (after the defs.tcl file has been sourced), or by
+the command line arguments -match and -skip, for example:
+
+       tcltest socket.test -match "*2.* *4.*" -skip "*2.33*"
+
+The two predefined constraints (knownBug and nonPortable) can be
+overridden either interactively (after the defs.tcl file has been
+sourced) by setting the ::tcltest::testConfig(<constraint>) variable,
+or by using the -constraints command line option with the name of the
+constraint in the argument.  The following example shows how to run
+tests that are constrained by the knownBug and nonPortable
+restricions:
+
+	tcltest all.tcl -constraints "knownBug nonPortable"
+
+See the defs.tcl file for information about each of these constraints.
+Other constraints can be added at any time.  See the "Writing a new
+test" section below for more details about using built-in constraints
+and adding new ones.
+
+
+8. Selecting files to be sourced by all.tcl:
+--------------------------------------------
+
+You can specify the files you want all.tcl to source on the command
+line with the -file options.  For example, if you call the
+following:
+
+     tcltest all.tcl -file "unix*.test"
+
+all files in "tests" directory that match the pattern unix*.test will
+be sourced by the all.tcl file.  Another useful example is if a
+particular test hangs, say "get.test", and you just want to run the
+remaining tests, then you can call the following:
+
+     tcltest all.tcl -file "[h-z]*.test"
+
+Note that the argument to -file will be substituted relative to the
+"tests" directory.
+
+
+9. Incompatibilities with prior Tcl versions:
+---------------------------------------------
 
 1) Global variables such as VERBOSE, TESTS, and testConfig are now
-   renamed to use the new "test" namespace.
+   renamed to use the new "tcltest" namespace.
 
    old name   new name
    --------   --------
@@ -328,8 +382,8 @@ Incompatibilities with prior Tcl versions:
    TESTS      ::tcltest::matchingTests
    testConfig ::tcltest::testConfig
 
-   The introduction of the "test" namespace is a precursor to using a
-   "test" package.  This next step will be part of a future Tcl
+   The introduction of the "tcltest" namespace is a precursor to using
+   a "tcltest" package.  This next step will be part of a future Tcl
    version.
 
 2) VERBOSE values are no longer numeric.  Please see the section above
@@ -338,7 +392,8 @@ Incompatibilities with prior Tcl versions:
 3) When you run "make test", the working dir for the test suite is now
    the one from which you called "make test", rather than the "tests"
    directory.  This change allows for both unix and windows test
-   suites to be run simultaneously without interference.  All tests
-   must now run independently of their working directory.  You can
-   also control the working directory from the tcltest command line
-   with the -tmpdir option.
+   suites to be run simultaneously without interference with eachother
+   or with existing files.  All tests must now run independently of
+   their working directory.
+
+
diff --git a/tests/all.tcl b/tests/all.tcl
index 67062fd..000af90 100644
--- a/tests/all.tcl
+++ b/tests/all.tcl
@@ -7,7 +7,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 # 
-# RCS: @(#) $Id: all.tcl,v 1.1.2.4 1999/03/23 20:06:08 hershey Exp $
+# RCS: @(#) $Id: all.tcl,v 1.1.2.5 1999/03/24 02:48:54 hershey Exp $
 
 if {[lsearch ::tcltest [namespace children]] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -15,7 +15,7 @@ if {[lsearch ::tcltest [namespace children]] == -1} {
 set ::tcltest::testSingleFile false
 
 puts stdout "Tcl $tcl_patchLevel tests running in interp:  [info nameofexecutable]"
-puts stdout "Tests running in working dir:  $::tcltest::tmpDir"
+puts stdout "Tests running in working dir:  $::tcltest::workingDir"
 if {[llength $::tcltest::skippingTests] > 0} {
     puts stdout "Skipping tests that match:  $::tcltest::skippingTests"
 }
@@ -73,3 +73,4 @@ return
 
 
 
+
diff --git a/tests/append.test b/tests/append.test
index 8d56735..37d893e 100644
--- a/tests/append.test
+++ b/tests/append.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: append.test,v 1.1.2.4 1999/03/23 20:06:08 hershey Exp $
+# RCS: @(#) $Id: append.test,v 1.1.2.5 1999/03/24 02:48:55 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -191,3 +191,4 @@ return
 
 
 
+
diff --git a/tests/assocd.test b/tests/assocd.test
index 911350e..9b9cac5 100644
--- a/tests/assocd.test
+++ b/tests/assocd.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: assocd.test,v 1.1.2.4 1999/03/23 20:06:08 hershey Exp $
+# RCS: @(#) $Id: assocd.test,v 1.1.2.5 1999/03/24 02:48:55 hershey Exp $
 
 if {[string compare testsetassocdata [info commands testsetassocdata]] != 0} {
     puts "This application hasn't been compiled with the tests for assocData,"
@@ -73,3 +73,4 @@ return
 
 
 
+
diff --git a/tests/async.test b/tests/async.test
index b3ada58..7c0193f 100644
--- a/tests/async.test
+++ b/tests/async.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: async.test,v 1.1.2.4 1999/03/23 20:06:09 hershey Exp $
+# RCS: @(#) $Id: async.test,v 1.1.2.5 1999/03/24 02:48:56 hershey Exp $
 
 if {[info commands testasync] == {}} {
     puts "This application hasn't been compiled with the \"testasync\""
@@ -146,3 +146,4 @@ return
 
 
 
+
diff --git a/tests/autoMkindex.tcl b/tests/autoMkindex.tcl
index 98e8275..547eb8f 100644
--- a/tests/autoMkindex.tcl
+++ b/tests/autoMkindex.tcl
@@ -60,3 +60,4 @@ namespace eval buried {
 
 
 
+
diff --git a/tests/autoMkindex.test b/tests/autoMkindex.test
index e04063b..b48e88d 100644
--- a/tests/autoMkindex.test
+++ b/tests/autoMkindex.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.
 #
-# RCS: @(#) $Id: autoMkindex.test,v 1.1.2.4 1999/03/23 20:06:10 hershey Exp $
+# RCS: @(#) $Id: autoMkindex.test,v 1.1.2.5 1999/03/24 02:48:57 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -17,7 +17,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
 
 # temporarily copy the autoMkindex.tcl file from testsDir to tmpDir
 set origMkindexFile [file join $::tcltest::testsDir autoMkindex.tcl]
-set newMkindexFile [file join $::tcltest::tmpDir autoMkindex.tcl]
+set newMkindexFile [file join $::tcltest::workingDir autoMkindex.tcl]
 if {![catch {file copy $origMkindexFile $newMkindexFile}]} {
     set removeAutoMkindex 1
 }
@@ -81,3 +81,4 @@ catch {file delete -force tclIndex}
 
 
 
+
diff --git a/tests/basic.test b/tests/basic.test
index bf45f86..468a7f5 100644
--- a/tests/basic.test
+++ b/tests/basic.test
@@ -15,7 +15,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: basic.test,v 1.1.2.4 1999/03/23 20:06:10 hershey Exp $
+# RCS: @(#) $Id: basic.test,v 1.1.2.5 1999/03/24 02:48:57 hershey Exp $
 #
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -542,3 +542,4 @@ return
 
 
 
+
diff --git a/tests/binary.test b/tests/binary.test
index b783fdc..b78784f 100644
--- a/tests/binary.test
+++ b/tests/binary.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.
 #
-# RCS: @(#) $Id: binary.test,v 1.1.2.4 1999/03/23 20:06:10 hershey Exp $
+# RCS: @(#) $Id: binary.test,v 1.1.2.5 1999/03/24 02:48:57 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -1459,3 +1459,4 @@ return
 
 
 
+
diff --git a/tests/case.test b/tests/case.test
index 89a1a94..a6132f0 100644
--- a/tests/case.test
+++ b/tests/case.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: case.test,v 1.1.2.4 1999/03/23 20:06:11 hershey Exp $
+# RCS: @(#) $Id: case.test,v 1.1.2.5 1999/03/24 02:48:58 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -99,3 +99,4 @@ return
 
 
 
+
diff --git a/tests/clock.test b/tests/clock.test
index 826803d..9144528 100644
--- a/tests/clock.test
+++ b/tests/clock.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.
 #
-# RCS: @(#) $Id: clock.test,v 1.1.2.4 1999/03/23 20:06:11 hershey Exp $
+# RCS: @(#) $Id: clock.test,v 1.1.2.5 1999/03/24 02:48:58 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -222,3 +222,4 @@ return
 
 
 
+
diff --git a/tests/cmdAH.test b/tests/cmdAH.test
index 82f20a6..f36db91 100644
--- a/tests/cmdAH.test
+++ b/tests/cmdAH.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.
 #
-# RCS: @(#) $Id: cmdAH.test,v 1.1.2.8 1999/03/23 20:06:12 hershey Exp $
+# RCS: @(#) $Id: cmdAH.test,v 1.1.2.9 1999/03/24 02:48:59 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -1481,3 +1481,4 @@ return
 
 
 
+
diff --git a/tests/cmdIL.test b/tests/cmdIL.test
index 14f7fc0..cb26f34 100644
--- a/tests/cmdIL.test
+++ b/tests/cmdIL.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.
 #
-# RCS: @(#) $Id: cmdIL.test,v 1.1.2.5 1999/03/23 20:06:13 hershey Exp $
+# RCS: @(#) $Id: cmdIL.test,v 1.1.2.6 1999/03/24 02:48:59 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -322,3 +322,4 @@ return
 
 
 
+
diff --git a/tests/cmdInfo.test b/tests/cmdInfo.test
index 8bd1c6e..d611e97 100644
--- a/tests/cmdInfo.test
+++ b/tests/cmdInfo.test
@@ -13,7 +13,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: cmdInfo.test,v 1.1.2.4 1999/03/23 20:06:13 hershey Exp $
+# RCS: @(#) $Id: cmdInfo.test,v 1.1.2.5 1999/03/24 02:49:00 hershey Exp $
 
 if {[info commands testcmdinfo] == {}} {
     puts "This application hasn't been compiled with the \"testcmdinfo\""
@@ -112,3 +112,4 @@ return
 
 
 
+
diff --git a/tests/cmdMZ.test b/tests/cmdMZ.test
index 3c9de10..a8348fc 100644
--- a/tests/cmdMZ.test
+++ b/tests/cmdMZ.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: cmdMZ.test,v 1.1.2.4 1999/03/23 20:06:14 hershey Exp $
+# RCS: @(#) $Id: cmdMZ.test,v 1.1.2.5 1999/03/24 02:49:00 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -578,3 +578,4 @@ return
 
 
 
+
diff --git a/tests/compExpr-old.test b/tests/compExpr-old.test
index fea07ce..0c105dc 100644
--- a/tests/compExpr-old.test
+++ b/tests/compExpr-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.
 #
-# RCS: @(#) $Id: compExpr-old.test,v 1.1.2.3 1999/03/23 20:06:14 hershey Exp $
+# RCS: @(#) $Id: compExpr-old.test,v 1.1.2.4 1999/03/24 02:49:01 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -684,3 +684,4 @@ return
 
 
 
+
diff --git a/tests/compExpr.test b/tests/compExpr.test
index 48473c6..1a972f3 100644
--- a/tests/compExpr.test
+++ b/tests/compExpr.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.
 #
-# RCS: @(#) $Id: compExpr.test,v 1.1.2.3 1999/03/23 20:06:15 hershey Exp $
+# RCS: @(#) $Id: compExpr.test,v 1.1.2.4 1999/03/24 02:49:01 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -337,3 +337,4 @@ return
 
 
 
+
diff --git a/tests/compile.test b/tests/compile.test
index 42faefb..7b4d61b 100644
--- a/tests/compile.test
+++ b/tests/compile.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.
 #
-# RCS: @(#) $Id: compile.test,v 1.1.2.5 1999/03/23 20:06:15 hershey Exp $
+# RCS: @(#) $Id: compile.test,v 1.1.2.6 1999/03/24 02:49:02 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -211,3 +211,4 @@ return
 
 
 
+
diff --git a/tests/concat.test b/tests/concat.test
index 18b3862..773f5b0 100644
--- a/tests/concat.test
+++ b/tests/concat.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: concat.test,v 1.1.2.4 1999/03/23 20:06:16 hershey Exp $
+# RCS: @(#) $Id: concat.test,v 1.1.2.5 1999/03/24 02:49:02 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -62,3 +62,4 @@ return
 
 
 
+
diff --git a/tests/dcall.test b/tests/dcall.test
index 8da4895..b555ea4 100644
--- a/tests/dcall.test
+++ b/tests/dcall.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: dcall.test,v 1.1.2.4 1999/03/23 20:06:16 hershey Exp $
+# RCS: @(#) $Id: dcall.test,v 1.1.2.5 1999/03/24 02:49:03 hershey Exp $
 
 if {[info commands testdcall] == {}} {
     puts "This application hasn't been compiled with the \"testdcall\""
@@ -56,3 +56,4 @@ return
 
 
 
+
diff --git a/tests/defs.tcl b/tests/defs.tcl
index d924214..757d430 100644
--- a/tests/defs.tcl
+++ b/tests/defs.tcl
@@ -11,7 +11,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 # 
-# RCS: @(#) $Id: defs.tcl,v 1.1.2.3 1999/03/23 20:06:16 hershey Exp $
+# RCS: @(#) $Id: defs.tcl,v 1.1.2.4 1999/03/24 02:49:03 hershey Exp $
 
 # Initialize wish shell
 if {[info exists tk_version]} {
@@ -22,12 +22,11 @@ if {[info exists tk_version]} {
     set auto_path [list [info library]]
 }
 
-# create the "test" namespace for all testing variables and procedures
+# create the "tcltest" namespace for all testing variables and procedures
 namespace eval tcltest {
     set procList [list test cleanupTests dotests saveState restoreState \
 	    normalizeMsg makeFile removeFile makeDirectory removeDirectory \
-	    viewFile safeFetch bytestring set_iso8859_1_locale restore_locale \
-	    setTmpDir]
+	    viewFile bytestring set_iso8859_1_locale restore_locale]
     if {[info exists tk_version]} {
 	lappend procList setupbg dobg bgReady cleanupbg fixfocus
     }
@@ -67,10 +66,10 @@ namespace eval tcltest {
     variable failFiles {}
 
     # Tests should remove all files they create.  The test suite will
-    # check tmpDir for files created by the tests.  ::tcltest::filesMade
-    # keeps track of such files created using the ::tcltest::makeFile and
-    # ::tcltest::makeDirectory procedures.  ::tcltest::filesExisted stores
-    # the names of pre-existing files.
+    # check the current working dir for files created by the tests.
+    # ::tcltest::filesMade keeps track of such files created using the
+    # ::tcltest::makeFile and ::tcltest::makeDirectory procedures.
+    # ::tcltest::filesExisted stores the names of pre-existing files.
 
     variable filesMade {}
     variable filesExisted {}
@@ -127,9 +126,12 @@ proc ::tcltest::initConfig {} {
 	}
     }
 
-    set ::tcltest::testConfig(unixOnly) [expr {$tcl_platform(platform) == "unix"}]
-    set ::tcltest::testConfig(macOnly) [expr {$tcl_platform(platform) == "macintosh"}]
-    set ::tcltest::testConfig(pcOnly) [expr {$tcl_platform(platform) == "windows"}]
+    set ::tcltest::testConfig(unixOnly) \
+	    [expr {$tcl_platform(platform) == "unix"}]
+    set ::tcltest::testConfig(macOnly) \
+	    [expr {$tcl_platform(platform) == "macintosh"}]
+    set ::tcltest::testConfig(pcOnly) \
+	    [expr {$tcl_platform(platform) == "windows"}]
 
     set ::tcltest::testConfig(unix) $::tcltest::testConfig(unixOnly)
     set ::tcltest::testConfig(mac) $::tcltest::testConfig(macOnly)
@@ -305,49 +307,9 @@ proc ::tcltest::initConfig {} {
 ::tcltest::initConfig
 
 
-# ::tcltest::setTmpDir --
-#
-#	Set the ::tcltest::tmpDir to the specified value.  If the path
-#	is relative, make it absolute.  If the file exists but is not
-#	a dir, then return an error.  If the dir does not already
-#	exist, create it.  If you cannot create it, then return an error.
-#
-# Arguments:
-#	value	the new value of ::tcltest::tmpDir
-#
-# Results:
-#	::tcltest::tmpDir is set to <value> and created if it didn't already
-#	exist.  The working dir is changed to ::tcltest::tmpDir.
-
-proc ::tcltest::setTmpDir {value} {
-
-    set ::tcltest::tmpDir $value
-
-    if {[string compare [file pathtype $::tcltest::tmpDir] absolute] != 0} {
-	set ::tcltest::tmpDir [file join [pwd] $::tcltest::tmpDir]
-    }
-    if {[file exists $::tcltest::tmpDir]} {
-	if {![file isdir $::tcltest::tmpDir]} {
-	    puts stderr "Error:  bad argument \"$value\" to -tmpdir:"
-	    puts stderr "            \"$::tcltest::tmpDir\""
-	    puts stderr "        is not a directory"
-	    exit
-	}
-    } else {
-	file mkdir $::tcltest::tmpDir
-    }
-
-    # change the working dir to tmpDir and add the existing files in
-    # tmpDir to the filesExisted list.
-    cd $::tcltest::tmpDir
-    foreach file [glob -nocomplain [file join [pwd] *]] {
-	lappend ::tcltest::filesExisted $file
-    }
-}
-
 # ::tcltest::processCmdLineArgs --
 #
-#	Use command line args to set the tmpDir, verbose, skippingTests, and
+#	Use command line args to set the verbose, skippingTests, and
 #	matchingTests variables.
 #
 # Arguments:
@@ -373,26 +335,22 @@ proc ::tcltest::processCmdLineArgs {} {
 	exit
     }
     
-    # Allow for 1-char abbreviations, where applicable (e.g., -tmpdir == -t).
+    # Allow for 1-char abbreviations, where applicable (e.g., -match == -m).
     # Note that -verbose cannot be abbreviated to -v in wish because it conflicts
     # with the wish option -visual.
-    foreach arg {-verbose -match -skip -constraints -tmpdir} {
+    foreach arg {-verbose -match -skip -constraints} {
 	set abbrev [string range $arg 0 1]
 	if {([info exists flag($abbrev)]) && \
-		([lsearch -exact $flagArray $arg] < [lsearch -exact $flagArray $abbrev])} {
+		([lsearch -exact $flagArray $arg] < \
+		[lsearch -exact $flagArray $abbrev])} {
 	    set flag($arg) $flag($abbrev)
 	}
     }
 
-    # Set ::tcltest::tmpDir to the arg of the -tmpdir flag, if given.
-    # ::tcltest::tmpDir defaults to [pwd].
-    # Save the names of files that already exist in ::tcltest::tmpDir.
-    if {[info exists flag(-tmpdir)]} {
-	::tcltest::setTmpDir $flag(-tmpdir)
-    } else {
-	set ::tcltest::tmpDir [pwd]
-    }
-    foreach file [glob -nocomplain [file join $::tcltest::tmpDir *]] {
+    # Set ::tcltest::workingDir to [pwd].
+    # Save the names of files that already exist in ::tcltest::workingDir.
+    set ::tcltest::workingDir [pwd]
+    foreach file [glob -nocomplain [file join $::tcltest::workingDir *]] {
 	lappend ::tcltest::filesExisted [file tail $file]
     }
 
@@ -478,9 +436,11 @@ proc ::tcltest::cleanupTests {{calledFromAllFile 0}} {
 	    }
 	}
 
-	# report the names of files in ::tcltest::tmpDir that were not pre-existing.
+	# report the names of files in ::tcltest::workingDir that were not
+	# pre-existing.
+
 	set currentFiles {}
-	foreach file [glob -nocomplain [file join $::tcltest::tmpDir *]] {
+	foreach file [glob -nocomplain [file join $::tcltest::workingDir *]] {
 	    lappend currentFiles [file tail $file]
 	}
 	set filesNew {}
@@ -585,7 +545,8 @@ proc ::tcltest::test {name description script expectedAnswer args} {
 	    # something like {a || b} should be turned into 
 	    # $::tcltest::testConfig(a) || $::tcltest::testConfig(b).
 
- 	    regsub -all {[.a-zA-Z0-9]+} $constraints {$::tcltest::testConfig(&)} c
+ 	    regsub -all {[.a-zA-Z0-9]+} $constraints \
+		    {$::tcltest::testConfig(&)} c
 	    catch {set doTest [eval expr $c]}
 	} else {
 	    # just simple constraints such as {unixOnly fonts}.
@@ -659,6 +620,21 @@ proc ::tcltest::test {name description script expectedAnswer args} {
     }
 }
 
+# ::tcltest::dotests --
+#
+#	takes two arguments--the name of the test file (such
+#	as "parse.test"), and a pattern selecting the tests you want to
+#	execute.  It sets ::tcltest::matching to the second argument, calls
+#	"source" on the file specified in the first argument, and restores
+#	::tcltest::matching to its pre-call value at the end.
+#
+# Arguments:
+#	file    name of tests file to source
+#	args    pattern selecting the tests you want to execute
+#
+# Results:
+#	none
+
 proc ::tcltest::dotests {file args} {
     set savedTests $::tcltest::matchingTests
     set ::tcltest::matchingTests $args
@@ -794,11 +770,12 @@ proc ::tcltest::bytestring {string} {
 
 # Locate tcltest executable
 
-set tcltest [info nameofexecutable]
+if {![info exists tk_version]} {
+    set tcltest [info nameofexecutable]
 
-if {$tcltest == "{}"} {
-    set tcltest {}
-    puts stdout "Unable to find tcltest executable, multiple process tests will fail."
+    if {$tcltest == "{}"} {
+	set tcltest {}
+    }
 }
 
 set ::tcltest::testConfig(stdio) 0
@@ -809,10 +786,12 @@ catch {
 	exit
     }
     close $f
+
     # The following 2 lines cannot be run on Windows in Tk8.1b2
     # This bug is logged as a pipe bug (bugID 1495).
 
-    if {($tcl_platform(os) != "windows") || (![info exists tk_version])} {
+    if {($tcl_platform(platform) != "windows") || \
+	    (![info exists tk_version])} {
 	set f [open "|[list $tcltest tmp]" r]
 	close $f
     }
@@ -820,8 +799,11 @@ catch {
 }
 catch {file delete -force tmp}
 
+# Deliberately call the socket with the wrong number of arguments.  The error
+# message you get will indicate whether sockets are available on this system.
 catch {socket} msg
-set ::tcltest::testConfig(socket) [expr {$msg != "sockets are not available on this system"}]
+set ::tcltest::testConfig(socket) \
+	[expr {$msg != "sockets are not available on this system"}]
 
 #
 # Internationalization / ISO support procs     -- dl
@@ -893,7 +875,7 @@ if {[info exists tk_version]} {
     # The following code can be used to perform tests involving a second
     # process running in the background.
     
-    # Locate tktest executable
+    # Locate the tktest executable
 
     set ::tcltest::tktest [info nameofexecutable]
     if {$::tcltest::tktest == "{}"} {
@@ -910,16 +892,23 @@ if {[info exists tk_version]} {
 	if {[info exists ::tcltest::fd] && ($::tcltest::fd != "")} {
 	    cleanupbg
 	}
-	set ::tcltest::fd [open "|[list $::tcltest::tktest -geometry +0+0 -name tktest] $args" r+]
-	puts $::tcltest::fd "puts foo; flush stdout"
-	flush $::tcltest::fd
-	if {[gets $::tcltest::fd data] < 0} {
-	    error "unexpected EOF from \"$::tcltest::tktest\""
-	}
-	if {[string compare $data foo]} {
-	    error "unexpected output from background process \"$data\""
+	
+	# The following code segment cannot be run on Windows in Tk8.1b2
+	# This bug is logged as a pipe bug (bugID 1495).
+
+	global tcl_platform
+	if {$tcl_platform(platform) != "windows"} {
+	    set ::tcltest::fd [open "|[list $::tcltest::tktest -geometry +0+0 -name tktest] $args" r+]
+	    puts $::tcltest::fd "puts foo; flush stdout"
+	    flush $::tcltest::fd
+	    if {[gets $::tcltest::fd data] < 0} {
+		error "unexpected EOF from \"$::tcltest::tktest\""
+	    }
+	    if {[string compare $data foo]} {
+		error "unexpected output from background process \"$data\""
+	    }
+	    fileevent $::tcltest::fd readable bgReady
 	}
-	fileevent $::tcltest::fd readable bgReady
     }
     
     # Send a command to the background process, catching errors and
@@ -978,12 +967,3 @@ if {[info exists tk_version]} {
 # more than once.
 catch {namespace import ::tcltest::*}
 
-
-
-
-
-
-
-
-
-
diff --git a/tests/dstring.test b/tests/dstring.test
index 303e197..179f8c4 100644
--- a/tests/dstring.test
+++ b/tests/dstring.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: dstring.test,v 1.1.2.4 1999/03/23 20:06:17 hershey Exp $
+# RCS: @(#) $Id: dstring.test,v 1.1.2.5 1999/03/24 02:49:04 hershey Exp $
 
 if {[info commands testdstring] == {}} {
     puts "This application hasn't been compiled with the \"testdstring\""
@@ -263,3 +263,4 @@ return
 
 
 
+
diff --git a/tests/encoding.test b/tests/encoding.test
index 296fe05..2e2e43e 100644
--- a/tests/encoding.test
+++ b/tests/encoding.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.
 #
-# RCS: @(#) $Id: encoding.test,v 1.1.2.5 1999/03/23 20:06:17 hershey Exp $
+# RCS: @(#) $Id: encoding.test,v 1.1.2.6 1999/03/24 02:49:04 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -23,10 +23,16 @@ proc fromutf {args} {
     lappend x "fromutf $args"
 }
 
+# Some tests require the testencoding command
+
+set ::tcltest::testConfig(testencoding) \
+	[expr {[info commands testencoding] != {}}]
+
+
 # TclInitEncodingSubsystem is tested by the rest of this file
 # TclFinalizeEncodingSubsystem is not currently tested
 
-test encoding-1.1 {Tcl_GetEncoding: system encoding} {
+test encoding-1.1 {Tcl_GetEncoding: system encoding} {testencoding} {
     testencoding create foo toutf fromutf
     set old [encoding system]
     encoding system foo
@@ -36,7 +42,7 @@ test encoding-1.1 {Tcl_GetEncoding: system encoding} {
     testencoding delete foo
     set x
 } {{fromutf }}
-test encoding-1.2 {Tcl_GetEncoding: existing encoding} {
+test encoding-1.2 {Tcl_GetEncoding: existing encoding} {testencoding} {
     testencoding create foo toutf fromutf
     set x {}
     encoding convertto foo abcd
@@ -51,7 +57,7 @@ test encoding-1.3 {Tcl_GetEncoding: load encoding} {
 test encoding-2.1 {Tcl_FreeEncoding: refcount == 0} {
     encoding convertto jis0208 \u4e4e
 } {8C}
-test encoding-2.2 {Tcl_FreeEncoding: refcount != 0} {
+test encoding-2.2 {Tcl_FreeEncoding: refcount != 0} {testencoding} {
     set system [encoding system]
     set path [testencoding path]
     encoding system jis0208		;# incr ref count
@@ -80,7 +86,7 @@ test encoding-3.2 {Tcl_GetEncodingName, non-null} {
     set x
 } {jis0208}
 
-test encoding-4.1 {Tcl_GetEncodingNames} {pcOnly} {
+test encoding-4.1 {Tcl_GetEncodingNames} {pcOnly testencoding} {
     file mkdir tmp/encoding
     close [open tmp/encoding/junk.enc w]
     close [open tmp/encoding/junk2.enc w]
@@ -93,7 +99,7 @@ test encoding-4.1 {Tcl_GetEncodingNames} {pcOnly} {
     file delete -force tmp
     set x
 } {junk utf-8 cp1252 junk2 identity unicode iso8859-1}
-test encoding-4.1 {Tcl_GetEncodingNames} {unixOnly} {
+test encoding-4.1 {Tcl_GetEncodingNames} {unixOnly testencoding} {
     file mkdir tmp/encoding
     close [open tmp/encoding/junk.enc w]
     close [open tmp/encoding/junk2.enc w]
@@ -122,7 +128,7 @@ test encoding-5.2 {Tcl_SetSystemEncoding: test ref count} {
     string compare $old [encoding system]
 } {0}
 
-test encoding-6.1 {Tcl_CreateEncoding: new} {
+test encoding-6.1 {Tcl_CreateEncoding: new} {testencoding} {
     testencoding create foo {toutf 1} {fromutf 2}
     set x {}
     encoding convertfrom foo abcd
@@ -130,7 +136,7 @@ test encoding-6.1 {Tcl_CreateEncoding: new} {
     testencoding delete foo
     set x
 } {{toutf 1} {fromutf 2}}
-test encoding-6.2 {Tcl_CreateEncoding: replace encoding} {
+test encoding-6.2 {Tcl_CreateEncoding: replace encoding} {testencoding} {
     testencoding create foo {toutf a} {fromutf b}
     set x {}
     encoding convertfrom foo abcd
@@ -193,7 +199,7 @@ test encoding-10.1 {Tcl_UtfToExternal} {
     set x
 } "ab\x8c\xc1g"
 
-test encoding-11.1 {LoadEncodingFile: unknown encoding} {
+test encoding-11.1 {LoadEncodingFile: unknown encoding} {testencoding} {
     set system [encoding system]
     set path [testencoding path]
     encoding system iso8859-1
@@ -215,7 +221,7 @@ test encoding-11.4 {LoadEncodingFile: multi-byte} {
 test encoding-11.5 {LoadEncodingFile: escape file} {
     encoding convertto iso2022 \u4e4e
 } "\x1b(B\x1b$@8C"
-test encoding-11.6 {LoadEncodingFile: invalid file} {
+test encoding-11.6 {LoadEncodingFile: invalid file} {testencoding} {
     set system [encoding system]
     set path [testencoding path]
     encoding system identity
@@ -311,3 +317,4 @@ return
 
 
 
+
diff --git a/tests/env.test b/tests/env.test
index 2d0af9c..2d1e2a7 100644
--- a/tests/env.test
+++ b/tests/env.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: env.test,v 1.1.2.5 1999/03/23 20:06:18 hershey Exp $
+# RCS: @(#) $Id: env.test,v 1.1.2.6 1999/03/24 02:49:04 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -195,3 +195,4 @@ return
 
 
 
+
diff --git a/tests/error.test b/tests/error.test
index d08b259..2c3df29 100644
--- a/tests/error.test
+++ b/tests/error.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: error.test,v 1.1.2.4 1999/03/23 20:06:18 hershey Exp $
+# RCS: @(#) $Id: error.test,v 1.1.2.5 1999/03/24 02:49:05 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -189,3 +189,4 @@ return
 
 
 
+
diff --git a/tests/eval.test b/tests/eval.test
index c57cd12..1027327 100644
--- a/tests/eval.test
+++ b/tests/eval.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: eval.test,v 1.1.2.4 1999/03/23 20:06:19 hershey Exp $
+# RCS: @(#) $Id: eval.test,v 1.1.2.5 1999/03/24 02:49:05 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -71,3 +71,4 @@ return
 
 
 
+
diff --git a/tests/event.test b/tests/event.test
index c418644..3347611 100644
--- a/tests/event.test
+++ b/tests/event.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.
 #
-# RCS: @(#) $Id: event.test,v 1.1.2.4 1999/03/23 20:06:19 hershey Exp $
+# RCS: @(#) $Id: event.test,v 1.1.2.5 1999/03/24 02:49:06 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -582,3 +582,4 @@ return
 
 
 
+
diff --git a/tests/exec.test b/tests/exec.test
index 40841dc..22efdc9 100644
--- a/tests/exec.test
+++ b/tests/exec.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: exec.test,v 1.1.2.4 1999/03/23 20:06:20 hershey Exp $
+# RCS: @(#) $Id: exec.test,v 1.1.2.5 1999/03/24 02:49:06 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -586,3 +586,4 @@ return
 
 
 
+
diff --git a/tests/execute.test b/tests/execute.test
index 5585cbb..d280068 100644
--- a/tests/execute.test
+++ b/tests/execute.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.
 #
-# RCS: @(#) $Id: execute.test,v 1.1.2.4 1999/03/23 20:06:20 hershey Exp $
+# RCS: @(#) $Id: execute.test,v 1.1.2.5 1999/03/24 02:49:07 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -128,3 +128,4 @@ return
 
 
 
+
diff --git a/tests/expr-old.test b/tests/expr-old.test
index fedf7d7..19d2e43 100644
--- a/tests/expr-old.test
+++ b/tests/expr-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.
 #
-# RCS: @(#) $Id: expr-old.test,v 1.1.2.4 1999/03/23 20:06:21 hershey Exp $
+# RCS: @(#) $Id: expr-old.test,v 1.1.2.5 1999/03/24 02:49:07 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -945,3 +945,4 @@ return
 
 
 
+
diff --git a/tests/expr.test b/tests/expr.test
index 2db0adf..2623a03 100644
--- a/tests/expr.test
+++ b/tests/expr.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.
 #
-# RCS: @(#) $Id: expr.test,v 1.1.2.4 1999/03/23 20:06:21 hershey Exp $
+# RCS: @(#) $Id: expr.test,v 1.1.2.5 1999/03/24 02:49:08 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -682,3 +682,4 @@ return
 
 
 
+
diff --git a/tests/fCmd.test b/tests/fCmd.test
index 9fc48ee..0a6b1b3 100644
--- a/tests/fCmd.test
+++ b/tests/fCmd.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.
 #
-# RCS: @(#) $Id: fCmd.test,v 1.1.2.6 1999/03/23 20:06:22 hershey Exp $
+# RCS: @(#) $Id: fCmd.test,v 1.1.2.7 1999/03/24 02:49:08 hershey Exp $
 #
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -2158,3 +2158,4 @@ return
 
 
 
+
diff --git a/tests/fileName.test b/tests/fileName.test
index 44db32c..097356d 100644
--- a/tests/fileName.test
+++ b/tests/fileName.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.
 #
-# RCS: @(#) $Id: fileName.test,v 1.1.2.4 1999/03/23 20:06:22 hershey Exp $
+# RCS: @(#) $Id: fileName.test,v 1.1.2.5 1999/03/24 02:49:09 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -1415,3 +1415,4 @@ return
 
 
 
+
diff --git a/tests/for-old.test b/tests/for-old.test
index 66f55c9..cfd4bf1 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.
 #
-# RCS: @(#) $Id: for-old.test,v 1.1.2.4 1999/03/23 20:06:23 hershey Exp $
+# RCS: @(#) $Id: for-old.test,v 1.1.2.5 1999/03/24 02:49:09 hershey Exp $
 
 if {[string compare test [info procs test]] == 1} then {source defs}
 
@@ -79,3 +79,4 @@ return
 
 
 
+
diff --git a/tests/for.test b/tests/for.test
index 3fcec6c..c212d70 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.
 #
-# RCS: @(#) $Id: for.test,v 1.1.2.4 1999/03/23 20:06:24 hershey Exp $
+# RCS: @(#) $Id: for.test,v 1.1.2.5 1999/03/24 02:49:10 hershey Exp $
 
 if {[string compare test [info procs test]] == 1} then {source defs}
 
@@ -727,3 +727,4 @@ return
 
 
 
+
diff --git a/tests/foreach.test b/tests/foreach.test
index e383dc7..5380fcf 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.
 #
-# RCS: @(#) $Id: foreach.test,v 1.1.2.4 1999/03/23 20:06:25 hershey Exp $
+# RCS: @(#) $Id: foreach.test,v 1.1.2.5 1999/03/24 02:49:11 hershey Exp $
 
 if {[string compare test [info procs test]] == 1} then {source defs}
 
@@ -224,3 +224,4 @@ return
 
 
 
+
diff --git a/tests/format.test b/tests/format.test
index 8677706..98f62d8 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.
 #
-# RCS: @(#) $Id: format.test,v 1.1.2.5 1999/03/23 20:06:25 hershey Exp $
+# RCS: @(#) $Id: format.test,v 1.1.2.6 1999/03/24 02:49:11 hershey Exp $
 
 if {[info commands test] != "test"} {
     source defs
@@ -496,3 +496,4 @@ return
 
 
 
+
diff --git a/tests/get.test b/tests/get.test
index f89440a..a47707c 100644
--- a/tests/get.test
+++ b/tests/get.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.
 #
-# RCS: @(#) $Id: get.test,v 1.1.2.4 1999/03/23 20:06:26 hershey Exp $
+# RCS: @(#) $Id: get.test,v 1.1.2.5 1999/03/24 02:49:12 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -107,3 +107,4 @@ return
 
 
 
+
diff --git a/tests/history.test b/tests/history.test
index b51eb2b..1f8bdc3 100644
--- a/tests/history.test
+++ b/tests/history.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: history.test,v 1.1.2.4 1999/03/23 20:06:26 hershey Exp $
+# RCS: @(#) $Id: history.test,v 1.1.2.5 1999/03/24 02:49:12 hershey Exp $
   
 if {[catch {history}]} {
     puts stdout "This version of Tcl was built without the history command;\n"
@@ -226,3 +226,4 @@ return
 
 
 
+
diff --git a/tests/http.test b/tests/http.test
index 78e2dfd..17e58b7 100644
--- a/tests/http.test
+++ b/tests/http.test
@@ -12,7 +12,7 @@
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
 #
-# RCS: @(#) $Id: http.test,v 1.1.2.5 1999/03/23 20:06:27 hershey Exp $
+# RCS: @(#) $Id: http.test,v 1.1.2.6 1999/03/24 02:49:13 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -311,3 +311,4 @@ return
 
 
 
+
diff --git a/tests/httpold.test b/tests/httpold.test
index b9d40be..6a45a41 100644
--- a/tests/httpold.test
+++ b/tests/httpold.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: httpold.test,v 1.1.2.4 1999/03/23 20:06:27 hershey Exp $
+# RCS: @(#) $Id: httpold.test,v 1.1.2.5 1999/03/24 02:49:13 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -433,3 +433,4 @@ return
 
 
 
+
diff --git a/tests/if-old.test b/tests/if-old.test
index ab4ca76..709e249 100644
--- a/tests/if-old.test
+++ b/tests/if-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.
 #
-# RCS: @(#) $Id: if-old.test,v 1.1.2.4 1999/03/23 20:06:28 hershey Exp $
+# RCS: @(#) $Id: if-old.test,v 1.1.2.5 1999/03/24 02:49:14 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -172,3 +172,4 @@ return
 
 
 
+
diff --git a/tests/if.test b/tests/if.test
index 8cd528f..7c6ee16 100644
--- a/tests/if.test
+++ b/tests/if.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.
 #
-# RCS: @(#) $Id: if.test,v 1.1.2.5 1999/03/23 20:06:28 hershey Exp $
+# RCS: @(#) $Id: if.test,v 1.1.2.6 1999/03/24 02:49:14 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -1023,3 +1023,4 @@ return
 
 
 
+
diff --git a/tests/incr-old.test b/tests/incr-old.test
index 005f5fe..df1f16b 100644
--- a/tests/incr-old.test
+++ b/tests/incr-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.
 #
-# RCS: @(#) $Id: incr-old.test,v 1.1.2.4 1999/03/23 20:06:29 hershey Exp $
+# RCS: @(#) $Id: incr-old.test,v 1.1.2.5 1999/03/24 02:49:15 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -103,3 +103,4 @@ return
 
 
 
+
diff --git a/tests/incr.test b/tests/incr.test
index 6110e26..18d4ce2 100644
--- a/tests/incr.test
+++ b/tests/incr.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.
 #
-# RCS: @(#) $Id: incr.test,v 1.1.2.4 1999/03/23 20:06:29 hershey Exp $
+# RCS: @(#) $Id: incr.test,v 1.1.2.5 1999/03/24 02:49:15 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -510,3 +510,4 @@ return
 
 
 
+
diff --git a/tests/indexObj.test b/tests/indexObj.test
index ce786ef..ebdea75 100644
--- a/tests/indexObj.test
+++ b/tests/indexObj.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.
 #
-# RCS: @(#) $Id: indexObj.test,v 1.1.2.4 1999/03/23 20:06:30 hershey Exp $
+# RCS: @(#) $Id: indexObj.test,v 1.1.2.5 1999/03/24 02:49:16 hershey Exp $
 
 if {[info commands testindexobj] == {}} {
     puts "This application hasn't been compiled with the \"testindexobj\""
@@ -82,3 +82,4 @@ return
 
 
 
+
diff --git a/tests/info.test b/tests/info.test
index e485626..3dff88e 100644
--- a/tests/info.test
+++ b/tests/info.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: info.test,v 1.1.2.5 1999/03/24 01:40:27 surles Exp $
+# RCS: @(#) $Id: info.test,v 1.1.2.6 1999/03/24 02:49:16 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -514,3 +514,4 @@ return
 
 
 
+
diff --git a/tests/init.test b/tests/init.test
index 5a32446..e793145 100644
--- a/tests/init.test
+++ b/tests/init.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.
 #
-# RCS: @(#) $Id: init.test,v 1.1.2.4 1999/03/23 20:06:30 hershey Exp $
+# RCS: @(#) $Id: init.test,v 1.1.2.5 1999/03/24 02:49:17 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -162,3 +162,4 @@ return
 
 
 
+
diff --git a/tests/interp.test b/tests/interp.test
index d60f2a2..e505385 100644
--- a/tests/interp.test
+++ b/tests/interp.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.
 #
-# RCS: @(#) $Id: interp.test,v 1.1.2.7 1999/03/23 20:06:31 hershey Exp $
+# RCS: @(#) $Id: interp.test,v 1.1.2.8 1999/03/24 02:49:17 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -2346,3 +2346,4 @@ return
 
 
 
+
diff --git a/tests/io.test b/tests/io.test
index 4435cbd..8737486 100644
--- a/tests/io.test
+++ b/tests/io.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.
 #
-# RCS: @(#) $Id: io.test,v 1.1.2.9 1999/03/23 20:06:32 hershey Exp $
+# RCS: @(#) $Id: io.test,v 1.1.2.10 1999/03/24 02:49:18 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -6803,3 +6803,4 @@ return
 
 
 
+
diff --git a/tests/ioCmd.test b/tests/ioCmd.test
index c1b1e9ac..cc62e36 100644
--- a/tests/ioCmd.test
+++ b/tests/ioCmd.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.
 #
-# RCS: @(#) $Id: ioCmd.test,v 1.1.2.5 1999/03/23 20:06:33 hershey Exp $
+# RCS: @(#) $Id: ioCmd.test,v 1.1.2.6 1999/03/24 02:49:19 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -525,3 +525,4 @@ return
 
 
 
+
diff --git a/tests/ioUtil.test b/tests/ioUtil.test
index 2257b8d..edec883 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. 
 # 
-# RCS: @(#) $Id: ioUtil.test,v 1.1.2.5 1999/03/23 20:06:33 hershey Exp $
+# RCS: @(#) $Id: ioUtil.test,v 1.1.2.6 1999/03/24 02:49:19 hershey Exp $
  
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -315,3 +315,4 @@ return
 
 
 
+
diff --git a/tests/join.test b/tests/join.test
index ac15518..2600177 100644
--- a/tests/join.test
+++ b/tests/join.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: join.test,v 1.1.2.4 1999/03/23 20:06:34 hershey Exp $
+# RCS: @(#) $Id: join.test,v 1.1.2.5 1999/03/24 02:49:20 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -62,3 +62,4 @@ return
 
 
 
+
diff --git a/tests/lindex.test b/tests/lindex.test
index 4bc916b..06ec94b 100644
--- a/tests/lindex.test
+++ b/tests/lindex.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: lindex.test,v 1.1.2.4 1999/03/23 20:06:34 hershey Exp $
+# RCS: @(#) $Id: lindex.test,v 1.1.2.5 1999/03/24 02:49:20 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -90,3 +90,4 @@ return
 
 
 
+
diff --git a/tests/link.test b/tests/link.test
index a664721..0c76822 100644
--- a/tests/link.test
+++ b/tests/link.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: link.test,v 1.1.2.4 1999/03/23 20:06:35 hershey Exp $
+# RCS: @(#) $Id: link.test,v 1.1.2.5 1999/03/24 02:49:21 hershey Exp $
 
 if {[info commands testlink] == {}} {
     puts "This application hasn't been compiled with the \"testlink\""
@@ -251,3 +251,4 @@ return
 
 
 
+
diff --git a/tests/linsert.test b/tests/linsert.test
index b293f91..980330b 100644
--- a/tests/linsert.test
+++ b/tests/linsert.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: linsert.test,v 1.1.2.4 1999/03/23 20:06:35 hershey Exp $
+# RCS: @(#) $Id: linsert.test,v 1.1.2.5 1999/03/24 02:49:22 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -120,3 +120,4 @@ return
 
 
 
+
diff --git a/tests/list.test b/tests/list.test
index 43906fa..a4a15c6 100644
--- a/tests/list.test
+++ b/tests/list.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: list.test,v 1.1.2.4 1999/03/23 20:06:36 hershey Exp $
+# RCS: @(#) $Id: list.test,v 1.1.2.5 1999/03/24 02:49:22 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -123,3 +123,4 @@ return
 
 
 
+
diff --git a/tests/listObj.test b/tests/listObj.test
index add4f39..ed860a2 100644
--- a/tests/listObj.test
+++ b/tests/listObj.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: listObj.test,v 1.1.2.4 1999/03/23 20:06:36 hershey Exp $
+# RCS: @(#) $Id: listObj.test,v 1.1.2.5 1999/03/24 02:49:23 hershey Exp $
 
 if {[info commands testobj] == {}} {
     puts "This application hasn't been compiled with the \"testobj\""
@@ -195,3 +195,4 @@ return
 
 
 
+
diff --git a/tests/llength.test b/tests/llength.test
index c4d1c1c..8c809dd 100644
--- a/tests/llength.test
+++ b/tests/llength.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: llength.test,v 1.1.2.4 1999/03/23 20:06:37 hershey Exp $
+# RCS: @(#) $Id: llength.test,v 1.1.2.5 1999/03/24 02:49:23 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -51,3 +51,4 @@ return
 
 
 
+
diff --git a/tests/load.test b/tests/load.test
index bc087fc..192a486 100644
--- a/tests/load.test
+++ b/tests/load.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.
 #
-# RCS: @(#) $Id: load.test,v 1.1.2.5 1999/03/23 20:06:38 hershey Exp $
+# RCS: @(#) $Id: load.test,v 1.1.2.6 1999/03/24 02:49:24 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -180,3 +180,4 @@ return
 
 
 
+
diff --git a/tests/lrange.test b/tests/lrange.test
index 8c9235d..59bab19 100644
--- a/tests/lrange.test
+++ b/tests/lrange.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: lrange.test,v 1.1.2.4 1999/03/23 20:06:39 hershey Exp $
+# RCS: @(#) $Id: lrange.test,v 1.1.2.5 1999/03/24 02:49:25 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -99,3 +99,4 @@ return
 
 
 
+
diff --git a/tests/lreplace.test b/tests/lreplace.test
index b75b624..2b57f3a 100644
--- a/tests/lreplace.test
+++ b/tests/lreplace.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: lreplace.test,v 1.1.2.4 1999/03/23 20:06:39 hershey Exp $
+# RCS: @(#) $Id: lreplace.test,v 1.1.2.5 1999/03/24 02:49:25 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -146,3 +146,4 @@ return
 
 
 
+
diff --git a/tests/lsearch.test b/tests/lsearch.test
index 324d7c7..d8b7f8a 100644
--- a/tests/lsearch.test
+++ b/tests/lsearch.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: lsearch.test,v 1.1.2.5 1999/03/23 20:06:40 hershey Exp $
+# RCS: @(#) $Id: lsearch.test,v 1.1.2.6 1999/03/24 02:49:26 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -102,3 +102,4 @@ return
 
 
 
+
diff --git a/tests/macFCmd.test b/tests/macFCmd.test
index a0355ea..54499ad 100644
--- a/tests/macFCmd.test
+++ b/tests/macFCmd.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.
 #
-# RCS: @(#) $Id: macFCmd.test,v 1.1.2.4 1999/03/23 20:06:40 hershey Exp $
+# RCS: @(#) $Id: macFCmd.test,v 1.1.2.5 1999/03/24 02:49:26 hershey Exp $
 #
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -205,3 +205,4 @@ return
 
 
 
+
diff --git a/tests/misc.test b/tests/misc.test
index 002d1e4..d5968b3 100644
--- a/tests/misc.test
+++ b/tests/misc.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.
 #
-# RCS: @(#) $Id: misc.test,v 1.1.2.4 1999/03/23 20:06:40 hershey Exp $
+# RCS: @(#) $Id: misc.test,v 1.1.2.5 1999/03/24 02:49:26 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -72,3 +72,4 @@ return
 
 
 
+
diff --git a/tests/msgcat.test b/tests/msgcat.test
index 3588e3a..a13036a 100644
--- a/tests/msgcat.test
+++ b/tests/msgcat.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.
 #
-# RCS: @(#) $Id: msgcat.test,v 1.1.2.5 1999/03/23 20:06:41 hershey Exp $
+# RCS: @(#) $Id: msgcat.test,v 1.1.2.6 1999/03/24 02:49:27 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -315,3 +315,4 @@ return
 
 
 
+
diff --git a/tests/namespace-old.test b/tests/namespace-old.test
index af2e5f1..4973ec5 100644
--- a/tests/namespace-old.test
+++ b/tests/namespace-old.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.
 #
-# RCS: @(#) $Id: namespace-old.test,v 1.1.2.4 1999/03/23 20:06:41 hershey Exp $
+# RCS: @(#) $Id: namespace-old.test,v 1.1.2.5 1999/03/24 02:49:27 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -860,3 +860,4 @@ return
 
 
 
+
diff --git a/tests/namespace.test b/tests/namespace.test
index 3695a8b..57db768 100644
--- a/tests/namespace.test
+++ b/tests/namespace.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: namespace.test,v 1.1.2.4 1999/03/23 20:06:42 hershey Exp $
+# RCS: @(#) $Id: namespace.test,v 1.1.2.5 1999/03/24 02:49:28 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -1112,3 +1112,4 @@ return
 
 
 
+
diff --git a/tests/obj.test b/tests/obj.test
index 15f705e..a7e32b7 100644
--- a/tests/obj.test
+++ b/tests/obj.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: obj.test,v 1.1.2.4 1999/03/23 20:06:42 hershey Exp $
+# RCS: @(#) $Id: obj.test,v 1.1.2.5 1999/03/24 02:49:28 hershey Exp $
 
 if {[info commands testobj] == {}} {
     puts "This application hasn't been compiled with the \"testobj\""
@@ -542,3 +542,4 @@ return
 
 
 
+
diff --git a/tests/opt.test b/tests/opt.test
index c32fdc9..c0ff7a0 100644
--- a/tests/opt.test
+++ b/tests/opt.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: opt.test,v 1.1.2.4 1999/03/23 20:06:43 hershey Exp $
+# RCS: @(#) $Id: opt.test,v 1.1.2.5 1999/03/24 02:49:29 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -287,3 +287,4 @@ return
 
 
 
+
diff --git a/tests/osa.test b/tests/osa.test
index 42a58e9..80d78ca 100644
--- a/tests/osa.test
+++ b/tests/osa.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.
 #
-# RCS: @(#) $Id: osa.test,v 1.1.2.4 1999/03/23 20:06:44 hershey Exp $
+# RCS: @(#) $Id: osa.test,v 1.1.2.5 1999/03/24 02:49:30 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -44,3 +44,4 @@ return
 
 
 
+
diff --git a/tests/parse.test b/tests/parse.test
index 865ffb8..0c41b97 100644
--- a/tests/parse.test
+++ b/tests/parse.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.
 #
-# RCS: @(#) $Id: parse.test,v 1.1.2.9 1999/03/23 20:06:44 hershey Exp $
+# RCS: @(#) $Id: parse.test,v 1.1.2.10 1999/03/24 02:49:30 hershey Exp $
 
 if {[info commands testparser] == {}} {
     puts "This application hasn't been compiled with the \"testparser\""
@@ -732,3 +732,4 @@ return
 
 
 
+
diff --git a/tests/parseExpr.test b/tests/parseExpr.test
index a94f088..80a16a5 100644
--- a/tests/parseExpr.test
+++ b/tests/parseExpr.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.
 #
-# RCS: @(#) $Id: parseExpr.test,v 1.1.2.3 1999/03/23 20:06:45 hershey Exp $
+# RCS: @(#) $Id: parseExpr.test,v 1.1.2.4 1999/03/24 02:49:31 hershey Exp $
 
 # Note that the Tcl expression parser (tclParseExpr.c) does not check
 # the semantic validity of the expressions it parses. It does not check,
@@ -633,3 +633,4 @@ return
 
 
 
+
diff --git a/tests/parseOld.test b/tests/parseOld.test
index 554f529..a4b6249 100644
--- a/tests/parseOld.test
+++ b/tests/parseOld.test
@@ -13,7 +13,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: parseOld.test,v 1.1.2.3 1999/03/23 20:06:45 hershey Exp $
+# RCS: @(#) $Id: parseOld.test,v 1.1.2.4 1999/03/24 02:49:31 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -543,3 +543,4 @@ return
 
 
 
+
diff --git a/tests/pid.test b/tests/pid.test
index 5f98439..80f412c 100644
--- a/tests/pid.test
+++ b/tests/pid.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: pid.test,v 1.1.2.4 1999/03/23 20:06:46 hershey Exp $
+# RCS: @(#) $Id: pid.test,v 1.1.2.5 1999/03/24 02:49:32 hershey Exp $
 
 # If pid is not defined just return with no error
 # Some platforms may not have the pid command implemented
@@ -66,3 +66,4 @@ return
 
 
 
+
diff --git a/tests/pkg.test b/tests/pkg.test
index 4d80bc1..3727294 100644
--- a/tests/pkg.test
+++ b/tests/pkg.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.
 #
-# RCS: @(#) $Id: pkg.test,v 1.1.2.6 1999/03/23 20:06:46 hershey Exp $
+# RCS: @(#) $Id: pkg.test,v 1.1.2.7 1999/03/24 02:49:32 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -649,3 +649,4 @@ return
 
 
 
+
diff --git a/tests/pkgMkIndex.test b/tests/pkgMkIndex.test
index 95bcf4a..bb9d228 100644
--- a/tests/pkgMkIndex.test
+++ b/tests/pkgMkIndex.test
@@ -8,16 +8,16 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: pkgMkIndex.test,v 1.4.2.5 1999/03/23 20:06:47 hershey Exp $
+# RCS: @(#) $Id: pkgMkIndex.test,v 1.4.2.6 1999/03/24 02:49:33 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
 }
 
 # temporarily copy the pkg and pkg1 dirs from testsDir to tmpDir
-if {"$::tcltest::testsDir" != "$::tcltest::tmpDir"} {
+if {"$::tcltest::testsDir" != "$::tcltest::workingDir"} {
     set origPkgDir [file join $::tcltest::testsDir pkg]
-    set newPkgDir [file join $::tcltest::tmpDir pkg]
+    set newPkgDir [file join $::tcltest::workingDir pkg]
     if {![catch {file copy $origPkgDir $newPkgDir}]} {
 	set removePkgDir 1
     }
@@ -31,7 +31,7 @@ if {"$::tcltest::testsDir" != "$::tcltest::tmpDir"} {
 # Make sure that the path to pkg1 is absolute.
 
 set oldDir [pwd]
-lappend auto_path [file join $::tcltest::tmpDir pkg1]
+lappend auto_path [file join $::tcltest::workingDir pkg1]
 
 namespace eval pkgtest {
     # Namespace for procs we can discard
@@ -345,7 +345,7 @@ if {[file exists $x]} {
 
 # cleanup
 namespace delete pkgtest
-cd $::tcltest::tmpDir
+cd $::tcltest::workingDir
 if {[info exists removePkgDir]} {
     # strange error deleting the pkg dir only once--needs be done twice!
     catch {file delete -force $newPkgDir}
@@ -366,3 +366,4 @@ return
 
 
 
+
diff --git a/tests/platform.test b/tests/platform.test
index 71f3911..22d40e6 100644
--- a/tests/platform.test
+++ b/tests/platform.test
@@ -32,3 +32,4 @@ return
 
 
 
+
diff --git a/tests/proc-old.test b/tests/proc-old.test
index 66cd5e5..f61c016 100644
--- a/tests/proc-old.test
+++ b/tests/proc-old.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.
 #
-# RCS: @(#) $Id: proc-old.test,v 1.1.2.4 1999/03/23 20:06:47 hershey Exp $
+# RCS: @(#) $Id: proc-old.test,v 1.1.2.5 1999/03/24 02:49:34 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -520,3 +520,4 @@ return
 
 
 
+
diff --git a/tests/proc.test b/tests/proc.test
index defaf71..b98e926 100644
--- a/tests/proc.test
+++ b/tests/proc.test
@@ -13,7 +13,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: proc.test,v 1.1.2.5 1999/03/23 20:06:48 hershey Exp $
+# RCS: @(#) $Id: proc.test,v 1.1.2.6 1999/03/24 02:49:34 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -308,3 +308,4 @@ return
 
 
 
+
diff --git a/tests/pwd.test b/tests/pwd.test
index ee1855e..729ff57 100644
--- a/tests/pwd.test
+++ b/tests/pwd.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: pwd.test,v 1.1.2.3 1999/03/23 20:06:48 hershey Exp $
+# RCS: @(#) $Id: pwd.test,v 1.1.2.4 1999/03/24 02:49:35 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -38,3 +38,4 @@ return
 
 
 
+
diff --git a/tests/reg.test b/tests/reg.test
index aaedd4b..812f83f 100644
--- a/tests/reg.test
+++ b/tests/reg.test
@@ -7,7 +7,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: reg.test,v 1.1.2.5 1999/03/23 20:06:49 hershey Exp $
+# RCS: @(#) $Id: reg.test,v 1.1.2.6 1999/03/24 02:49:35 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -896,3 +896,4 @@ doing 0 "flush"			;# to flush any leftover complaints
 ::tcltest::cleanupTests
 return
 
+
diff --git a/tests/regexp.test b/tests/regexp.test
index 83cda2e..cb353b9 100644
--- a/tests/regexp.test
+++ b/tests/regexp.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: regexp.test,v 1.1.2.8 1999/03/23 20:06:49 hershey Exp $
+# RCS: @(#) $Id: regexp.test,v 1.1.2.9 1999/03/24 02:49:36 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -375,3 +375,4 @@ return
 
 
 
+
diff --git a/tests/registry.test b/tests/registry.test
index 9b17f28..1ce3942 100644
--- a/tests/registry.test
+++ b/tests/registry.test
@@ -10,7 +10,7 @@
 # Copyright (c) 1997 by Sun Microsystems, Inc.  All rights reserved.
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 #
-# RCS: @(#) $Id: registry.test,v 1.1.2.6 1999/03/23 20:06:50 hershey Exp $
+# RCS: @(#) $Id: registry.test,v 1.1.2.7 1999/03/24 02:49:36 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -530,3 +530,4 @@ return
 
 
 
+
diff --git a/tests/remote.tcl b/tests/remote.tcl
index e1403f2..94cdc11 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.
 #
-# RCS: @(#) $Id: remote.tcl,v 1.1.2.2 1999/03/23 20:06:50 hershey Exp $
+# RCS: @(#) $Id: remote.tcl,v 1.1.2.3 1999/03/24 02:49:37 hershey Exp $
 
 # Initialize message delimitor
 
@@ -169,3 +169,4 @@ if {[catch {set serverSocket \
 
 
 
+
diff --git a/tests/rename.test b/tests/rename.test
index bee8c4b..110df4a 100644
--- a/tests/rename.test
+++ b/tests/rename.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: rename.test,v 1.1.2.4 1999/03/23 20:06:51 hershey Exp $
+# RCS: @(#) $Id: rename.test,v 1.1.2.5 1999/03/24 02:49:37 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -183,3 +183,4 @@ return
 
 
 
+
diff --git a/tests/resource.test b/tests/resource.test
index 23d18b2..604c993 100644
--- a/tests/resource.test
+++ b/tests/resource.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.
 #
-# RCS: @(#) $Id: resource.test,v 1.1.2.4 1999/03/23 20:06:51 hershey Exp $
+# RCS: @(#) $Id: resource.test,v 1.1.2.5 1999/03/24 02:49:38 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -361,3 +361,4 @@ return
 
 
 
+
diff --git a/tests/result.test b/tests/result.test
index 27e555e..533d805 100644
--- a/tests/result.test
+++ b/tests/result.test
@@ -94,3 +94,4 @@ return
 
 
 
+
diff --git a/tests/safe.test b/tests/safe.test
index bae2b27..8c3f69a 100644
--- a/tests/safe.test
+++ b/tests/safe.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.
 #
-# RCS: @(#) $Id: safe.test,v 1.1.2.5 1999/03/23 20:06:52 hershey Exp $
+# RCS: @(#) $Id: safe.test,v 1.1.2.6 1999/03/24 02:49:38 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -452,3 +452,4 @@ return
 
 
 
+
diff --git a/tests/scan.test b/tests/scan.test
index 0be0e37..0bf4c1e 100644
--- a/tests/scan.test
+++ b/tests/scan.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: scan.test,v 1.1.2.6 1999/03/23 20:06:52 hershey Exp $
+# RCS: @(#) $Id: scan.test,v 1.1.2.7 1999/03/24 02:49:39 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -583,3 +583,4 @@ return
 
 
 
+
diff --git a/tests/security.test b/tests/security.test
index 17a3f07..d5d58a4 100644
--- a/tests/security.test
+++ b/tests/security.test
@@ -10,7 +10,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: security.test,v 1.1.2.3 1999/03/23 20:06:53 hershey Exp $
+# RCS: @(#) $Id: security.test,v 1.1.2.4 1999/03/24 02:49:39 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -50,3 +50,4 @@ return
 
 
 
+
diff --git a/tests/set-old.test b/tests/set-old.test
index f2bb1f1..3e9cf51 100644
--- a/tests/set-old.test
+++ b/tests/set-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.
 #
-# RCS: @(#) $Id: set-old.test,v 1.1.2.4 1999/03/23 20:06:53 hershey Exp $
+# RCS: @(#) $Id: set-old.test,v 1.1.2.5 1999/03/24 02:49:40 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -808,3 +808,4 @@ return
 
 
 
+
diff --git a/tests/set.test b/tests/set.test
index b4541a8..cbb7b8c 100644
--- a/tests/set.test
+++ b/tests/set.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.
 #
-# RCS: @(#) $Id: set.test,v 1.1.2.4 1999/03/23 20:06:54 hershey Exp $
+# RCS: @(#) $Id: set.test,v 1.1.2.5 1999/03/24 02:49:40 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -496,3 +496,4 @@ return
 
 
 
+
diff --git a/tests/socket.test b/tests/socket.test
index 4fcdc61..23d4673 100644
--- a/tests/socket.test
+++ b/tests/socket.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.
 #
-# RCS: @(#) $Id: socket.test,v 1.1.2.7 1999/03/23 20:06:54 hershey Exp $
+# RCS: @(#) $Id: socket.test,v 1.1.2.8 1999/03/24 02:49:41 hershey Exp $
 
 # Running socket tests with a remote server:
 # ------------------------------------------
@@ -1593,3 +1593,4 @@ return
 
 
 
+
diff --git a/tests/source.test b/tests/source.test
index 352be76..1b1b473 100644
--- a/tests/source.test
+++ b/tests/source.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: source.test,v 1.1.2.4 1999/03/23 20:06:55 hershey Exp $
+# RCS: @(#) $Id: source.test,v 1.1.2.5 1999/03/24 02:49:41 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -194,3 +194,4 @@ return
 
 
 
+
diff --git a/tests/split.test b/tests/split.test
index 2d15cb1..969f350 100644
--- a/tests/split.test
+++ b/tests/split.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: split.test,v 1.1.2.3 1999/03/23 20:06:55 hershey Exp $
+# RCS: @(#) $Id: split.test,v 1.1.2.4 1999/03/24 02:49:42 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -81,3 +81,4 @@ return
 
 
 
+
diff --git a/tests/stack.test b/tests/stack.test
index 8251a2e..f0add22 100644
--- a/tests/stack.test
+++ b/tests/stack.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.
 #
-# RCS: @(#) $Id: stack.test,v 1.1.2.2 1999/03/23 20:06:56 hershey Exp $
+# RCS: @(#) $Id: stack.test,v 1.1.2.3 1999/03/24 02:49:42 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -38,3 +38,4 @@ return
 
 
 
+
diff --git a/tests/string.test b/tests/string.test
index 360ed8a..2de5812 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: string.test,v 1.1.2.4 1999/03/23 20:06:56 hershey Exp $
+# RCS: @(#) $Id: string.test,v 1.1.2.5 1999/03/24 02:49:43 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -400,3 +400,4 @@ return
 
 
 
+
diff --git a/tests/stringObj.test b/tests/stringObj.test
index 099fe1a..45a45a4 100644
--- a/tests/stringObj.test
+++ b/tests/stringObj.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.
 #
-# RCS: @(#) $Id: stringObj.test,v 1.1.2.4 1999/03/23 20:06:57 hershey Exp $
+# RCS: @(#) $Id: stringObj.test,v 1.1.2.5 1999/03/24 02:49:43 hershey Exp $
 
 if {[info commands testobj] == {}} {
     puts "This application hasn't been compiled with the \"testobj\""
@@ -205,3 +205,4 @@ return
 
 
 
+
diff --git a/tests/subst.test b/tests/subst.test
index 25f06a3..e3a7d16 100644
--- a/tests/subst.test
+++ b/tests/subst.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: subst.test,v 1.1.2.4 1999/03/23 20:06:57 hershey Exp $
+# RCS: @(#) $Id: subst.test,v 1.1.2.5 1999/03/24 02:49:44 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -122,3 +122,4 @@ return
 
 
 
+
diff --git a/tests/switch.test b/tests/switch.test
index d0b5276..80cc61d 100644
--- a/tests/switch.test
+++ b/tests/switch.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: switch.test,v 1.1.2.5 1999/03/23 20:06:58 hershey Exp $
+# RCS: @(#) $Id: switch.test,v 1.1.2.6 1999/03/24 02:49:44 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -195,3 +195,4 @@ return
 
 
 
+
diff --git a/tests/thread.test b/tests/thread.test
index 32526e6..ed0ba45 100644
--- a/tests/thread.test
+++ b/tests/thread.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.
 #
-# RCS: @(#) $Id: thread.test,v 1.1.2.3 1999/03/23 20:06:58 hershey Exp $
+# RCS: @(#) $Id: thread.test,v 1.1.2.4 1999/03/24 02:49:44 hershey Exp $
 
 if {[info command testthread] == ""} {
     puts "skipping: tests require the testthread command"
@@ -233,3 +233,4 @@ return
 
 
 
+
diff --git a/tests/timer.test b/tests/timer.test
index 7e143dc..530a7cb 100644
--- a/tests/timer.test
+++ b/tests/timer.test
@@ -13,7 +13,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: timer.test,v 1.1.2.4 1999/03/23 20:06:58 hershey Exp $
+# RCS: @(#) $Id: timer.test,v 1.1.2.5 1999/03/24 02:49:45 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -551,3 +551,4 @@ return
 
 
 
+
diff --git a/tests/trace.test b/tests/trace.test
index 34ee309..b75882c 100644
--- a/tests/trace.test
+++ b/tests/trace.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: trace.test,v 1.1.2.4 1999/03/23 20:06:59 hershey Exp $
+# RCS: @(#) $Id: trace.test,v 1.1.2.5 1999/03/24 02:49:45 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -981,3 +981,4 @@ return
 
 
 
+
diff --git a/tests/unixFCmd.test b/tests/unixFCmd.test
index cab3804..b57c0fb 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.
 #
-# RCS: @(#) $Id: unixFCmd.test,v 1.1.2.5 1999/03/23 20:07:00 hershey Exp $
+# RCS: @(#) $Id: unixFCmd.test,v 1.1.2.6 1999/03/24 02:49:46 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -182,7 +182,7 @@ test unixFCmd-12.1 {GetGroupAttribute - file not found} {unixOnly notRoot} {
     catch {file delete -force -- foo.test}
     list [catch {file attributes foo.test -group} msg] $msg
 } {1 {could not read "foo.test": no such file or directory}}
-test unixFCmd-12.2 {GetGroupAttribute - file found} {
+test unixFCmd-12.2 {GetGroupAttribute - file found} {unixOnly notRoot} {
     catch {file delete -force -- foo.test}
     close [open foo.test w]
     list [catch {file attributes foo.test -group}] [file delete -force -- foo.test]
@@ -296,3 +296,4 @@ return
 
 
 
+
diff --git a/tests/unixFile.test b/tests/unixFile.test
index c2dc7c3..ff797ee 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.
 #
-# RCS: @(#) $Id: unixFile.test,v 1.1.2.3 1999/03/23 20:07:00 hershey Exp $
+# RCS: @(#) $Id: unixFile.test,v 1.1.2.4 1999/03/24 02:49:46 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -73,3 +73,4 @@ return
 
 
 
+
diff --git a/tests/unixInit.test b/tests/unixInit.test
index 741db61..ef98422 100644
--- a/tests/unixInit.test
+++ b/tests/unixInit.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.
 #
-# RCS: @(#) $Id: unixInit.test,v 1.1.2.5 1999/03/23 20:07:01 hershey Exp $
+# RCS: @(#) $Id: unixInit.test,v 1.1.2.6 1999/03/24 02:49:47 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -175,3 +175,4 @@ return
 
 
 
+
diff --git a/tests/unixNotfy.test b/tests/unixNotfy.test
index c9550e7..bc61de6 100644
--- a/tests/unixNotfy.test
+++ b/tests/unixNotfy.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.
 #
-# RCS: @(#) $Id: unixNotfy.test,v 1.1.2.4 1999/03/23 20:07:01 hershey Exp $
+# RCS: @(#) $Id: unixNotfy.test,v 1.1.2.5 1999/03/24 02:49:47 hershey Exp $
 
 # The tests should not be run if you have a notifier which is unable to
 # detect infinite vwaits, as the tests below will hang. The presence of
@@ -62,3 +62,4 @@ return
 
 
 
+
diff --git a/tests/unknown.test b/tests/unknown.test
index 44a4092..6238f8f 100644
--- a/tests/unknown.test
+++ b/tests/unknown.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: unknown.test,v 1.1.2.4 1999/03/23 20:07:01 hershey Exp $
+# RCS: @(#) $Id: unknown.test,v 1.1.2.5 1999/03/24 02:49:48 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -75,3 +75,4 @@ return
 
 
 
+
diff --git a/tests/uplevel.test b/tests/uplevel.test
index 7af2e1d..d303bd5 100644
--- a/tests/uplevel.test
+++ b/tests/uplevel.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: uplevel.test,v 1.1.2.4 1999/03/23 20:07:02 hershey Exp $
+# RCS: @(#) $Id: uplevel.test,v 1.1.2.5 1999/03/24 02:49:48 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -125,3 +125,4 @@ return
 
 
 
+
diff --git a/tests/upvar.test b/tests/upvar.test
index 35ce1b8..3d4a5af 100644
--- a/tests/upvar.test
+++ b/tests/upvar.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: upvar.test,v 1.1.2.4 1999/03/23 20:07:02 hershey Exp $
+# RCS: @(#) $Id: upvar.test,v 1.1.2.5 1999/03/24 02:49:48 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -413,3 +413,4 @@ return
 
 
 
+
diff --git a/tests/utf.test b/tests/utf.test
index e7f15c0..c3c240d 100644
--- a/tests/utf.test
+++ b/tests/utf.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.
 #
-# RCS: @(#) $Id: utf.test,v 1.1.2.5 1999/03/23 20:07:03 hershey Exp $
+# RCS: @(#) $Id: utf.test,v 1.1.2.6 1999/03/24 02:49:49 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -271,3 +271,4 @@ return
 
 
 
+
diff --git a/tests/util.test b/tests/util.test
index ce9b1b1..510e082 100644
--- a/tests/util.test
+++ b/tests/util.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.
 #
-# RCS: @(#) $Id: util.test,v 1.1.2.5 1999/03/23 20:07:03 hershey Exp $
+# RCS: @(#) $Id: util.test,v 1.1.2.6 1999/03/24 02:49:49 hershey Exp $
 
 if {[info commands testobj] == {}} {
     puts "This application hasn't been compiled with the \"testobj\""
@@ -302,3 +302,4 @@ return
 
 
 
+
diff --git a/tests/var.test b/tests/var.test
index f5dc704..ac05bf9 100644
--- a/tests/var.test
+++ b/tests/var.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.
 #
-# RCS: @(#) $Id: var.test,v 1.1.2.6 1999/03/23 20:07:04 hershey Exp $
+# RCS: @(#) $Id: var.test,v 1.1.2.7 1999/03/24 02:49:50 hershey Exp $
 #
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -607,3 +607,4 @@ return
 
 
 
+
diff --git a/tests/while-old.test b/tests/while-old.test
index 2a15027..a806c58 100644
--- a/tests/while-old.test
+++ b/tests/while-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.
 #
-# RCS: @(#) $Id: while-old.test,v 1.1.2.4 1999/03/23 20:07:04 hershey Exp $
+# RCS: @(#) $Id: while-old.test,v 1.1.2.5 1999/03/24 02:49:50 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -129,3 +129,4 @@ return
 
 
 
+
diff --git a/tests/while.test b/tests/while.test
index bbf52ea..1bc1b6b 100644
--- a/tests/while.test
+++ b/tests/while.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.
 #
-# RCS: @(#) $Id: while.test,v 1.1.2.4 1999/03/23 20:07:04 hershey Exp $
+# RCS: @(#) $Id: while.test,v 1.1.2.5 1999/03/24 02:49:51 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -619,3 +619,4 @@ return
 
 
 
+
diff --git a/tests/winConsole.test b/tests/winConsole.test
index 9df12e0..362f71d 100644
--- a/tests/winConsole.test
+++ b/tests/winConsole.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.
 #
-# RCS: @(#) $Id: winConsole.test,v 1.1.2.1 1999/03/24 00:04:30 redman Exp $
+# RCS: @(#) $Id: winConsole.test,v 1.1.2.2 1999/03/24 02:49:51 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -48,3 +48,4 @@ test winConsole-1.1 {Console file channel: non-blocking gets} \
 
 ::tcltest::cleanupTests
 return
+
diff --git a/tests/winFCmd.test b/tests/winFCmd.test
index e9e8340..d8765fe 100644
--- a/tests/winFCmd.test
+++ b/tests/winFCmd.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.
 #
-# RCS: @(#) $Id: winFCmd.test,v 1.1.2.5 1999/03/23 20:07:05 hershey Exp $
+# RCS: @(#) $Id: winFCmd.test,v 1.1.2.6 1999/03/24 02:49:52 hershey Exp $
 #
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -975,3 +975,4 @@ return
 
 
 
+
diff --git a/tests/winFile.test b/tests/winFile.test
index b8b0e0c..4a8e423 100644
--- a/tests/winFile.test
+++ b/tests/winFile.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.
 #
-# RCS: @(#) $Id: winFile.test,v 1.1.2.4 1999/03/23 20:07:06 hershey Exp $
+# RCS: @(#) $Id: winFile.test,v 1.1.2.5 1999/03/24 02:49:52 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -61,3 +61,4 @@ return
 
 
 
+
diff --git a/tests/winNotify.test b/tests/winNotify.test
index 55776ef..65ad2ea 100644
--- a/tests/winNotify.test
+++ b/tests/winNotify.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.
 #
-# RCS: @(#) $Id: winNotify.test,v 1.1.2.4 1999/03/23 20:07:06 hershey Exp $
+# RCS: @(#) $Id: winNotify.test,v 1.1.2.5 1999/03/24 02:49:52 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -167,3 +167,4 @@ return
 
 
 
+
diff --git a/tests/winPipe.test b/tests/winPipe.test
index 4c60920..00bff06 100644
--- a/tests/winPipe.test
+++ b/tests/winPipe.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.
 #
-# RCS: @(#) $Id: winPipe.test,v 1.1.2.7 1999/03/23 20:07:06 hershey Exp $
+# RCS: @(#) $Id: winPipe.test,v 1.1.2.8 1999/03/24 02:49:53 hershey Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -410,3 +410,4 @@ return
 
 
 
+
-- 
cgit v0.12