* generic/tclTimer.c: Removed a premature optimisation that

attempted to store the assoc data in the client data; the
optimisation caused a bug that [after] would overwrite
its imports.  [Bug 1016167]
* library/clock.tcl (InitTZData, ClearCaches): Changed so that the
in-memory time zone :UTC (and its aliases) always gets
reinitialised, in case tzdata is absent. [Bug 1019537, 1023779]
* library/tzdata/*: Regenerated.
* tests/clock.test (clock-31.*, clock-39.1): Corrected a problem
where the 'system' locale tests fail on a non-English Windows
machine. [Bug 1023761].  Added a test to make sure that alias
time zones load correctly. [Bug 1023779].
* tools/tclZIC.tcl (writeLinks): Corrected a problem where
alias time zone names were written incorrectly, causing them
to fail to load at run time. [Bug 1023779].
* win/tclWinTime.c (Tcl_GetTime): Eliminated CPUID tests on
Win64 - assuming that HAL vendors now do a better job of
keeping the performance counters synchronized among CPU's.
[Bug 1020445]

1 files changed, 22 insertions, 7 deletions

diff --git a/tests/clock.test b/tests/clock.test
index c97848a..0fa42b6 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.39 2004/08/21 18:03:07 kennykb Exp $
+# RCS: @(#) $Id: clock.test,v 1.40 2004/09/07 17:38:59 kennykb Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -34684,7 +34684,9 @@ test clock-31.1 {system locale} \
 	}
 	::tcl::clock::ClearCaches
     } \
-    -result {01-Jan-1970}
+    -result [clock format 0 -timezone :UTC -locale current \
+		 -format {%d-%b-%Y}]
+
 test clock-31.2 {system locale} \
     -constraints win \
     -setup { 
@@ -34702,7 +34704,9 @@ test clock-31.2 {system locale} \
 	}
 	::tcl::clock::ClearCaches
     } \
-    -result {the 01' day of January 1970}
+    -result [clock format 0 -timezone :UTC -locale current \
+		 -format {the %d' day of %B %Y}]
+
 test clock-31.3 {system locale} \
     -constraints win \
     -setup { 
@@ -34720,7 +34724,9 @@ test clock-31.3 {system locale} \
 	}
 	::tcl::clock::ClearCaches
     } \
-    -result {12:00:00 AM}
+    -result [clock format 0 -timezone :UTC -locale current \
+		 -format {%l:%M:%S %p}]
+
 test clock-31.4 {system locale} \
     -constraints win \
     -setup { 
@@ -34738,7 +34744,9 @@ test clock-31.4 {system locale} \
 	}
 	::tcl::clock::ClearCaches
     } \
-    -result {31-Dec-1969}
+    -result [clock format 0 -locale current -timezone EST5 \
+		 -format {%d-%b-%Y}]
+
 test clock-31.5 {system locale} \
     -constraints win \
     -setup { 
@@ -34756,7 +34764,9 @@ test clock-31.5 {system locale} \
 	}
 	::tcl::clock::ClearCaches
     } \
-    -result {the 31' day of December 1969}
+    -result [clock format 0 -locale current -timezone EST5 \
+		 -format {the %d' day of %B %Y}]
+
 test clock-31.6 {system locale} \
     -constraints win \
     -setup { 
@@ -34774,7 +34784,8 @@ test clock-31.6 {system locale} \
 	}
 	::tcl::clock::ClearCaches
     } \
-    -result { 7:00:00 PM EST}
+    -result [clock format 0 -locale current -timezone EST5 \
+		 -format {%l:%M:%S %p %Z}]
 
 test clock-32.1 {scan/format across the Gregorian change} {
     set problems {}
@@ -35221,6 +35232,10 @@ test clock-38.1 {regression - convertUTCToLocalViaC - east of Greenwich} \
     } \
     -result {01:00:00}
 
+test clock-39.1 {regression - synonym timezones} {
+    clock format 0 -format {%H:%M:%S} -timezone :US/Eastern
+} {19:00:00}
+
 # cleanup
 
 namespace delete ::testClock