148 lines
5.5 KiB
Plaintext
148 lines
5.5 KiB
Plaintext
# Commands covered: clock
|
|
#
|
|
# This file contains a collection of tests for one or more of the Tcl
|
|
# built-in commands. Sourcing this file into Tcl runs the tests and
|
|
# generates output for errors. No output means no errors were found.
|
|
#
|
|
# Copyright (c) 1995-1997 Sun Microsystems, Inc.
|
|
#
|
|
# See the file "license.terms" for information on usage and redistribution
|
|
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
|
#
|
|
# SCCS: @(#) clock.test 1.14 97/06/02 10:18:12
|
|
|
|
if {[string compare test [info procs test]] == 1} then {source defs}
|
|
|
|
test clock-1.1 {clock tests} {
|
|
list [catch {clock} msg] $msg
|
|
} {1 {wrong # args: should be "clock option ?arg ...?"}}
|
|
test clock-1.2 {clock tests} {
|
|
list [catch {clock foo} msg] $msg
|
|
} {1 {bad option "foo": must be clicks, format, scan, or seconds}}
|
|
|
|
# clock clicks
|
|
test clock-2.1 {clock clicks tests} {
|
|
expr [clock clicks]+1
|
|
concat {}
|
|
} {}
|
|
test clock-2.2 {clock clicks tests} {
|
|
list [catch {clock clicks foo} msg] $msg
|
|
} {1 {wrong # args: should be "clock clicks"}}
|
|
test clock-2.3 {clock clicks tests} {
|
|
set start [clock clicks]
|
|
after 10
|
|
set end [clock clicks]
|
|
expr "$end > $start"
|
|
} {1}
|
|
|
|
# clock format
|
|
test clock-3.1 {clock format tests} {unixOnly} {
|
|
set clockval 657687766
|
|
clock format $clockval -format {%a %b %d %I:%M:%S %p %Y} -gmt true
|
|
} {Sun Nov 04 03:02:46 AM 1990}
|
|
test clock-3.2 {clock format tests} {
|
|
list [catch {clock format} msg] $msg
|
|
} {1 {wrong # args: should be "clock format clockval ?-format string? ?-gmt boolean?"}}
|
|
test clock-3.3 {clock format tests} {
|
|
list [catch {clock format foo} msg] $msg
|
|
} {1 {expected integer but got "foo"}}
|
|
test clock-3.4 {clock format tests} {unixOrPc} {
|
|
set clockval 657687766
|
|
clock format $clockval -format "%a %b %d %I:%M:%S %p %Y" -gmt true
|
|
} "Sun Nov 04 03:02:46 AM 1990"
|
|
test clock-3.5 {clock format tests} {
|
|
list [catch {clock format a b c d e g} msg] $msg
|
|
} {1 {wrong # args: should be "clock format clockval ?-format string? ?-gmt boolean?"}}
|
|
test clock-3.6 {clock format tests} {unixOrPc nonPortable} {
|
|
set clockval -1
|
|
clock format $clockval -format "%a %b %d %I:%M:%S %p %Y" -gmt true
|
|
} "Wed Dec 31 11:59:59 PM 1969"
|
|
test clock-3.7 {clock format tests} {
|
|
list [catch {clock format 123 -bad arg} msg] $msg
|
|
} {1 {bad switch "-bad": must be -format, or -gmt}}
|
|
test clock-3.8 {clock format tests} {
|
|
clock format 123 -format "x"
|
|
} x
|
|
test clock-3.9 {clock format tests} {
|
|
clock format 123 -format ""
|
|
} ""
|
|
|
|
# clock scan
|
|
test clock-4.1 {clock scan tests} {
|
|
list [catch {clock scan} msg] $msg
|
|
} {1 {wrong # args: should be "clock scan dateString ?-base clockValue? ?-gmt boolean?"}}
|
|
test clock-4.2 {clock scan tests} {
|
|
list [catch {clock scan "bad-string"} msg] $msg
|
|
} {1 {unable to convert date-time string "bad-string"}}
|
|
test clock-4.3 {clock scan tests} {
|
|
clock format [clock scan "14 Feb 92" -gmt true] \
|
|
-format {%m/%d/%y %I:%M:%S %p} -gmt true
|
|
} {02/14/92 12:00:00 AM}
|
|
test clock-4.4 {clock scan tests} {
|
|
clock format [clock scan "Feb 14, 1992 12:20 PM" -gmt true] \
|
|
-format {%m/%d/%y %I:%M:%S %p} -gmt true
|
|
} {02/14/92 12:20:00 PM}
|
|
test clock-4.5 {clock scan tests} {
|
|
clock format \
|
|
[clock scan "Feb 14, 1992 12:20 PM" -base 319363200 -gmt true] \
|
|
-format {%m/%d/%y %I:%M:%S %p} -gmt true
|
|
} {02/14/92 12:20:00 PM}
|
|
test clock-4.6 {clock scan tests} {
|
|
set time [clock scan "Oct 23,1992 15:00"]
|
|
clock format $time -format {%b %d,%Y %H:%M}
|
|
} {Oct 23,1992 15:00}
|
|
test clock-4.7 {clock scan tests} {
|
|
set time [clock scan "Oct 23,1992 15:00 GMT"]
|
|
clock format $time -format {%b %d,%Y %H:%M GMT} -gmt true
|
|
} {Oct 23,1992 15:00 GMT}
|
|
test clock-4.8 {clock scan tests} {
|
|
set time [clock scan "Oct 23,1992 15:00" -gmt true]
|
|
clock format $time -format {%b %d,%Y %H:%M GMT} -gmt true
|
|
} {Oct 23,1992 15:00 GMT}
|
|
test clock-4.9 {clock scan tests} {
|
|
list [catch {clock scan "Jan 12" -bad arg} msg] $msg
|
|
} {1 {bad switch "-bad": must be -base, or -gmt}}
|
|
# The following two two tests test the two year date policy
|
|
test clock-4.10 {clock scan tests} {
|
|
set time [clock scan "1/1/71" -gmt true]
|
|
clock format $time -format {%b %d,%Y %H:%M GMT} -gmt true
|
|
} {Jan 01,1971 00:00 GMT}
|
|
test clock-4.11 {clock scan tests} {
|
|
set time [clock scan "1/1/37" -gmt true]
|
|
clock format $time -format {%b %d,%Y %H:%M GMT} -gmt true
|
|
} {Jan 01,2037 00:00 GMT}
|
|
|
|
# clock seconds
|
|
test clock-5.1 {clock seconds tests} {
|
|
expr [clock seconds]+1
|
|
concat {}
|
|
} {}
|
|
test clock-5.2 {clock seconds tests} {
|
|
list [catch {clock seconds foo} msg] $msg
|
|
} {1 {wrong # args: should be "clock seconds"}}
|
|
test clock-5.3 {clock seconds tests} {
|
|
set start [clock seconds]
|
|
after 2000
|
|
set end [clock seconds]
|
|
expr "$end > $start"
|
|
} {1}
|
|
|
|
# The following dates check certain roll over dates
|
|
set day [expr 24 * 60 * 60]
|
|
test clock-6.1 {clock roll over dates} {
|
|
set time [clock scan "12/31/1998" -gmt true]
|
|
clock format [expr $time + $day] -format {%b %d,%Y %H:%M GMT} -gmt true
|
|
} {Jan 01,1999 00:00 GMT}
|
|
test clock-6.2 {clock roll over dates} {
|
|
set time [clock scan "12/31/1999" -gmt true]
|
|
clock format [expr $time + $day] -format {%b %d,%Y %H:%M GMT} -gmt true
|
|
} {Jan 01,2000 00:00 GMT}
|
|
test clock-6.3 {clock roll over dates} {
|
|
set time [clock scan "2/28/2000" -gmt true]
|
|
clock format [expr $time + $day] -format {%b %d,%Y %H:%M GMT} -gmt true
|
|
} {Feb 29,2000 00:00 GMT}
|
|
test clock-6.4 {clock roll over dates} {
|
|
set time [clock scan "2/29/2000" -gmt true]
|
|
clock format [expr $time + $day] -format {%b %d,%Y %H:%M GMT} -gmt true
|
|
} {Mar 01,2000 00:00 GMT}
|