diff options
| -rw-r--r-- | tests/clock.test | 121 |
1 files changed, 3 insertions, 118 deletions
diff --git a/tests/clock.test b/tests/clock.test index 72473c3..05f82ee 100644 --- a/tests/clock.test +++ b/tests/clock.test @@ -15455,30 +15455,9 @@ test clock-5.29 {time zone boundary case 1948-09-26 01:00:01} detroit { clock format -671047199 -format {%H:%M:%S %z %Z} \ -timezone :America/Detroit } {01:00:01 -0500 EST} -test clock-5.30 {time zone boundary case 1967-06-14 01:59:59} detroit { - clock format -80499601 -format {%H:%M:%S %z %Z} \ - -timezone :America/Detroit -} {01:59:59 -0500 EST} -test clock-5.31 {time zone boundary case 1967-06-14 03:00:00} detroit { - clock format -80499600 -format {%H:%M:%S %z %Z} \ - -timezone :America/Detroit -} {03:00:00 -0400 EDT} -test clock-5.32 {time zone boundary case 1967-06-14 03:00:01} detroit { - clock format -80499599 -format {%H:%M:%S %z %Z} \ - -timezone :America/Detroit -} {03:00:01 -0400 EDT} -test clock-5.33 {time zone boundary case 1967-10-29 01:59:59} detroit { - clock format -68666401 -format {%H:%M:%S %z %Z} \ - -timezone :America/Detroit -} {01:59:59 -0400 EDT} -test clock-5.34 {time zone boundary case 1967-10-29 01:00:00} detroit { - clock format -68666400 -format {%H:%M:%S %z %Z} \ - -timezone :America/Detroit -} {01:00:00 -0500 EST} -test clock-5.35 {time zone boundary case 1967-10-29 01:00:01} detroit { - clock format -68666399 -format {%H:%M:%S %z %Z} \ - -timezone :America/Detroit -} {01:00:01 -0500 EST} + +# Detroit did not observe Daylight Saving Time in 1967 + test clock-5.36 {time zone boundary case 1972-12-31 23:59:59} detroit { clock format 94712399 -format {%H:%M:%S %z %Z} \ -timezone :America/Detroit @@ -35932,100 +35911,6 @@ test clock-34.18 {clock scan, ISO 8601 point in time format} { set time [clock scan "19921023T000000"] clock format $time -format {%b %d, %Y %H:%M:%S} } "Oct 23, 1992 00:00:00" -test clock-34.20.1 {clock scan tests (-TZ)} { - set time [clock scan "31 Jan 14 23:59:59 -0100"] - clock format $time -format {%b %d,%Y %H:%M:%S %Z} -gmt true -} {Feb 01,2014 00:59:59 GMT} -test clock-34.20.2 {clock scan tests (+TZ)} { - set time [clock scan "31 Jan 14 23:59:59 +0100"] - clock format $time -format {%b %d,%Y %H:%M:%S %Z} -gmt true -} {Jan 31,2014 22:59:59 GMT} -test clock-34.20.3 {clock scan tests (-TZ)} { - set time [clock scan "23:59:59 -0100" -base 0] - clock format $time -format {%b %d,%Y %H:%M:%S %Z} -gmt true -} {Jan 02,1970 00:59:59 GMT} -test clock-34.20.4 {clock scan tests (+TZ)} { - set time [clock scan "23:59:59 +0100" -base 0] - clock format $time -format {%b %d,%Y %H:%M:%S %Z} -gmt true -} {Jan 01,1970 22:59:59 GMT} -test clock-34.20.5 {clock scan tests (TZ)} { - set time [clock scan "Mon, 30 Jun 2014 23:59:59 CEST"] - clock format $time -format {%b %d,%Y %H:%M:%S %Z} -gmt true -} {Jun 30,2014 21:59:59 GMT} -test clock-34.20.6 {clock scan tests (TZ)} { - set time [clock scan "Fri, 31 Jan 2014 23:59:59 CET"] - clock format $time -format {%b %d,%Y %H:%M:%S %Z} -gmt true -} {Jan 31,2014 22:59:59 GMT} -test clock-34.20.7 {clock scan tests (relspec, day unit not TZ)} { - set time [clock scan "23:59:59 +15 day" -base 2000000 -gmt true] - clock format $time -format {%b %d,%Y %H:%M:%S %Z} -gmt true -} {Feb 08,1970 23:59:59 GMT} -test clock-34.20.8 {clock scan tests (relspec, day unit not TZ)} { - set time [clock scan "23:59:59 -15 day" -base 2000000 -gmt true] - clock format $time -format {%b %d,%Y %H:%M:%S %Z} -gmt true -} {Jan 09,1970 23:59:59 GMT} -test clock-34.20.9 {clock scan tests (merid and TZ)} { - set time [clock scan "10:59 pm CET" -base 2000000] - clock format $time -format {%b %d,%Y %H:%M:%S %Z} -gmt true -} {Jan 24,1970 21:59:00 GMT} -test clock-34.20.10 {clock scan tests (merid and TZ)} { - set time [clock scan "10:59 pm +0100" -base 2000000] - clock format $time -format {%b %d,%Y %H:%M:%S %Z} -gmt true -} {Jan 24,1970 21:59:00 GMT} -test clock-34.20.11 {clock scan tests (complex TZ)} { - list [clock scan "GMT+1000" -base 100000000 -gmt 1] \ - [clock scan "GMT+10" -base 100000000 -gmt 1] \ - [clock scan "+1000" -base 100000000 -gmt 1] -} [lrepeat 3 99964000] -test clock-34.20.12 {clock scan tests (complex TZ)} { - list [clock scan "GMT-1000" -base 100000000 -gmt 1] \ - [clock scan "GMT-10" -base 100000000 -gmt 1] \ - [clock scan "-1000" -base 100000000 -gmt 1] -} [lrepeat 3 100036000] -test clock-34.20.13 {clock scan tests (complex TZ)} { - list [clock scan "GMT-0000" -base 100000000 -gmt 1] \ - [clock scan "GMT+0000" -base 100000000 -gmt 1] \ - [clock scan "GMT" -base 100000000 -gmt 1] -} [lrepeat 3 100000000] -test clock-34.20.14 {clock scan tests (complex TZ)} { - list [clock scan "CET+1000" -base 100000000 -gmt 1] \ - [clock scan "CET-1000" -base 100000000 -gmt 1] -} {99960400 100032400} -test clock-34.20.15 {clock scan tests (complex TZ)} { - list [clock scan "CET-0000" -base 100000000 -gmt 1] \ - [clock scan "CET+0000" -base 100000000 -gmt 1] \ - [clock scan "CET" -base 100000000 -gmt 1] -} [lrepeat 3 99996400] -test clock-34.20.16 {clock scan tests (complex TZ)} { - list [clock format [clock scan "00:00 GMT+1000" -base 100000000 -gmt 1] -gmt 1] \ - [clock format [clock scan "00:00 GMT+10" -base 100000000 -gmt 1] -gmt 1] \ - [clock format [clock scan "00:00 +1000" -base 100000000 -gmt 1] -gmt 1] \ - [clock format [clock scan "00:00" -base 100000000 -timezone +1000] -gmt 1] -} [lrepeat 4 "Fri Mar 02 14:00:00 GMT 1973"] -test clock-34.20.17 {clock scan tests (complex TZ)} { - list [clock format [clock scan "00:00 GMT+0100" -base 100000000 -gmt 1] -gmt 1] \ - [clock format [clock scan "00:00 GMT+01" -base 100000000 -gmt 1] -gmt 1] \ - [clock format [clock scan "00:00 GMT+1" -base 100000000 -gmt 1] -gmt 1] \ - [clock format [clock scan "00:00" -base 100000000 -timezone +0100] -gmt 1] -} [lrepeat 4 "Fri Mar 02 23:00:00 GMT 1973"] -test clock-34.20.18 {clock scan tests (no TZ)} { - list [clock scan "1000days" -base 100000000 -gmt 1] \ - [clock scan "1000 days" -base 100000000 -gmt 1] \ - [clock scan "+1000days" -base 100000000 -gmt 1] \ - [clock scan "+1000 days" -base 100000000 -gmt 1] \ - [clock scan "GMT +1000 days" -base 100000000 -gmt 1] \ - [clock scan "00:00 GMT +1000 days" -base 100000000 -gmt 1] -} [lrepeat 6 186364800] -test clock-34.20.19 {clock scan tests (no TZ)} { - list [clock scan "-1000days" -base 100000000 -gmt 1] \ - [clock scan "-1000 days" -base 100000000 -gmt 1] \ - [clock scan "GMT -1000days" -base 100000000 -gmt 1] \ - [clock scan "00:00 GMT -1000 days" -base 100000000 -gmt 1] \ -} [lrepeat 4 13564800] -test clock-34.20.20 {clock scan tests (TZ, TZ + 1day)} { - clock scan "00:00 GMT+1000 day" -base 100000000 -gmt 1 -} 100015200 - # CLOCK SCAN REAL TESTS # We use 5am PST, 31-12-1999 as the base for these scans because irrespective |