summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2007-04-20 02:46:32 (GMT)
committerKevin B Kenny <kennykb@acm.org>2007-04-20 02:46:32 (GMT)
commitc28fcd8a776243c520c721fd5abf2037ebc86706 (patch)
treedc3ad846d8fa7bda46b6d51e53e78a3cefac6778
parent41da80ee66a3a7325bde6e0e8e661a066a932c2b (diff)
downloadtcl-c28fcd8a776243c520c721fd5abf2037ebc86706.zip
tcl-c28fcd8a776243c520c721fd5abf2037ebc86706.tar.gz
tcl-c28fcd8a776243c520c721fd5abf2037ebc86706.tar.bz2
* tests/clock.test (clock-40.1, clock-58.1): Corrected a
test case that depended on ":localtime" being able to handle dates prior to the Posix epoch, [Bug 1618445] Added a test case for the dates of the Japanese emperors. [Bug 1637471]
-rw-r--r--ChangeLog4
-rw-r--r--tests/clock.test6
2 files changed, 7 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index 993c5c4..d6c920c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -13,6 +13,10 @@
user 'nyademo' for pointing this out and developing a fix.
* generic/tclPathObj.c: Corrected a 'const'ness fault that
caused bitter complaints from MSVC.
+ * tests/clock.test (clock-40.1, clock-58.1): Corrected a
+ test case that depended on ":localtime" being able to handle
+ dates prior to the Posix epoch, [Bug 1618445] Added a test
+ case for the dates of the Japanese emperors. [Bug 1637471]
2007-04-19 Donal K. Fellows <donal.k.fellows@manchester.ac.uk>
diff --git a/tests/clock.test b/tests/clock.test
index b3ffa9c..0aa65b6 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.75 2007/04/20 02:23:34 kennykb Exp $
+# RCS: @(#) $Id: clock.test,v 1.76 2007/04/20 02:46:32 kennykb Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -35862,7 +35862,7 @@ test clock-40.1 {regression - bad month with -timezone :localtime} \
set env(TZ) UTC0
} \
-body {
- clock scan 1970-01-01T00:00:00 -timezone :localtime \
+ clock scan 2000-01-01T00:00:00 -timezone :localtime \
-format %Y-%m-%dT%H:%M:%S
} \
-cleanup {
@@ -35873,7 +35873,7 @@ test clock-40.1 {regression - bad month with -timezone :localtime} \
unset env(TZ)
}
} \
- -result {0}
+ -result 946684800
test clock-41.1 {regression test - format group %k when hour is 0 } {
clock format 0 -format %k -gmt true