diff options
| -rw-r--r-- | ChangeLog | 8 | ||||
| -rw-r--r-- | library/clock.tcl | 4 | ||||
| -rw-r--r-- | tests/clock.test | 37 |
3 files changed, 40 insertions, 9 deletions
@@ -1,3 +1,11 @@ +2004-08-19 Kevin Kenny <kennykb@acm.org> + + * library/clock.tcl (format): Changed default timezone format + from alphabetic to numeric to produce scannable times in more + locales. + * tests/clock.test (clock-37.1): Removed now-unused 'needPST' + constraint and the comments that refer to it. + 2004-08-18 Andreas Kupries <andreask@activestate.com> * library/init.tcl: Integrated TIP #189. We source a separate file diff --git a/library/clock.tcl b/library/clock.tcl index f4a561d..97e6e9d 100644 --- a/library/clock.tcl +++ b/library/clock.tcl @@ -13,7 +13,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.tcl,v 1.2 2004/08/18 20:59:33 kennykb Exp $ +# RCS: @(#) $Id: clock.tcl,v 1.3 2004/08/19 18:55:09 kennykb Exp $ # #---------------------------------------------------------------------- @@ -677,7 +677,7 @@ proc ::tcl::clock::format { args } { # Set defaults set clockval [lindex $args 0] - set format {%a %b %d %H:%M:%S %Z %Y} + set format {%a %b %d %H:%M:%S %z %Y} set gmt 0 set locale C set timezone [GetSystemTimeZone] diff --git a/tests/clock.test b/tests/clock.test index 5736dfc..a63ea3c 100644 --- a/tests/clock.test +++ b/tests/clock.test @@ -11,7 +11,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.36 2004/08/18 20:59:34 kennykb Exp $ +# RCS: @(#) $Id: clock.test,v 1.37 2004/08/19 18:55:25 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -134,6 +134,35 @@ package require msgcat 1.4 # clock-29 # scanning of all time-of-day formats # +# clock-30 +# [clock add] +# +# clock-31 +# Use of -locale system on Windows +# +# clock-32 +# Handling of the Julian-Gregorian transition +# +# clock-33 +# Legacy tests - [clock clicks] +# +# clock-34 +# Legacy tests - [clock scan] without -format +# +# clock-35 +# Legacy tests - [clock seconds] +# +# clock-36 +# Legacy tests - [clock scan] with 'next monthname' +# +# clock-37 +# Test that -gmt does not affect the value of %s +# +# clock-38 +# Regression test to verify that changes in TZ work +# both east and west of Greenwich + + # Note that all code between comments '# BEGIN' and '# END' is # autogenerated by 'tools/makeTestCases.tcl'. DO NOT EDIT CODE BETWEEN # '# BEGIN' and '# END'. @@ -35163,13 +35192,7 @@ test clock-36.3 {clock scan next monthname} { -format %m.%Y } "05.2001" -set ::tcltest::testConstraints(needPST) [expr { - [regexp {^(Pacific.*|P[DS]T)$} [clock format 1 -format %Z]] - && ([clock format 1 -format %s] != "%s") -}] test clock-37.1 {%s gmt testing} { - # We need PST to guarantee the difference value below, and %s isn't - # valid on all OSes (like Solaris). set s [clock seconds] set a [clock format $s -format %s -gmt 0] set b [clock format $s -format %s -gmt 1] |