diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/clock.test | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/tests/clock.test b/tests/clock.test index f5f7d47..2006029 100644 --- a/tests/clock.test +++ b/tests/clock.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: clock.test,v 1.73 2007/03/09 02:26:05 kennykb Exp $ +# RCS: @(#) $Id: clock.test,v 1.74 2007/04/15 18:59:34 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -284,6 +284,10 @@ test clock-1.6 "clock format - gmt + timezone" { list [catch {clock format 0 -timezone :GMT -gmt true} msg] $msg $::errorCode } {1 {cannot use -gmt and -timezone in same call} {CLOCK gmtWithTimezone}} +test clock-1.7 "clock format - option abbreviations" { + clock format 0 -g true -f "%Y-%m-%d" +} 1970-01-01 + # BEGIN testcases2 # Test formatting of Gregorian year, month, day, all formats @@ -36436,6 +36440,10 @@ test clock-56.3 {use of zoneinfo, version 2, Y2038 compliance} {*}{ -result {2040-07-01 00:00:00 PDT} } +test clock-57.1 {clock scan - abbreviated options} { + clock scan 1970-01-01 -f %Y-%m-%d -g true +} 0 + # cleanup namespace delete ::testClock |