os/persistentdata/persistentstorage/sqlite3api/TEST/TCL/tcldistribution/tests/clock.test
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/os/persistentdata/persistentstorage/sqlite3api/TEST/TCL/tcldistribution/tests/clock.test Fri Jun 15 03:10:57 2012 +0200
1.3 @@ -0,0 +1,658 @@
1.4 +# Commands covered: clock
1.5 +#
1.6 +# This file contains a collection of tests for one or more of the Tcl
1.7 +# built-in commands. Sourcing this file into Tcl runs the tests and
1.8 +# generates output for errors. No output means no errors were found.
1.9 +#
1.10 +# Copyright (c) 1995-1998 Sun Microsystems, Inc.
1.11 +# Copyright (c) 1998-1999 by Scriptics Corporation.
1.12 +#
1.13 +# See the file "license.terms" for information on usage and redistribution
1.14 +# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
1.15 +#
1.16 +# RCS: @(#) $Id: clock.test,v 1.22.2.7 2006/07/30 17:05:43 kennykb Exp $
1.17 +
1.18 +set env(LC_TIME) POSIX
1.19 +
1.20 +if {[lsearch [namespace children] ::tcltest] == -1} {
1.21 + package require tcltest
1.22 + namespace import -force ::tcltest::*
1.23 +}
1.24 +
1.25 +test clock-1.1 {clock tests} {
1.26 + list [catch {clock} msg] $msg
1.27 +} {1 {wrong # args: should be "clock option ?arg ...?"}}
1.28 +test clock-1.2 {clock tests} {
1.29 + list [catch {clock foo} msg] $msg
1.30 +} {1 {bad option "foo": must be clicks, format, scan, or seconds}}
1.31 +
1.32 +# clock clicks
1.33 +test clock-2.1 {clock clicks tests} {
1.34 + expr [clock clicks]+1
1.35 + concat {}
1.36 +} {}
1.37 +test clock-2.2 {clock clicks tests} {
1.38 + set start [clock clicks]
1.39 + after 10
1.40 + set end [clock clicks]
1.41 + expr "$end > $start"
1.42 +} {1}
1.43 +test clock-2.3 {clock clicks tests} {
1.44 + list [catch {clock clicks foo} msg] $msg
1.45 +} {1 {bad switch "foo": must be -milliseconds}}
1.46 +test clock-2.4 {clock clicks tests} {
1.47 + expr [clock clicks -milliseconds]+1
1.48 + concat {}
1.49 +} {}
1.50 +test clock-2.5 {clock clicks tests, millisecond timing test} {
1.51 + set start [clock clicks -milli]
1.52 + after 10
1.53 + set end [clock clicks -milli]
1.54 + # 60 msecs seems to be the max time slice under Windows 95/98
1.55 + expr {($end > $start) && (($end - $start) <= 60)}
1.56 +} {1}
1.57 +test clock-2.6 {clock clicks, milli with too much abbreviation} {
1.58 + list [catch { clock clicks {} } msg] $msg
1.59 +} {1 {bad switch "": must be -milliseconds}}
1.60 +test clock-2.7 {clock clicks, milli with too much abbreviation} {
1.61 + list [catch { clock clicks - } msg] $msg
1.62 +} {1 {bad switch "-": must be -milliseconds}}
1.63 +
1.64 +# clock format
1.65 +test clock-3.1 {clock format tests} {unixOnly} {
1.66 + set clockval 657687766
1.67 + clock format $clockval -format {%a %b %d %I:%M:%S %p %Y} -gmt true
1.68 +} {Sun Nov 04 03:02:46 AM 1990}
1.69 +test clock-3.2 {clock format tests} \
1.70 + -body {
1.71 + # TCL_USE_TIMEZONE_VAR
1.72 +
1.73 + catch {set oldtz $env(TZ)}
1.74 + set env(TZ) PST
1.75 + set x {}
1.76 + append x [clock format 863800000 -format %Z -gmt 1]
1.77 + append x [set env(TZ)]
1.78 + catch {unset env(TZ); set env(TZ) $oldtz}
1.79 + set x
1.80 + } \
1.81 + -match regexp \
1.82 + -result {(?:GMT|UTC)PST}
1.83 +test clock-3.3 {clock format tests} {
1.84 + # tzset() under Borland doesn't seem to set up tzname[] for local
1.85 + # timezone, which caused "clock format" to think that %Z was an invalid
1.86 + # string. Don't care about answer, just that test runs w/o error.
1.87 +
1.88 + clock format 863800000 -format %Z
1.89 + set x {}
1.90 +} {}
1.91 +test clock-3.4 {clock format tests} \
1.92 + -body {
1.93 + # tzset() under Borland doesn't seem to set up tzname[] for gmt
1.94 + # timezone. tzset() under MSVC has the following weird observed
1.95 + # behavior:
1.96 + # First time we call "clock format [clock seconds] -format %Z -gmt 1"
1.97 + # we get "GMT", but on all subsequent calls we get the current time
1.98 + # zone string, even though env(TZ) is GMT and the variable _timezone
1.99 + # is 0.
1.100 + set x {}
1.101 + append x [clock format 863800000 -format %Z -gmt 1]
1.102 + append x [clock format 863800000 -format %Z -gmt 1]
1.103 + } \
1.104 + -match regexp \
1.105 + -result {GMTGMT|UTCUTC}
1.106 +test clock-3.5 {clock format tests} {
1.107 + list [catch {clock format} msg] $msg
1.108 +} {1 {wrong # args: should be "clock format clockval ?-format string? ?-gmt boolean?"}}
1.109 +test clock-3.6 {clock format tests} {
1.110 + list [catch {clock format foo} msg] $msg
1.111 +} {1 {expected integer but got "foo"}}
1.112 +test clock-3.7 {clock format tests} {unixOrPc} {
1.113 + set clockval 657687766
1.114 + clock format $clockval -format "%a %b %d %I:%M:%S %p %Y" -gmt true
1.115 +} "Sun Nov 04 03:02:46 AM 1990"
1.116 +test clock-3.8 {clock format tests} {
1.117 + list [catch {clock format a b c d e g} msg] $msg
1.118 +} {1 {wrong # args: should be "clock format clockval ?-format string? ?-gmt boolean?"}}
1.119 +test clock-3.9 {clock format tests} {unixOrPc nonPortable} {
1.120 + set clockval -1
1.121 + clock format $clockval -format "%a %b %d %I:%M:%S %p %Y" -gmt true
1.122 +} "Wed Dec 31 11:59:59 PM 1969"
1.123 +test clock-3.10 {clock format tests} {
1.124 + list [catch {clock format 123 -bad arg} msg] $msg
1.125 +} {1 {bad switch "-bad": must be -format or -gmt}}
1.126 +test clock-3.11 {clock format tests} {
1.127 + clock format 123 -format "x"
1.128 +} x
1.129 +test clock-3.12 {clock format tests} {
1.130 + clock format 123 -format ""
1.131 +} ""
1.132 +test clock-3.13 {clock format with non-ASCII character in the format string} {
1.133 + set oldenc [encoding system]
1.134 + encoding system iso8859-1
1.135 + set res [clock format 0 -format \u00c4]
1.136 + encoding system $oldenc
1.137 + unset oldenc
1.138 + set res
1.139 +} "\u00c4"
1.140 +
1.141 +# Bug 942078
1.142 +
1.143 +test clock-3.14 {change of time zone} -setup {
1.144 + catch { unset oldTZ }
1.145 + if { [info exists env(TZ)] } {
1.146 + set oldTZ $env(TZ)
1.147 + }
1.148 +} -body {
1.149 + set env(TZ) PST8PDT
1.150 + set s [clock format 0 -format %H%M]
1.151 + set env(TZ) GMT0
1.152 + append s -[clock format 0 -format %H%M]
1.153 +} -cleanup {
1.154 + if { [info exists oldTZ] } {
1.155 + set env(TZ) $oldTZ
1.156 + unset oldTZ
1.157 + } else {
1.158 + unset env(TZ)
1.159 + }
1.160 +} -result {1600-0000}
1.161 +
1.162 +
1.163 +# clock scan
1.164 +test clock-4.1 {clock scan tests} {
1.165 + list [catch {clock scan} msg] $msg
1.166 +} {1 {wrong # args: should be "clock scan dateString ?-base clockValue? ?-gmt boolean?"}}
1.167 +test clock-4.2 {clock scan tests} {
1.168 + list [catch {clock scan "bad-string"} msg] $msg
1.169 +} {1 {unable to convert date-time string "bad-string"}}
1.170 +test clock-4.3 {clock scan tests} {
1.171 + clock format [clock scan "14 Feb 92" -gmt true] \
1.172 + -format {%m/%d/%y %I:%M:%S %p} -gmt true
1.173 +} {02/14/92 12:00:00 AM}
1.174 +test clock-4.4 {clock scan tests} {
1.175 + clock format [clock scan "Feb 14, 1992 12:20 PM" -gmt true] \
1.176 + -format {%m/%d/%y %I:%M:%S %p} -gmt true
1.177 +} {02/14/92 12:20:00 PM}
1.178 +test clock-4.5 {clock scan tests} {
1.179 + clock format \
1.180 + [clock scan "Feb 14, 1992 12:20 PM" -base 319363200 -gmt true] \
1.181 + -format {%m/%d/%y %I:%M:%S %p} -gmt true
1.182 +} {02/14/92 12:20:00 PM}
1.183 +test clock-4.6 {clock scan tests} {
1.184 + set time [clock scan "Oct 23,1992 15:00"]
1.185 + clock format $time -format {%b %d,%Y %H:%M}
1.186 +} {Oct 23,1992 15:00}
1.187 +test clock-4.7 {clock scan tests} {
1.188 + set time [clock scan "Oct 23,1992 15:00 GMT"]
1.189 + clock format $time -format {%b %d,%Y %H:%M GMT} -gmt true
1.190 +} {Oct 23,1992 15:00 GMT}
1.191 +test clock-4.8 {clock scan tests} {
1.192 + set time [clock scan "Oct 23,1992 15:00" -gmt true]
1.193 + clock format $time -format {%b %d,%Y %H:%M GMT} -gmt true
1.194 +} {Oct 23,1992 15:00 GMT}
1.195 +test clock-4.9 {clock scan tests} {
1.196 + list [catch {clock scan "Jan 12" -bad arg} msg] $msg
1.197 +} {1 {bad switch "-bad": must be -base or -gmt}}
1.198 +# The following two two tests test the two year date policy
1.199 +test clock-4.10 {clock scan tests} {
1.200 + set time [clock scan "1/1/71" -gmt true]
1.201 + clock format $time -format {%b %d,%Y %H:%M GMT} -gmt true
1.202 +} {Jan 01,1971 00:00 GMT}
1.203 +test clock-4.11 {clock scan tests} {
1.204 + set time [clock scan "1/1/37" -gmt true]
1.205 + clock format $time -format {%b %d,%Y %H:%M GMT} -gmt true
1.206 +} {Jan 01,2037 00:00 GMT}
1.207 +
1.208 +test clock-4.12 {clock scan, relative times} {
1.209 + set time [clock scan "Oct 23, 1992 -1 day"]
1.210 + clock format $time -format {%b %d, %Y}
1.211 +} "Oct 22, 1992"
1.212 +test clock-4.13 {clock scan, ISO 8601 base date format} {
1.213 + set time [clock scan "19921023"]
1.214 + clock format $time -format {%b %d, %Y}
1.215 +} "Oct 23, 1992"
1.216 +test clock-4.14 {clock scan, ISO 8601 expanded date format} {
1.217 + set time [clock scan "1992-10-23"]
1.218 + clock format $time -format {%b %d, %Y}
1.219 +} "Oct 23, 1992"
1.220 +test clock-4.15 {clock scan, DD-Mon-YYYY format} {
1.221 + set time [clock scan "23-Oct-1992"]
1.222 + clock format $time -format {%b %d, %Y}
1.223 +} "Oct 23, 1992"
1.224 +test clock-4.16 {clock scan, ISO 8601 point in time format} {
1.225 + set time [clock scan "19921023T235959"]
1.226 + clock format $time -format {%b %d, %Y %H:%M:%S}
1.227 +} "Oct 23, 1992 23:59:59"
1.228 +test clock-4.17 {clock scan, ISO 8601 point in time format} {
1.229 + set time [clock scan "19921023 235959"]
1.230 + clock format $time -format {%b %d, %Y %H:%M:%S}
1.231 +} "Oct 23, 1992 23:59:59"
1.232 +test clock-4.18 {clock scan, ISO 8601 point in time format} {
1.233 + set time [clock scan "19921023T000000"]
1.234 + clock format $time -format {%b %d, %Y %H:%M:%S}
1.235 +} "Oct 23, 1992 00:00:00"
1.236 +
1.237 +# CLOCK SCAN REAL TESTS
1.238 +# We use 5am PST, 31-12-1999 as the base for these scans because irrespective
1.239 +# of your local timezone it should always give us times on December 31, 1999
1.240 +set 5amPST 946645200
1.241 +test clock-4.19 {clock scan, number meridian} {
1.242 + set t1 [clock scan "5 am" -base $5amPST -gmt true]
1.243 + set t2 [clock scan "5 pm" -base $5amPST -gmt true]
1.244 + set t3 [clock scan "5 a.m." -base $5amPST -gmt true]
1.245 + set t4 [clock scan "5 p.m." -base $5amPST -gmt true]
1.246 + list \
1.247 + [clock format $t1 -format {%b %d, %Y %H:%M:%S} -gmt true] \
1.248 + [clock format $t2 -format {%b %d, %Y %H:%M:%S} -gmt true] \
1.249 + [clock format $t3 -format {%b %d, %Y %H:%M:%S} -gmt true] \
1.250 + [clock format $t4 -format {%b %d, %Y %H:%M:%S} -gmt true]
1.251 +} [list "Dec 31, 1999 05:00:00" "Dec 31, 1999 17:00:00" \
1.252 + "Dec 31, 1999 05:00:00" "Dec 31, 1999 17:00:00"]
1.253 +test clock-4.20 {clock scan, number:number meridian} {
1.254 + clock format [clock scan "5:30 pm" -base $5amPST -gmt true] \
1.255 + -format {%b %d, %Y %H:%M:%S} -gmt true
1.256 +} "Dec 31, 1999 17:30:00"
1.257 +test clock-4.21 {clock scan, number:number-timezone} {
1.258 + clock format [clock scan "00:00-0800" -gmt true -base $5amPST] \
1.259 + -format {%b %d, %Y %H:%M:%S} -gmt true
1.260 +} "Dec 31, 1999 08:00:00"
1.261 +test clock-4.22 {clock scan, number:number:number o_merid} {
1.262 + clock format [clock scan "8:00:00" -gmt true -base $5amPST] \
1.263 + -format {%b %d, %Y %H:%M:%S} -gmt true
1.264 +} "Dec 31, 1999 08:00:00"
1.265 +test clock-4.23 {clock scan, number:number:number o_merid} {
1.266 + clock format [clock scan "8:00:00 am" -gmt true -base $5amPST] \
1.267 + -format {%b %d, %Y %H:%M:%S} -gmt true
1.268 +} "Dec 31, 1999 08:00:00"
1.269 +test clock-4.24 {clock scan, number:number:number o_merid} {
1.270 + clock format [clock scan "8:00:00 pm" -gmt true -base $5amPST] \
1.271 + -format {%b %d, %Y %H:%M:%S} -gmt true
1.272 +} "Dec 31, 1999 20:00:00"
1.273 +test clock-4.25 {clock scan, number:number:number-timezone} {
1.274 + clock format [clock scan "00:00:30-0800" -gmt true -base $5amPST] \
1.275 + -format {%b %d, %Y %H:%M:%S} -gmt true
1.276 +} "Dec 31, 1999 08:00:30"
1.277 +test clock-4.26 {clock scan, DST for days} {
1.278 + clock scan "tomorrow" -base [clock scan "19991031 00:00:00"]
1.279 +} [clock scan "19991101 00:00:00"]
1.280 +test clock-4.27 {clock scan, DST for days} {
1.281 + clock scan "yesterday" -base [clock scan "19991101 00:00:00"]
1.282 +} [clock scan "19991031 00:00:00"]
1.283 +test clock-4.28 {clock scan, day} knownBug {
1.284 + clock format [clock scan "Monday" -gmt true -base 946627200] \
1.285 + -format {%b %d, %Y %H:%M:%S} -gmt true
1.286 +} "Jan 03, 2000 00:00:00"
1.287 +test clock-4.29 {clock scan, number/number} {
1.288 + clock format [clock scan "1/1" -gmt true -base 946627200] \
1.289 + -format {%b %d, %Y %H:%M:%S} -gmt true
1.290 +} "Jan 01, 1999 00:00:00"
1.291 +test clock-4.30 {clock scan, number/number} {
1.292 + clock format [clock scan "1/1/1999" -gmt true -base 946627200] \
1.293 + -format {%b %d, %Y %H:%M:%S} -gmt true
1.294 +} "Jan 01, 1999 00:00:00"
1.295 +test clock-4.31 {clock scan, number/number} {
1.296 + clock format [clock scan "19990101" -gmt true -base 946627200] \
1.297 + -format {%b %d, %Y %H:%M:%S} -gmt true
1.298 +} "Jan 01, 1999 00:00:00"
1.299 +test clock-4.32 {clock scan, relative minutes} {
1.300 + clock scan "now + 1 minute" -base 946627200
1.301 +} 946627260
1.302 +test clock-4.33 {clock scan, relative minutes} {
1.303 + clock scan "now +1 minute" -base 946627200
1.304 +} 946627260
1.305 +test clock-4.34 {clock scan, relative minutes} {
1.306 + clock scan "now 1 minute" -base 946627200
1.307 +} 946627260
1.308 +test clock-4.35 {clock scan, relative minutes} {
1.309 + clock scan "now - 1 minute" -base 946627200
1.310 +} 946627140
1.311 +test clock-4.36 {clock scan, relative minutes} {
1.312 + clock scan "now -1 minute" -base 946627200
1.313 +} 946627140
1.314 +test clock-4.37 {clock scan, day of week} {
1.315 + clock format [clock scan "wednesday" -base [clock scan 20000112]] \
1.316 + -format {%b %d, %Y}
1.317 +} "Jan 12, 2000"
1.318 +test clock-4.38 {clock scan, next day of week} {
1.319 + clock format [clock scan "next wednesday" -base [clock scan 20000112]] \
1.320 + -format {%b %d, %Y}
1.321 +} "Jan 19, 2000"
1.322 +test clock-4.39 {clock scan, day of week} {
1.323 + clock format [clock scan "thursday" -base [clock scan 20000112]] \
1.324 + -format {%b %d, %Y}
1.325 +} "Jan 13, 2000"
1.326 +test clock-4.40 {clock scan, next day of week} {
1.327 + clock format [clock scan "next thursday" -base [clock scan 20000112]] \
1.328 + -format {%b %d, %Y}
1.329 +} "Jan 20, 2000"
1.330 +
1.331 +# weekday specification and base.
1.332 +test clock-4.41 {2nd monday in november} {
1.333 + set res {}
1.334 + foreach i {91 92 93 94 95 96} {
1.335 + set nov8th [clock scan 11/8/$i]
1.336 + set monday [clock scan monday -base $nov8th]
1.337 + lappend res [clock format $monday -format %Y-%m-%d]
1.338 + }
1.339 + set res
1.340 +} {1991-11-11 1992-11-09 1993-11-08 1994-11-14 1995-11-13 1996-11-11}
1.341 +test clock-4.42 {2nd monday in november (2nd try)} {
1.342 + set res {}
1.343 + foreach i {91 92 93 94 95 96} {
1.344 + set nov1th [clock scan 11/1/$i]
1.345 + set monday [clock scan "2 monday" -base $nov1th]
1.346 + lappend res [clock format $monday -format %Y-%m-%d]
1.347 + }
1.348 + set res
1.349 +} {1991-11-11 1992-11-09 1993-11-08 1994-11-14 1995-11-13 1996-11-11}
1.350 +test clock-4.43 {last monday in november} {
1.351 + set res {}
1.352 + foreach i {91 92 93 94 95 96} {
1.353 + set dec1th [clock scan 12/1/$i]
1.354 + set monday [clock scan "monday 1 week ago" -base $dec1th]
1.355 + lappend res [clock format $monday -format %Y-%m-%d]
1.356 + }
1.357 + set res
1.358 +} {1991-11-25 1992-11-30 1993-11-29 1994-11-28 1995-11-27 1996-11-25}
1.359 +
1.360 +test clock-4.44 {2nd monday in november} knownBug {
1.361 + set res {}
1.362 + foreach i {91 92 93 94 95 96} {
1.363 + set nov8th [clock scan 11/8/$i -gmt 1]
1.364 + set monday [clock scan monday -base $nov8th -gmt 1]
1.365 + lappend res [clock format $monday -format %Y-%m-%d -gmt 1]
1.366 + }
1.367 + set res
1.368 +} {1991-11-11 1992-11-09 1993-11-08 1994-11-14 1995-11-13 1996-11-11}
1.369 +test clock-4.45 {2nd monday in november (2nd try)} knownBug {
1.370 + set res {}
1.371 + foreach i {91 92 93 94 95 96} {
1.372 + set nov1th [clock scan 11/1/$i -gmt 1]
1.373 + set monday [clock scan "2 monday" -base $nov1th -gmt 1]
1.374 + lappend res [clock format $monday -format %Y-%m-%d -gmt 1]
1.375 + }
1.376 + set res
1.377 +} {1991-11-11 1992-11-09 1993-11-08 1994-11-14 1995-11-13 1996-11-11}
1.378 +test clock-4.46 {last monday in november} knownBug {
1.379 + set res {}
1.380 + foreach i {91 92 93 94 95 96} {
1.381 + set dec1th [clock scan 12/1/$i -gmt 1]
1.382 + set monday [clock scan "monday 1 week ago" -base $dec1th -gmt 1]
1.383 + lappend res [clock format $monday -format %Y-%m-%d -gmt 1]
1.384 + }
1.385 + set res
1.386 +} {1991-11-25 1992-11-30 1993-11-29 1994-11-28 1995-11-27 1996-11-25}
1.387 +test clock-4.47 {ago with multiple relative units} {
1.388 + set base [clock scan "12/31/1999 00:00:00"]
1.389 + set res [clock scan "2 days 2 hours ago" -base $base]
1.390 + expr {$base - $res}
1.391 +} 180000
1.392 +
1.393 +# clock seconds
1.394 +test clock-5.1 {clock seconds tests} {
1.395 + expr [clock seconds]+1
1.396 + concat {}
1.397 +} {}
1.398 +test clock-5.2 {clock seconds tests} {
1.399 + list [catch {clock seconds foo} msg] $msg
1.400 +} {1 {wrong # args: should be "clock seconds"}}
1.401 +test clock-5.3 {clock seconds tests} {
1.402 + set start [clock seconds]
1.403 + after 2000
1.404 + set end [clock seconds]
1.405 + expr "$end > $start"
1.406 +} {1}
1.407 +
1.408 +# The following dates check certain roll over dates
1.409 +set day [expr 24 * 60 * 60]
1.410 +test clock-6.1 {clock roll over dates} {
1.411 + set time [clock scan "12/31/1998" -gmt true]
1.412 + clock format [expr $time + $day] -format {%b %d,%Y %H:%M GMT} -gmt true
1.413 +} {Jan 01,1999 00:00 GMT}
1.414 +test clock-6.2 {clock roll over dates} {
1.415 + set time [clock scan "12/31/1999" -gmt true]
1.416 + clock format [expr $time + $day] -format {%b %d,%Y %H:%M GMT} -gmt true
1.417 +} {Jan 01,2000 00:00 GMT}
1.418 +test clock-6.3 {clock roll over dates} {
1.419 + set time [clock scan "2/28/2000" -gmt true]
1.420 + clock format [expr $time + $day] -format {%b %d,%Y %H:%M GMT} -gmt true
1.421 +} {Feb 29,2000 00:00 GMT}
1.422 +test clock-6.4 {clock roll over dates} {
1.423 + set time [clock scan "2/29/2000" -gmt true]
1.424 + clock format [expr $time + $day] -format {%b %d,%Y %H:%M GMT} -gmt true
1.425 +} {Mar 01,2000 00:00 GMT}
1.426 +test clock-6.5 {clock roll over dates} {
1.427 + set time [clock scan "January 1, 2000" -gmt true]
1.428 + clock format $time -format %A -gmt true
1.429 +} {Saturday}
1.430 +test clock-6.6 {clock roll over dates} {
1.431 + set time [clock scan "January 1, 2000" -gmt true]
1.432 + clock format $time -format %j -gmt true
1.433 +} {001}
1.434 +test clock-6.7 {clock roll over dates} {
1.435 + set time [clock scan "February 29, 2000" -gmt true]
1.436 + clock format $time -format %A -gmt true
1.437 +} {Tuesday}
1.438 +test clock-6.8 {clock roll over dates} {
1.439 + set time [clock scan "February 29, 2000" -gmt true]
1.440 + clock format $time -format %j -gmt true
1.441 +} {060}
1.442 +test clock-6.9 {clock roll over dates} {
1.443 + set time [clock scan "March 1, 2000" -gmt true]
1.444 + clock format $time -format %A -gmt true
1.445 +} {Wednesday}
1.446 +test clock-6.10 {clock roll over dates} {
1.447 + set time [clock scan "March 1, 2000" -gmt true]
1.448 + clock format $time -format %j -gmt true
1.449 +} {061}
1.450 +test clock-6.11 {clock roll over dates} {
1.451 + set time [clock scan "March 1, 2001" -gmt true]
1.452 + clock format $time -format %j -gmt true
1.453 +} {060}
1.454 +
1.455 +test clock-7.1 {clock scan next monthname} {
1.456 + clock format [clock scan "next june" -base [clock scan "june 1, 2000"]] \
1.457 + -format %m.%Y
1.458 +} "06.2001"
1.459 +test clock-7.2 {clock scan next monthname} {
1.460 + clock format [clock scan "next july" -base [clock scan "june 1, 2000"]] \
1.461 + -format %m.%Y
1.462 +} "07.2000"
1.463 +test clock-7.3 {clock scan next monthname} {
1.464 + clock format [clock scan "next may" -base [clock scan "june 1, 2000"]] \
1.465 + -format %m.%Y
1.466 +} "05.2001"
1.467 +
1.468 +# We use 5am PST, 31-12-1999 as the base for these scans because irrespective
1.469 +# of your local timezone it should always give us times on December 31
1.470 +set 5amPST 946645200
1.471 +test clock-8.1 {clock scan midnight/gmt range bug 413397} {
1.472 + set fmt "%m/%d"
1.473 + list [clock format [clock scan year -base $5amPST -gmt 0] -format $fmt] \
1.474 + [clock format [clock scan year -base $5amPST -gmt 1] -format $fmt]
1.475 +} {12/31 12/31}
1.476 +
1.477 +::tcltest::testConstraint needPST [expr {
1.478 + [regexp {^(Pacific.*|P[DS]T)$} [clock format 1 -format %Z]]
1.479 + && ([clock format 1 -format %s] != "%s")
1.480 +}]
1.481 +
1.482 +test clock-9.1 {%s gmt testing} {needPST} {
1.483 +
1.484 + # Note that this test will fail if the strftime on the underlying
1.485 + # system doesn't support the %s format group. Systems that are known
1.486 + # to have trouble include the native C libraries on AIX and HP-UX
1.487 +
1.488 + # We need PST to guarantee the difference value below, and %s isn't
1.489 + # valid on all OSes (like Solaris).
1.490 + set s 100000
1.491 + set a [clock format $s -format %s -gmt 0]
1.492 + set b [clock format $s -format %s -gmt 1]
1.493 + # This should be the offset in seconds between current locale and GMT.
1.494 + # This didn't seem to be correctly on Windows until the fix for
1.495 + # Bug #559376, which fiddled with env(TZ) when -gmt 1 was used.
1.496 + # It's hard-coded to check P[SD]T now. (8 hours)
1.497 + set c [expr {$b-$a}]
1.498 +} {28800}
1.499 +
1.500 +::tcltest::testConstraint percentG \
1.501 + [expr { ![catch { clock format 0 -format %G -gmt true } y1970]
1.502 + && $y1970 eq {1970} }]
1.503 +
1.504 +test clock-10.0 {Can strftime do %G?} {
1.505 + clock format 0 -format %G -gmt true
1.506 +} 1970
1.507 +test clock-10.1 {ISO week-based calendar 2000-W52-1} {percentG} {
1.508 + clock format 977702400 -format {%a %A %g %G %u %V %w} -gmt true; # 2000-12-25
1.509 +} {Mon Monday 00 2000 1 52 1}
1.510 +test clock-10.2 {ISO week-based calendar 2000-W52-7} {percentG} {
1.511 + clock format 978220800 -format {%a %A %g %G %u %V %w} -gmt true; # 2000-12-31
1.512 +} {Sun Sunday 00 2000 7 52 0}
1.513 +test clock-10.3 {ISO week-based calendar 2001-W01-1} {percentG} {
1.514 + clock format 978307200 -format {%a %A %g %G %u %V %w} -gmt true; # 2001-1-1
1.515 +} {Mon Monday 01 2001 1 01 1}
1.516 +test clock-10.4 {ISO week-based calendar 2001-W01-7} {percentG} {
1.517 + clock format 978825600 -format {%a %A %g %G %u %V %w} -gmt true; # 2001-1-7
1.518 +} {Sun Sunday 01 2001 7 01 0}
1.519 +test clock-10.5 {ISO week-based calendar 2001-W02-1} {percentG} {
1.520 + clock format 978912000 -format {%a %A %g %G %u %V %w} -gmt true; # 2001-1-8
1.521 +} {Mon Monday 01 2001 1 02 1}
1.522 +test clock-10.6 {ISO week-based calendar 2001-W52-1} {percentG} {
1.523 + clock format 1009152000 -format {%a %A %g %G %u %V %w} -gmt true; # 2001-12-24
1.524 +} {Mon Monday 01 2001 1 52 1}
1.525 +test clock-10.7 {ISO week-based calendar 2001-W52-7} {percentG} {
1.526 + clock format 1009670400 -format {%a %A %g %G %u %V %w} -gmt true; # 2001-12-30
1.527 +} {Sun Sunday 01 2001 7 52 0}
1.528 +test clock-10.8 {ISO week-based calendar 2002-W01-1} {percentG} {
1.529 + clock format 1009756800 -format {%a %A %g %G %u %V %w} -gmt true; # 2001-12-31
1.530 +} {Mon Monday 02 2002 1 01 1}
1.531 +test clock-10.9 {ISO week-based calendar 2002-W01-2} {percentG} {
1.532 + clock format 1009843200 -format {%a %A %g %G %u %V %w} -gmt true; # 2002-1-1
1.533 +} {Tue Tuesday 02 2002 2 01 2}
1.534 +test clock-10.10 {ISO week-based calendar 2002-W01-7} {percentG} {
1.535 + clock format 1010275200 -format {%a %A %g %G %u %V %w} -gmt true; # 2002-1-6
1.536 +} {Sun Sunday 02 2002 7 01 0}
1.537 +test clock-10.11 {ISO week-based calendar 2002-W02-1} {percentG} {
1.538 + clock format 1010361600 -format {%a %A %g %G %u %V %w} -gmt true; # 2002-1-7
1.539 +} {Mon Monday 02 2002 1 02 1}
1.540 +test clock-10.12 {ISO week-based calendar 2002-W52-1} {percentG} {
1.541 + clock format 1040601600 -format {%a %A %g %G %u %V %w} -gmt true; # 2002-12-23
1.542 +} {Mon Monday 02 2002 1 52 1}
1.543 +test clock-10.13 {ISO week-based calendar 2002-W52-7} {percentG} {
1.544 + clock format 1041120000 -format {%a %A %g %G %u %V %w} -gmt true; # 2002-12-29
1.545 +} {Sun Sunday 02 2002 7 52 0}
1.546 +test clock-10.14 {ISO week-based calendar 2003-W01-1} {percentG} {
1.547 + clock format 1041206400 -format {%a %A %g %G %u %V %w} -gmt true; # 2002-12-30
1.548 +} {Mon Monday 03 2003 1 01 1}
1.549 +test clock-10.15 {ISO week-based calendar 2003-W01-2} {percentG} {
1.550 + clock format 1041292800 -format {%a %A %g %G %u %V %w} -gmt true; # 2002-12-31
1.551 +} {Tue Tuesday 03 2003 2 01 2}
1.552 +test clock-10.16 {ISO week-based calendar 2003-W01-3} {percentG} {
1.553 + clock format 1041379200 -format {%a %A %g %G %u %V %w} -gmt true; # 2003-1-1
1.554 +} {Wed Wednesday 03 2003 3 01 3}
1.555 +test clock-10.17 {ISO week-based calendar 2003-W01-7} {percentG} {
1.556 + clock format 1041724800 -format {%a %A %g %G %u %V %w} -gmt true; # 2003-1-5
1.557 +} {Sun Sunday 03 2003 7 01 0}
1.558 +test clock-10.18 {ISO week-based calendar 2003-W02-1} {percentG} {
1.559 + clock format 1041811200 -format {%a %A %g %G %u %V %w} -gmt true; # 2003-1-6
1.560 +} {Mon Monday 03 2003 1 02 1}
1.561 +test clock-10.19 {ISO week-based calendar 2003-W52-1} {percentG} {
1.562 + clock format 1072051200 -format {%a %A %g %G %u %V %w} -gmt true; # 2003-12-22
1.563 +} {Mon Monday 03 2003 1 52 1}
1.564 +test clock-10.20 {ISO week-based calendar 2003-W52-7} {percentG} {
1.565 + clock format 1072569600 -format {%a %A %g %G %u %V %w} -gmt true; # 2003-12-28
1.566 +} {Sun Sunday 03 2003 7 52 0}
1.567 +test clock-10.21 {ISO week-based calendar 2004-W01-1} {percentG} {
1.568 + clock format 1072656000 -format {%a %A %g %G %u %V %w} -gmt true; # 2003-12-29
1.569 +} {Mon Monday 04 2004 1 01 1}
1.570 +test clock-10.22 {ISO week-based calendar 2004-W01-3} {percentG} {
1.571 + clock format 1072828800 -format {%a %A %g %G %u %V %w} -gmt true; # 2003-12-31
1.572 +} {Wed Wednesday 04 2004 3 01 3}
1.573 +test clock-10.23 {ISO week-based calendar 2004-W01-4} {percentG} {
1.574 + clock format 1072915200 -format {%a %A %g %G %u %V %w} -gmt true; # 2004-1-1
1.575 +} {Thu Thursday 04 2004 4 01 4}
1.576 +test clock-10.24 {ISO week-based calendar 2004-W01-7} {percentG} {
1.577 + clock format 1073174400 -format {%a %A %g %G %u %V %w} -gmt true; # 2004-1-4
1.578 +} {Sun Sunday 04 2004 7 01 0}
1.579 +test clock-10.25 {ISO week-based calendar 2004-W02-1} {percentG} {
1.580 + clock format 1073260800 -format {%a %A %g %G %u %V %w} -gmt true; # 2004-1-5
1.581 +} {Mon Monday 04 2004 1 02 1}
1.582 +test clock-10.26 {ISO week-based calendar 2004-W52-1} {percentG} {
1.583 + clock format 1103500800 -format {%a %A %g %G %u %V %w} -gmt true; # 2004-12-20
1.584 +} {Mon Monday 04 2004 1 52 1}
1.585 +test clock-10.27 {ISO week-based calendar 2004-W52-7} {percentG} {
1.586 + clock format 1104019200 -format {%a %A %g %G %u %V %w} -gmt true; # 2004-12-26
1.587 +} {Sun Sunday 04 2004 7 52 0}
1.588 +test clock-10.28 {ISO week-based calendar 2004-W53-1} {percentG} {
1.589 + clock format 1104105600 -format {%a %A %g %G %u %V %w} -gmt true; # 2004-12-27
1.590 +} {Mon Monday 04 2004 1 53 1}
1.591 +test clock-10.29 {ISO week-based calendar 2004-W53-5} {percentG} {
1.592 + clock format 1104451200 -format {%a %A %g %G %u %V %w} -gmt true; # 2004-12-31
1.593 +} {Fri Friday 04 2004 5 53 5}
1.594 +test clock-10.30 {ISO week-based calendar 2004-W53-6} {percentG} {
1.595 + clock format 1104537600 -format {%a %A %g %G %u %V %w} -gmt true; # 2005-1-1
1.596 +} {Sat Saturday 04 2004 6 53 6}
1.597 +test clock-10.31 {ISO week-based calendar 2004-W53-7} {percentG} {
1.598 + clock format 1104624000 -format {%a %A %g %G %u %V %w} -gmt true; # 2005-1-2
1.599 +} {Sun Sunday 04 2004 7 53 0}
1.600 +test clock-10.32 {ISO week-based calendar 2005-W01-1} {percentG} {
1.601 + clock format 1104710400 -format {%a %A %g %G %u %V %w} -gmt true; # 2005-1-3
1.602 +} {Mon Monday 05 2005 1 01 1}
1.603 +test clock-10.33 {ISO week-based calendar 2005-W01-7} {percentG} {
1.604 + clock format 1105228800 -format {%a %A %g %G %u %V %w} -gmt true; # 2005-1-9
1.605 +} {Sun Sunday 05 2005 7 01 0}
1.606 +test clock-10.34 {ISO week-based calendar 2005-W02-1} {percentG} {
1.607 + clock format 1105315200 -format {%a %A %g %G %u %V %w} -gmt true; # 2005-1-10
1.608 +} {Mon Monday 05 2005 1 02 1}
1.609 +test clock-10.35 {ISO week-based calendar 2005-W52-1} {percentG} {
1.610 + clock format 1135555200 -format {%a %A %g %G %u %V %w} -gmt true; # 2005-12-26
1.611 +} {Mon Monday 05 2005 1 52 1}
1.612 +test clock-10.36 {ISO week-based calendar 2005-W52-6} {percentG} {
1.613 + clock format 1135987200 -format {%a %A %g %G %u %V %w} -gmt true; # 2005-12-31
1.614 +} {Sat Saturday 05 2005 6 52 6}
1.615 +test clock-10.37 {ISO week-based calendar 2005-W52-7} {percentG} {
1.616 + clock format 1136073600 -format {%a %A %g %G %u %V %w} -gmt true; # 2006-1-1
1.617 +} {Sun Sunday 05 2005 7 52 0}
1.618 +test clock-10.38 {ISO week-based calendar 2006-W01-1} {percentG} {
1.619 + clock format 1136160000 -format {%a %A %g %G %u %V %w} -gmt true; # 2006-1-2
1.620 +} {Mon Monday 06 2006 1 01 1}
1.621 +test clock-10.39 {ISO week-based calendar 2006-W01-7} {percentG} {
1.622 + clock format 1136678400 -format {%a %A %g %G %u %V %w} -gmt true; # 2006-1-8
1.623 +} {Sun Sunday 06 2006 7 01 0}
1.624 +test clock-10.40 {ISO week-based calendar 2006-W02-1} {percentG} {
1.625 + clock format 1136764800 -format {%a %A %g %G %u %V %w} -gmt true; # 2006-1-9
1.626 +} {Mon Monday 06 2006 1 02 1}
1.627 +test clock-10.41 {ISO week-based calendar 2009-W52-1} {percentG} {
1.628 + clock format 1261353600 -format {%a %A %g %G %u %V %w} -gmt true; # 2009-12-21
1.629 +} {Mon Monday 09 2009 1 52 1}
1.630 +test clock-10.42 {ISO week-based calendar 2009-W52-7} {percentG} {
1.631 + clock format 1261872000 -format {%a %A %g %G %u %V %w} -gmt true; # 2009-12-27
1.632 +} {Sun Sunday 09 2009 7 52 0}
1.633 +test clock-10.43 {ISO week-based calendar 2009-W53-1} {percentG} {
1.634 + clock format 1261958400 -format {%a %A %g %G %u %V %w} -gmt true; # 2009-12-28
1.635 +} {Mon Monday 09 2009 1 53 1}
1.636 +test clock-10.44 {ISO week-based calendar 2009-W53-4} {percentG} {
1.637 + clock format 1262217600 -format {%a %A %g %G %u %V %w} -gmt true; # 2009-12-31
1.638 +} {Thu Thursday 09 2009 4 53 4}
1.639 +test clock-10.45 {ISO week-based calendar 2009-W53-5} {percentG} {
1.640 + clock format 1262304000 -format {%a %A %g %G %u %V %w} -gmt true; # 2010-1-1
1.641 +} {Fri Friday 09 2009 5 53 5}
1.642 +test clock-10.46 {ISO week-based calendar 2009-W53-7} {percentG} {
1.643 + clock format 1262476800 -format {%a %A %g %G %u %V %w} -gmt true; # 2010-1-3
1.644 +} {Sun Sunday 09 2009 7 53 0}
1.645 +test clock-10.47 {ISO week-based calendar 2010-W01-1} {percentG} {
1.646 + clock format 1262563200 -format {%a %A %g %G %u %V %w} -gmt true; # 2010-1-4
1.647 +} {Mon Monday 10 2010 1 01 1}
1.648 +test clock-10.48 {ISO week-based calendar 2010-W01-7} {percentG} {
1.649 + clock format 1263081600 -format {%a %A %g %G %u %V %w} -gmt true; # 2010-1-10
1.650 +} {Sun Sunday 10 2010 7 01 0}
1.651 +test clock-10.49 {ISO week-based calendar 2010-W02-1} {percentG} {
1.652 + clock format 1263168000 -format {%a %A %g %G %u %V %w} -gmt true; # 2010-1-11
1.653 +} {Mon Monday 10 2010 1 02 1}
1.654 +
1.655 +test clock-41.1 {regression test - format group %k when hour is 0 } {
1.656 + clock format 0 -format %k -gmt true
1.657 +} { 0}
1.658 +
1.659 +# cleanup
1.660 +::tcltest::cleanupTests
1.661 +return