diff options
| author | dgp <dgp@noemail.net> | 2002-06-06 20:54:03 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2002-06-06 20:54:03 (GMT) |
| commit | 78c139318f8f9cb95f9212017b445e2393e32401 (patch) | |
| tree | e6fb8d47a05413ff17d3a687130754c2029b440c /library | |
| parent | c3ed124f85242dd4c337e8c26b68f0440fd767b2 (diff) | |
| download | tcl-78c139318f8f9cb95f9212017b445e2393e32401.zip tcl-78c139318f8f9cb95f9212017b445e2393e32401.tar.gz tcl-78c139318f8f9cb95f9212017b445e2393e32401.tar.bz2 | |
* 4) deprecated [threadReap] and [mainThread] [Bug 534903]
FossilOrigin-Name: edeb884f6b89a93300cc71d01a81a88a1636c594
Diffstat (limited to 'library')
| -rw-r--r-- | library/tcltest/tcltest.tcl | 9 |
1 files changed, 5 insertions, 4 deletions
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 |