summaryrefslogtreecommitdiffstats
path: root/tests/clock.test
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2004-07-10 21:02:28 (GMT)
committerKevin B Kenny <kennykb@acm.org>2004-07-10 21:02:28 (GMT)
commit0363f29282f4dd75475d4ad004dae035871d0757 (patch)
treec39377722afb405bb82fc10af613dd181a1caa4e /tests/clock.test
parent7609e2c3a04295aac611eb1a860eeb060bbfc4fd (diff)
downloadtcl-0363f29282f4dd75475d4ad004dae035871d0757.zip
tcl-0363f29282f4dd75475d4ad004dae035871d0757.tar.gz
tcl-0363f29282f4dd75475d4ad004dae035871d0757.tar.bz2
Added code to restore env(LC_TIME) after the test completes, silencing
a warning from 'make TESTFLAGS="-debug 1" test'.
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