diff options
| author | ericm <ericm> | 2000-08-15 18:10:34 (GMT) |
|---|---|---|
| committer | ericm <ericm> | 2000-08-15 18:10:34 (GMT) |
| commit | 502e2af7021ace14cc1105d5ab6e83158301666b (patch) | |
| tree | 19e5efba02b2afefa82557f4b6efac23992bfa3e /library | |
| parent | 45dcb6a5533f7a1980cdb9264f793958fa641b89 (diff) | |
| download | tcl-502e2af7021ace14cc1105d5ab6e83158301666b.zip tcl-502e2af7021ace14cc1105d5ab6e83158301666b.tar.gz tcl-502e2af7021ace14cc1105d5ab6e83158301666b.tar.bz2 | |
* library/tcltest1.0/tcltest.tcl: Set debug level in
tcltest::restoreState to 2, for consistancy with the debug level
in tcltest::saveState [Bug: 4505].
Diffstat (limited to 'library')
| -rw-r--r-- | library/tcltest/tcltest.tcl | 8 | ||||
| -rw-r--r-- | library/tcltest1.0/tcltest.tcl | 8 |
2 files changed, 8 insertions, 8 deletions
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}" } } |