Attachment "ttthread.patch" to
ticket [534903ffff]
added by
dgp
2002-06-01 06:31:13.
Index: doc/tcltest.n
===================================================================
RCS file: /cvsroot/tcl/tcl/doc/tcltest.n,v
retrieving revision 1.16
diff -u -r1.16 tcltest.n
--- doc/tcltest.n 18 Apr 2002 00:00:19 -0000 1.16
+++ doc/tcltest.n 31 May 2002 23:30:43 -0000
@@ -87,10 +87,6 @@
\fBtcltest::normalizePath \fIpathVar\fR
.sp
\fBtcltest::bytestring \fIstring\fR
-.sp
-\fBtcltest::threadReap\fR
-.sp
-\fBtcltest::mainThread\fR
.BE
.SH DESCRIPTION
.PP
@@ -364,21 +360,6 @@
denormalized or improperly formed strings to pass to C procedures that
are supposed to accept strings with embedded NULL types and confirm
that a string result has a certain pattern of bytes.
-.TP
-\fBtcltest::threadReap\fR
-\fBtcltest::threadReap\fR only works if \fItestthread\fR is
-defined, generally by compiling tcltest. If \fItestthread\fR is
-defined, \fBtcltest::threadReap\fR kills all threads except for the
-main thread. It gets the ID of the main thread by calling
-\fItestthread names\fR during initialization. This value is stored in
-\fItcltest::mainThread\fR. \fBtcltest::threadReap\fR returns the
-number of existing threads at completion.
-.TP
-\fBtcltest::mainThread\fR
-Sets or returns the main thread ID. This defaults to 1. This is the
-only thread that is not killed by tcltest::threadReap and is set
-according to the return value of \fItestthread names\fR at
-initialization.
.SH TESTS
The \fBtest\fR procedure runs a test script and prints an error
message if the script's result does not match the expected result.
@@ -386,7 +367,7 @@
The first uses a separate argument for each of the attributes and
values. The second form places all of the attributes and values
together into a single argument; the argument must have proper list
-structure, with teh elements of the list being the attributes and
+structure, with the elements of the list being the attributes and
values. The second form makes it easy to construct multi-line
scripts, since the braces around the whole list make it unnecessary to
include a backslash at the end of each line. In the second form, no
Index: library/tcltest/tcltest.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/tcltest/tcltest.tcl,v
retrieving revision 1.50
diff -u -r1.50 tcltest.tcl
--- library/tcltest/tcltest.tcl 8 May 2002 05:50:24 -0000 1.50
+++ library/tcltest/tcltest.tcl 31 May 2002 23:30:43 -0000
@@ -27,14 +27,15 @@
# Export the public tcltest procs
namespace export bytestring cleanupTests debug errorChannel \
errorFile interpreter limitConstraints loadFile loadScript \
- loadTestedCommands mainThread makeDirectory makeFile match \
+ loadTestedCommands makeDirectory makeFile match \
matchDirectories matchFiles normalizeMsg normalizePath \
outputChannel outputFile preserveCore removeDirectory \
removeFile runAllTests singleProcess skip skipDirectories \
skipFiles temporaryDirectory test testConstraint \
- testsDirectory threadReap verbose viewFile workingDirectory
+ testsDirectory verbose viewFile workingDirectory
# Export the tcltest 1 compatibility procs
- namespace export getMatchingFiles restoreState saveState
+ namespace export getMatchingFiles mainThread restoreState saveState \
+ threadReap
proc Default {varName value} {
variable $varName