diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2004-10-26 02:08:28 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2004-10-26 02:08:28 (GMT) |
| commit | 52f762e4fcb9a31c8866c6986198adb282fa4e7a (patch) | |
| tree | a8bd70dbc4bd6d67549da8416496da9c4bc0f10e /tests/clock.test | |
| parent | 638940015d9a4ae55ba8d130a78c4e662655a6fb (diff) | |
| download | tcl-52f762e4fcb9a31c8866c6986198adb282fa4e7a.zip tcl-52f762e4fcb9a31c8866c6986198adb282fa4e7a.tar.gz tcl-52f762e4fcb9a31c8866c6986198adb282fa4e7a.tar.bz2 | |
fixes for Bug 1054101
Diffstat (limited to 'tests/clock.test')
| -rw-r--r-- | tests/clock.test | 44 |
1 files changed, 43 insertions, 1 deletions
diff --git a/tests/clock.test b/tests/clock.test index f0752bc..79f1970 100644 --- a/tests/clock.test +++ b/tests/clock.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: clock.test,v 1.47 2004/10/22 14:27:39 kennykb Exp $ +# RCS: @(#) $Id: clock.test,v 1.48 2004/10/26 02:08:39 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -34733,6 +34733,14 @@ test clock-31.4 {system locale} \ namespace eval ::tcl::clock { namespace import -force ::testClock::registry } + if { [info exists env(TZ)] } { + set oldTZ $env(TZ) + unset env(TZ) + } + if { [info exists env(TCL_TZ)] } { + set oldTclTZ $env(TCL_TZ) + unset env(TCL_TZ) + } ::tcl::clock::ClearCaches } \ -body { @@ -34742,6 +34750,12 @@ test clock-31.4 {system locale} \ namespace eval ::tcl::clock { rename registry {} } + if { [info exists oldTclTZ] } { + set env(TCL_TZ) $oldTclTZ + } + if { [info exists oldTZ] } { + set env(TZ) $oldTZ + } ::tcl::clock::ClearCaches } \ -result [clock format 0 -locale current -timezone EST5 \ @@ -34753,6 +34767,14 @@ test clock-31.5 {system locale} \ namespace eval ::tcl::clock { namespace import -force ::testClock::registry } + if { [info exists env(TZ)] } { + set oldTZ $env(TZ) + unset env(TZ) + } + if { [info exists env(TCL_TZ)] } { + set oldTclTZ $env(TCL_TZ) + unset env(TCL_TZ) + } ::tcl::clock::ClearCaches } \ -body { @@ -34762,6 +34784,12 @@ test clock-31.5 {system locale} \ namespace eval ::tcl::clock { rename registry {} } + if { [info exists oldTclTZ] } { + set env(TCL_TZ) $oldTclTZ + } + if { [info exists oldTZ] } { + set env(TZ) $oldTZ + } ::tcl::clock::ClearCaches } \ -result [clock format 0 -locale current -timezone EST5 \ @@ -34773,6 +34801,14 @@ test clock-31.6 {system locale} \ namespace eval ::tcl::clock { namespace import -force ::testClock::registry } + if { [info exists env(TZ)] } { + set oldTZ $env(TZ) + unset env(TZ) + } + if { [info exists env(TCL_TZ)] } { + set oldTclTZ $env(TCL_TZ) + unset env(TCL_TZ) + } ::tcl::clock::ClearCaches } \ -body { @@ -34782,6 +34818,12 @@ test clock-31.6 {system locale} \ namespace eval ::tcl::clock { rename registry {} } + if { [info exists oldTclTZ] } { + set env(TCL_TZ) $oldTclTZ + } + if { [info exists oldTZ] } { + set env(TZ) $oldTZ + } ::tcl::clock::ClearCaches } \ -result [clock format 0 -locale current -timezone EST5 \ |