diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/clock.test | 37 |
1 files changed, 30 insertions, 7 deletions
diff --git a/tests/clock.test b/tests/clock.test index 5736dfc..a63ea3c 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.36 2004/08/18 20:59:34 kennykb Exp $ +# RCS: @(#) $Id: clock.test,v 1.37 2004/08/19 18:55:25 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -134,6 +134,35 @@ package require msgcat 1.4 # clock-29 # scanning of all time-of-day formats # +# clock-30 +# [clock add] +# +# clock-31 +# Use of -locale system on Windows +# +# clock-32 +# Handling of the Julian-Gregorian transition +# +# clock-33 +# Legacy tests - [clock clicks] +# +# clock-34 +# Legacy tests - [clock scan] without -format +# +# clock-35 +# Legacy tests - [clock seconds] +# +# clock-36 +# Legacy tests - [clock scan] with 'next monthname' +# +# clock-37 +# Test that -gmt does not affect the value of %s +# +# clock-38 +# Regression test to verify that changes in TZ work +# both east and west of Greenwich + + # Note that all code between comments '# BEGIN' and '# END' is # autogenerated by 'tools/makeTestCases.tcl'. DO NOT EDIT CODE BETWEEN # '# BEGIN' and '# END'. @@ -35163,13 +35192,7 @@ test clock-36.3 {clock scan next monthname} { -format %m.%Y } "05.2001" -set ::tcltest::testConstraints(needPST) [expr { - [regexp {^(Pacific.*|P[DS]T)$} [clock format 1 -format %Z]] - && ([clock format 1 -format %s] != "%s") -}] test clock-37.1 {%s gmt testing} { - # We need PST to guarantee the difference value below, and %s isn't - # valid on all OSes (like Solaris). set s [clock seconds] set a [clock format $s -format %s -gmt 0] set b [clock format $s -format %s -gmt 1] |