diff options
Diffstat (limited to 'tests/clock.test')
| -rw-r--r-- | tests/clock.test | 175 |
1 files changed, 175 insertions, 0 deletions
diff --git a/tests/clock.test b/tests/clock.test new file mode 100644 index 0000000..95f73ac --- /dev/null +++ b/tests/clock.test @@ -0,0 +1,175 @@ +# 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.17 97/11/24 15:05:38 + +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} +test clock-6.5 {clock roll over dates} { + set time [clock scan "January 1, 2000" -gmt true] + clock format $time -format %A -gmt true +} {Saturday} +test clock-6.6 {clock roll over dates} { + set time [clock scan "January 1, 2000" -gmt true] + clock format $time -format %j -gmt true +} {001} +test clock-6.7 {clock roll over dates} { + set time [clock scan "February 29, 2000" -gmt true] + clock format $time -format %A -gmt true +} {Tuesday} +test clock-6.8 {clock roll over dates} { + set time [clock scan "February 29, 2000" -gmt true] + clock format $time -format %j -gmt true +} {060} +test clock-6.9 {clock roll over dates} { + set time [clock scan "March 1, 2000" -gmt true] + clock format $time -format %A -gmt true +} {Wednesday} +test clock-6.10 {clock roll over dates} { + set time [clock scan "March 1, 2000" -gmt true] + clock format $time -format %j -gmt true +} {061} +test clock-6.11 {clock roll over dates} { + set time [clock scan "March 1, 2001" -gmt true] + clock format $time -format %j -gmt true +} {060} |