From f5cdd166444167dcff3596e1b2d41059daf7654d Mon Sep 17 00:00:00 2001 From: dgp Date: Thu, 18 Apr 2002 00:04:55 +0000 Subject: * Made separate export for commands kept only for tcltest 1 compatibility. --- ChangeLog | 2 ++ library/tcltest/tcltest.tcl | 11 ++++++----- 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 -- cgit v0.12