diff options
author | Kevin B Kenny <kennykb@acm.org> | 2007-04-20 02:46:32 (GMT) |
---|---|---|
committer | Kevin B Kenny <kennykb@acm.org> | 2007-04-20 02:46:32 (GMT) |
commit | c28fcd8a776243c520c721fd5abf2037ebc86706 (patch) | |
tree | dc3ad846d8fa7bda46b6d51e53e78a3cefac6778 /tests | |
parent | 41da80ee66a3a7325bde6e0e8e661a066a932c2b (diff) | |
download | tcl-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]
Diffstat (limited to 'tests')
-rw-r--r-- | tests/clock.test | 6 |
1 files changed, 3 insertions, 3 deletions
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 |