From 78c139318f8f9cb95f9212017b445e2393e32401 Mon Sep 17 00:00:00 2001 From: dgp Date: Thu, 6 Jun 2002 20:54:03 +0000 Subject: * 4) deprecated [threadReap] and [mainThread] [Bug 534903] FossilOrigin-Name: edeb884f6b89a93300cc71d01a81a88a1636c594 --- ChangeLog | 3 ++- doc/tcltest.n | 23 ++--------------------- library/tcltest/tcltest.tcl | 9 +++++---- 3 files changed, 9 insertions(+), 26 deletions(-) diff --git a/ChangeLog b/ChangeLog index 2b5aa6a..158ce46 100644 --- a/ChangeLog +++ b/ChangeLog @@ -18,7 +18,8 @@ 1) changed to lazy initialization of test constraints 2) deprecated [initConstraintsHook] 3) repaired badly broken [limitConstraints]. - [Patch 512214, Bug 558742, Bug 461000] + 4) deprecated [threadReap] and [mainThread] + [Patch 512214, Bug 558742, Bug 461000, Bug 534903] 2002-06-06 Daniel Steffen diff --git a/doc/tcltest.n b/doc/tcltest.n index 2398fcf..e4009bd 100644 --- a/doc/tcltest.n +++ b/doc/tcltest.n @@ -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: tcltest.n,v 1.18 2002/06/06 18:44:43 dgp Exp $ +'\" RCS: @(#) $Id: tcltest.n,v 1.19 2002/06/06 20:54:03 dgp Exp $ '\" .so man.macros .TH "tcltest" n 8.4 Tcl "Tcl Built-In Commands" @@ -89,10 +89,6 @@ tcltest \- Test harness support code and utilities \fBtcltest::normalizePath \fIpathVar\fR .sp \fBtcltest::bytestring \fIstring\fR -.sp -\fBtcltest::threadReap\fR -.sp -\fBtcltest::mainThread\fR .BE .SH DESCRIPTION .PP @@ -379,21 +375,6 @@ value supplied in \fIstring\fR. This allows the tester to create 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. @@ -401,7 +382,7 @@ Two syntaxes are provided for specifying the attributes of the tests. 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 diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl index 0a7e50d..96c9693 100644 --- a/library/tcltest/tcltest.tcl +++ b/library/tcltest/tcltest.tcl @@ -15,7 +15,7 @@ # Copyright (c) 2000 by Ajuba Solutions # All rights reserved. # -# RCS: @(#) $Id: tcltest.tcl,v 1.53 2002/06/06 18:44:43 dgp Exp $ +# RCS: @(#) $Id: tcltest.tcl,v 1.54 2002/06/06 20:54:03 dgp Exp $ # create the "tcltest" namespace for all testing variables and # procedures @@ -27,14 +27,15 @@ namespace eval tcltest { # Export the public tcltest procs namespace export bytestring cleanupTests customMatch 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 -- cgit v0.12