summaryrefslogtreecommitdiffstats
path: root/tests/clock.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/clock.test')
-rw-r--r--tests/clock.test11
1 files changed, 10 insertions, 1 deletions
diff --git a/tests/clock.test b/tests/clock.test
index 9f6921e..f4f8c39 100644
--- a/tests/clock.test
+++ b/tests/clock.test
@@ -10,8 +10,11 @@
# 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.32 2004/07/10 20:38:44 kennykb Exp $
+# RCS: @(#) $Id: clock.test,v 1.33 2004/07/10 21:02:28 kennykb Exp $
+if { [info exists env(LC_TIME)] } {
+ set oldlctime $env(LC_TIME)
+}
set env(LC_TIME) POSIX
if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -702,6 +705,12 @@ test clock-11.2 {scan of time alone in GMT assumes correct date} {
clock scan "1600" -gmt true -base $base
} 1078848000
+if { [info exists oldlctime] } {
+ set env(LC_TIME) $oldlctime
+} else {
+ unset env(LC_TIME)
+}
+
# cleanup
::tcltest::cleanupTests
return