From 502e2af7021ace14cc1105d5ab6e83158301666b Mon Sep 17 00:00:00 2001
From: ericm <ericm>
Date: Tue, 15 Aug 2000 18:10:34 +0000
Subject: * library/tcltest1.0/tcltest.tcl: Set debug level in
 tcltest::restoreState to 2, for consistancy with the debug level in
 tcltest::saveState [Bug: 4505].

---
 ChangeLog                      | 6 ++++++
 library/tcltest/tcltest.tcl    | 8 ++++----
 library/tcltest1.0/tcltest.tcl | 8 ++++----
 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}"
 	}
     }
-- 
cgit v0.12