diff options
Diffstat (limited to 'tests/clock.test')
| -rw-r--r-- | tests/clock.test | 11 |
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 |