summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog8
-rw-r--r--library/clock.tcl4
-rw-r--r--tests/clock.test37
3 files changed, 40 insertions, 9 deletions
diff --git a/ChangeLog b/ChangeLog
index 3457ab8..6ce9d62 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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]