summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2004-10-26 02:08:28 (GMT)
committerKevin B Kenny <kennykb@acm.org>2004-10-26 02:08:28 (GMT)
commit52f762e4fcb9a31c8866c6986198adb282fa4e7a (patch)
treea8bd70dbc4bd6d67549da8416496da9c4bc0f10e /tests
parent638940015d9a4ae55ba8d130a78c4e662655a6fb (diff)
downloadtcl-52f762e4fcb9a31c8866c6986198adb282fa4e7a.zip
tcl-52f762e4fcb9a31c8866c6986198adb282fa4e7a.tar.gz
tcl-52f762e4fcb9a31c8866c6986198adb282fa4e7a.tar.bz2
fixes for Bug 1054101
Diffstat (limited to 'tests')
-rw-r--r--tests/clock.test44
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 \