diff options
Diffstat (limited to 'tests/clock.test')
| -rw-r--r-- | tests/clock.test | 54 |
1 files changed, 30 insertions, 24 deletions
diff --git a/tests/clock.test b/tests/clock.test index 6599218..c526771 100644 --- a/tests/clock.test +++ b/tests/clock.test @@ -10,7 +10,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.22.2.6 2004/09/08 18:32:20 kennykb Exp $ +# RCS: @(#) $Id: clock.test,v 1.22.2.7 2006/07/30 17:05:43 kennykb Exp $ set env(LC_TIME) POSIX @@ -63,17 +63,20 @@ test clock-3.1 {clock format tests} {unixOnly} { set clockval 657687766 clock format $clockval -format {%a %b %d %I:%M:%S %p %Y} -gmt true } {Sun Nov 04 03:02:46 AM 1990} -test clock-3.2 {clock format tests} { - # TCL_USE_TIMEZONE_VAR - - catch {set oldtz $env(TZ)} - set env(TZ) PST - set x {} - append x [clock format 863800000 -format %Z -gmt 1] - append x [set env(TZ)] - catch {unset env(TZ); set env(TZ) $oldtz} - set x -} {GMTPST} +test clock-3.2 {clock format tests} \ + -body { + # TCL_USE_TIMEZONE_VAR + + catch {set oldtz $env(TZ)} + set env(TZ) PST + set x {} + append x [clock format 863800000 -format %Z -gmt 1] + append x [set env(TZ)] + catch {unset env(TZ); set env(TZ) $oldtz} + set x + } \ + -match regexp \ + -result {(?:GMT|UTC)PST} test clock-3.3 {clock format tests} { # tzset() under Borland doesn't seem to set up tzname[] for local # timezone, which caused "clock format" to think that %Z was an invalid @@ -82,18 +85,21 @@ test clock-3.3 {clock format tests} { clock format 863800000 -format %Z set x {} } {} -test clock-3.4 {clock format tests} { - # tzset() under Borland doesn't seem to set up tzname[] for gmt timezone. - # tzset() under MSVC has the following weird observed behavior: - # First time we call "clock format [clock seconds] -format %Z -gmt 1" - # we get "GMT", but on all subsequent calls we get the current time - # zone string, even though env(TZ) is GMT and the variable _timezone - # is 0. - - set x {} - append x [clock format 863800000 -format %Z -gmt 1] - append x [clock format 863800000 -format %Z -gmt 1] -} {GMTGMT} +test clock-3.4 {clock format tests} \ + -body { + # tzset() under Borland doesn't seem to set up tzname[] for gmt + # timezone. tzset() under MSVC has the following weird observed + # behavior: + # First time we call "clock format [clock seconds] -format %Z -gmt 1" + # we get "GMT", but on all subsequent calls we get the current time + # zone string, even though env(TZ) is GMT and the variable _timezone + # is 0. + set x {} + append x [clock format 863800000 -format %Z -gmt 1] + append x [clock format 863800000 -format %Z -gmt 1] + } \ + -match regexp \ + -result {GMTGMT|UTCUTC} test clock-3.5 {clock format tests} { list [catch {clock format} msg] $msg } {1 {wrong # args: should be "clock format clockval ?-format string? ?-gmt boolean?"}} |