diff options
author | sebres <sebres@users.sourceforge.net> | 2017-05-10 12:30:04 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2017-05-10 12:30:04 (GMT) |
commit | 121d3dc202dfea843898ea9d3327b58c3d72bd4b (patch) | |
tree | b0c2d7ec60583593eabfa1c57d941c8979cd87f0 /tests | |
parent | b0cef09790ace51d01d8e0aa6ad9bea27c745cb4 (diff) | |
download | tcl-121d3dc202dfea843898ea9d3327b58c3d72bd4b.zip tcl-121d3dc202dfea843898ea9d3327b58c3d72bd4b.tar.gz tcl-121d3dc202dfea843898ea9d3327b58c3d72bd4b.tar.bz2 |
Fixed possible wrong current date for CET / CEST test cases.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/clock.test | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/tests/clock.test b/tests/clock.test index 214d4cb..0737558 100644 --- a/tests/clock.test +++ b/tests/clock.test @@ -36191,7 +36191,7 @@ test clock-36.3 {clock scan next monthname} { } "05.2001" test clock-37.1 {%s gmt testing} { - set s [clock seconds] + set s [clock scan "2017-05-10 09:00:00" -gmt 1] set a [clock format $s -format %s -gmt 0] set b [clock format $s -format %s -gmt 1] set c [clock scan $s -format %s -gmt 0] @@ -36200,8 +36200,8 @@ test clock-37.1 {%s gmt testing} { # depend on the time zone. list [expr {$b-$a}] [expr {$d-$c}] } {0 0} -test clock-37.2 {%Es gmt testing} { - set s [clock seconds] +test clock-37.2 {%Es gmt testing CET} { + set s [clock scan "2017-01-10 09:00:00" -gmt 1] set a [clock format $s -format %Es -timezone CET] set b [clock format $s -format %Es -gmt 1] set c [clock scan $s -format %Es -timezone CET] @@ -36209,6 +36209,15 @@ test clock-37.2 {%Es gmt testing} { # %Es depend on the time zone (local seconds instead of posix seconds). list [expr {$b-$a}] [expr {$d-$c}] } {-3600 3600} +test clock-37.3 {%Es gmt testing CEST} { + set s [clock scan "2017-05-10 09:00:00" -gmt 1] + set a [clock format $s -format %Es -timezone CET] + set b [clock format $s -format %Es -gmt 1] + set c [clock scan $s -format %Es -timezone CET] + set d [clock scan $s -format %Es -gmt 1] + # %Es depend on the time zone (local seconds instead of posix seconds). + list [expr {$b-$a}] [expr {$d-$c}] +} {-7200 7200} test clock-38.1 {regression - convertUTCToLocalViaC - east of Greenwich} \ -setup { |