diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2004-07-10 21:02:28 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2004-07-10 21:02:28 (GMT) |
| commit | 0363f29282f4dd75475d4ad004dae035871d0757 (patch) | |
| tree | c39377722afb405bb82fc10af613dd181a1caa4e /tests/clock.test | |
| parent | 7609e2c3a04295aac611eb1a860eeb060bbfc4fd (diff) | |
| download | tcl-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.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 |