* tests/clock.test: Modified some tests that were not robust with

respect to the time zone in which they were run and were thus
failing.

* doc/clock.n: Clarified meaning of -gmt with respect to -base
when used with [clock scan] (-gmt does not affect the
interpretation of -base).

3 files changed, 35 insertions, 12 deletions

diff --git a/ChangeLog b/ChangeLog
index 7f0c2c5..6cffa1c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2000-03-21  Eric Melski  <ericm@scriptics.com>
+
+	* tests/clock.test: Modified some tests that were not robust with
+	respect to the time zone in which they were run and were thus
+	failing.
+
+	* doc/clock.n: Clarified meaning of -gmt with respect to -base
+	when used with [clock scan] (-gmt does not affect the
+	interpretation of -base).
+
 2000-03-19  Sandeep Tamhankar <sandeep@scriptics.com>
 
 	* library/http2.1/http.tcl: geturl used to throw an exception when
@@ -38,6 +48,14 @@
 	The queryprogress callback is called after each block of query
 	data is posted.  It has the same signature as the -progress callback.
 
+2000-03-06  Eric Melski  <ericm@scriptics.com>
+
+	* library/package.tcl: Applied patch from Bug: 2570; rather than
+	setting geometry of slave interp to 0x0 when Tk was loaded, it now
+	does "wm withdraw .".  Both remove the main window from the
+	display, but the former caused some internal structures to get
+	initialized to zero, which caused crashes with some extensions.
+
 2000-03-02  Jeff Hobbs  <hobbs@scriptics.com>
 
 	* library/package.tcl (tclPkgUnknown): extended to allow
diff --git a/doc/clock.n b/doc/clock.n
index 1b67886..e67c5b8 100644
--- a/doc/clock.n
+++ b/doc/clock.n
@@ -9,7 +9,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.n,v 1.7 2000/01/13 23:40:36 ericm Exp $
+'\" RCS: @(#) $Id: clock.n,v 1.8 2000/03/21 22:55:24 ericm Exp $
 '\" 
 .so man.macros
 .TH clock n 8.3 Tcl "Tcl Built-In Commands"
@@ -134,6 +134,8 @@ specified, the current date is assumed.  If the string does not contain a
 time zone mnemonic, the local time zone is assumed, unless the \fB\-gmt\fR 
 argument is true, in which case the clock value is calculated assuming
 that the specified time is relative to Greenwich Mean Time.
+\fB-gmt\fR, if specified, affects only the computed time value; it does not
+impact the interpretation of \fB-base\fR.
 .sp
 If the \fB\-base\fR flag is specified, the next argument should contain
 an integer clock value.  Only the date in this value is used, not the
diff --git a/tests/clock.test b/tests/clock.test
index 57e3921..94c74bd 100644
--- a/tests/clock.test
+++ b/tests/clock.test
@@ -10,7 +10,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.11 2000/02/28 18:49:42 ericm Exp $
+# RCS: @(#) $Id: clock.test,v 1.12 2000/03/21 22:55:24 ericm Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -188,11 +188,14 @@ test clock-4.18 {clock scan, ISO 8601 point in time format} {
 } "Oct 23, 1992 00:00:00"
 
 # CLOCK SCAN REAL TESTS
+# We use 5am PST, 31-12-1999 as the base for these scans because irrespective
+# of your local timezone it should always give us times on December 31, 1999
+set 5amPST 946645200
 test clock-4.18 {clock scan, number meridian} {
-    set t1 [clock scan "5 am" -base 946627200 -gmt true]
-    set t2 [clock scan "5 pm" -base 946627200 -gmt true]
-    set t3 [clock scan "5 a.m." -base 946627200 -gmt true]
-    set t4 [clock scan "5 p.m." -base 946627200 -gmt true]
+    set t1 [clock scan "5 am" -base $5amPST -gmt true]
+    set t2 [clock scan "5 pm" -base $5amPST -gmt true]
+    set t3 [clock scan "5 a.m." -base $5amPST -gmt true]
+    set t4 [clock scan "5 p.m." -base $5amPST -gmt true]
     list \
 	    [clock format $t1 -format {%b %d, %Y %H:%M:%S} -gmt true] \
 	    [clock format $t2 -format {%b %d, %Y %H:%M:%S} -gmt true] \
@@ -201,27 +204,27 @@ test clock-4.18 {clock scan, number meridian} {
 } [list "Dec 31, 1999 05:00:00" "Dec 31, 1999 17:00:00" \
 	"Dec 31, 1999 05:00:00" "Dec 31, 1999 17:00:00"]
 test clock-4.19 {clock scan, number:number meridian} {
-    clock format [clock scan "5:30 pm" -base 946627200 -gmt true] \
+    clock format [clock scan "5:30 pm" -base $5amPST -gmt true] \
 	    -format {%b %d, %Y %H:%M:%S} -gmt true
 } "Dec 31, 1999 17:30:00"
 test clock-4.20 {clock scan, number:number-timezone} {
-    clock format [clock scan "00:00-0800" -gmt true -base 946627200] \
+    clock format [clock scan "00:00-0800" -gmt true -base $5amPST] \
 	    -format {%b %d, %Y %H:%M:%S} -gmt true
 } "Dec 31, 1999 08:00:00"
 test clock-4.21 {clock scan, number:number:number o_merid} {
-    clock format [clock scan "8:00:00" -gmt true -base 946627200] \
+    clock format [clock scan "8:00:00" -gmt true -base $5amPST] \
 	    -format {%b %d, %Y %H:%M:%S} -gmt true
 } "Dec 31, 1999 08:00:00"
 test clock-4.22 {clock scan, number:number:number o_merid} {
-    clock format [clock scan "8:00:00 am" -gmt true -base 946627200] \
+    clock format [clock scan "8:00:00 am" -gmt true -base $5amPST] \
 	    -format {%b %d, %Y %H:%M:%S} -gmt true
 } "Dec 31, 1999 08:00:00"
 test clock-4.23 {clock scan, number:number:number o_merid} {
-    clock format [clock scan "8:00:00 pm" -gmt true -base 946627200] \
+    clock format [clock scan "8:00:00 pm" -gmt true -base $5amPST] \
 	    -format {%b %d, %Y %H:%M:%S} -gmt true
 } "Dec 31, 1999 20:00:00"
 test clock-4.24 {clock scan, number:number:number-timezone} {
-    clock format [clock scan "00:00:30-0800" -gmt true -base 946627200] \
+    clock format [clock scan "00:00:30-0800" -gmt true -base $5amPST] \
 	    -format {%b %d, %Y %H:%M:%S} -gmt true
 } "Dec 31, 1999 08:00:30"
 test clock-4.25 {clock scan, DST for days} {