* Made separate export for commands

        kept only for tcltest 1 compatibility.

2 files changed, 8 insertions, 5 deletions

diff --git a/ChangeLog b/ChangeLog
index e75567c..8fed143 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,8 @@
 
 	* doc/tcltest.n:  Removed [saveState] and [restoreState] from
 	tcltest 2 documentation, effectively deprecating them.  [Bug 495660]
+	* library/tcltest/tcltest.tcl: Made separate export for commands
+	kept only for tcltest 1 compatibility.
 
 	* tests/iogt.test: Revised to run tests in a namespace, rather than
 	use the useless and buggy [saveState] and [restoreState] commands
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
index d2535be..ad65065 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.48 2002/04/15 17:04:29 dgp Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.49 2002/04/18 00:04:55 dgp Exp $
 
 # create the "tcltest" namespace for all testing variables and
 # procedures
@@ -30,10 +30,11 @@ namespace eval tcltest {
 	    loadTestedCommands mainThread makeDirectory makeFile match \
 	    matchDirectories matchFiles normalizeMsg normalizePath \
 	    outputChannel outputFile preserveCore removeDirectory \
-	    removeFile restoreState runAllTests saveState \
-	    singleProcess skip skipDirectories skipFiles \
-	    temporaryDirectory test testConstraint testsDirectory \
-	    threadReap verbose viewFile workingDirectory
+	    removeFile runAllTests singleProcess skip skipDirectories \
+	    skipFiles temporaryDirectory test testConstraint \
+	    testsDirectory threadReap verbose viewFile workingDirectory
+    # Export the tcltest 1 compatibility procs
+    namespace export getMatchingFiles restoreState saveState
 
     proc Default {varName value} {
 	variable $varName