diff options
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 |