summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog6
-rw-r--r--library/tcltest/tcltest.tcl8
-rw-r--r--library/tcltest1.0/tcltest.tcl8
3 files changed, 14 insertions, 8 deletions
diff --git a/ChangeLog b/ChangeLog
index 2fdaf15..b2d08bc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2000-08-15 Eric Melski <ericm@ajubasolutions.com>
+
+ * library/tcltest1.0/tcltest.tcl: Set debug level in
+ tcltest::restoreState to 2, for consistancy with the debug level
+ in tcltest::saveState [Bug: 4505].
+
2000-08-14 Eric Melski <ericm@ajubasolutions.com>
* win/makefile.vc:
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
index 8a56371..b30ffeb 100644
--- a/library/tcltest/tcltest.tcl
+++ b/library/tcltest/tcltest.tcl
@@ -12,7 +12,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.tcl,v 1.25 2000/05/03 00:15:07 hobbs Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.26 2000/08/15 18:10:34 ericm Exp $
package provide tcltest 1.0
@@ -1637,7 +1637,7 @@ proc ::tcltest::leakfiles {old} {
proc ::tcltest::saveState {} {
uplevel #0 {set ::tcltest::saveState [list [info procs] [info vars]]}
- DebugPuts 2 "::tcltest::saveState: $::tcltest::saveState"
+ DebugPuts 2 "::tcltest::saveState: $::tcltest::saveState"
}
# ::tcltest::restoreState --
@@ -1657,13 +1657,13 @@ proc ::tcltest::restoreState {} {
if {([lsearch [lindex $::tcltest::saveState 0] $p] < 0) && \
(![string equal ::tcltest::$p [namespace origin $p]])} {
- DebugPuts 3 "::tcltest::restoreState: Removing proc $p"
+ DebugPuts 2 "::tcltest::restoreState: Removing proc $p"
rename $p {}
}
}
foreach p [uplevel #0 {info vars}] {
if {[lsearch [lindex $::tcltest::saveState 1] $p] < 0} {
- DebugPuts 3 "::tcltest::restoreState: Removing variable $p"
+ DebugPuts 2 "::tcltest::restoreState: Removing variable $p"
uplevel #0 "catch {unset $p}"
}
}
diff --git a/library/tcltest1.0/tcltest.tcl b/library/tcltest1.0/tcltest.tcl
index 8a56371..b30ffeb 100644
--- a/library/tcltest1.0/tcltest.tcl
+++ b/library/tcltest1.0/tcltest.tcl
@@ -12,7 +12,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.tcl,v 1.25 2000/05/03 00:15:07 hobbs Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.26 2000/08/15 18:10:34 ericm Exp $
package provide tcltest 1.0
@@ -1637,7 +1637,7 @@ proc ::tcltest::leakfiles {old} {
proc ::tcltest::saveState {} {
uplevel #0 {set ::tcltest::saveState [list [info procs] [info vars]]}
- DebugPuts 2 "::tcltest::saveState: $::tcltest::saveState"
+ DebugPuts 2 "::tcltest::saveState: $::tcltest::saveState"
}
# ::tcltest::restoreState --
@@ -1657,13 +1657,13 @@ proc ::tcltest::restoreState {} {
if {([lsearch [lindex $::tcltest::saveState 0] $p] < 0) && \
(![string equal ::tcltest::$p [namespace origin $p]])} {
- DebugPuts 3 "::tcltest::restoreState: Removing proc $p"
+ DebugPuts 2 "::tcltest::restoreState: Removing proc $p"
rename $p {}
}
}
foreach p [uplevel #0 {info vars}] {
if {[lsearch [lindex $::tcltest::saveState 1] $p] < 0} {
- DebugPuts 3 "::tcltest::restoreState: Removing variable $p"
+ DebugPuts 2 "::tcltest::restoreState: Removing variable $p"
uplevel #0 "catch {unset $p}"
}
}