From aedff4653c66d0c490a35ac117de3e4bee784f4f Mon Sep 17 00:00:00 2001
From: Kevin B Kenny <kennykb@acm.org>
Date: Thu, 19 Aug 2004 18:55:03 +0000
Subject: * 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.

---
 ChangeLog         |  8 ++++++++
 library/clock.tcl |  4 ++--
 tests/clock.test  | 37 ++++++++++++++++++++++++++++++-------
 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]
-- 
cgit v0.12