diff options
| author | dgp <dgp@users.sourceforge.net> | 2002-06-06 20:54:03 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2002-06-06 20:54:03 (GMT) |
| commit | 275b5c1a5f15aebf663f1996a46161bcb1dc5199 (patch) | |
| tree | e6fb8d47a05413ff17d3a687130754c2029b440c /library/tcltest/tcltest.tcl | |
| parent | eb1789ff11ba89bd28eaca5f81915ffb5472f901 (diff) | |
| download | tcl-275b5c1a5f15aebf663f1996a46161bcb1dc5199.zip tcl-275b5c1a5f15aebf663f1996a46161bcb1dc5199.tar.gz tcl-275b5c1a5f15aebf663f1996a46161bcb1dc5199.tar.bz2 | |
* 4) deprecated [threadReap] and [mainThread] [Bug 534903]
Diffstat (limited to 'library/tcltest/tcltest.tcl')
| -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 |