* generic/tclClock.c (TclClockMktimeObjCmd): Fixed a bug where

the month was scanned incorrectly in -timezone :localtime.
* tests/clock.test (clock-40.1): Added regression test case for
the bug where month was scanned incorrectly in -timezone :localtime.

1 files changed, 22 insertions, 1 deletions

diff --git a/tests/clock.test b/tests/clock.test
index 0fa42b6..15647d9 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.40 2004/09/07 17:38:59 kennykb Exp $
+# RCS: @(#) $Id: clock.test,v 1.41 2004/09/08 15:38:35 kennykb Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -35236,6 +35236,27 @@ test clock-39.1 {regression - synonym timezones} {
     clock format 0 -format {%H:%M:%S} -timezone :US/Eastern
 } {19:00:00}
 
+test clock-40.1 {regression - bad month with -timezone :localtime} \
+    -setup {
+	if { [info exists env(TZ)] } {
+	    set oldTZ $env(TZ)
+	}
+	set env(TZ) UTC0
+    } \
+    -body {
+	clock scan 1970-01-01T00:00:00 -timezone :localtime \
+	    -format %Y-%m-%dT%H:%M:%S
+    } \
+    -cleanup {
+	if { [info exists oldTZ] } {
+	    set env(TZ) $oldTZ
+	    unset oldTZ
+	} else {
+	    unset env(TZ)
+	}
+    } \
+    -result {0}
+
 # cleanup
 
 namespace delete ::testClock