diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/clock.test | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/tests/clock.test b/tests/clock.test index 5c01e5e..2599dd7 100644 --- a/tests/clock.test +++ b/tests/clock.test @@ -10,7 +10,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.22.2.4 2004/05/27 18:25:46 kennykb Exp $ +# RCS: @(#) $Id: clock.test,v 1.22.2.5 2004/05/27 18:43:19 kennykb Exp $ set env(LC_TIME) POSIX @@ -465,11 +465,17 @@ test clock-8.1 {clock scan midnight/gmt range bug 413397} { [clock format [clock scan year -base $5amPST -gmt 1] -format $fmt] } {12/31 12/31} -set ::tcltest::testConstraints(needPST) [expr { +::tcltest::testConstraint needPST [expr { [regexp {^(Pacific.*|P[DS]T)$} [clock format 1 -format %Z]] && ([clock format 1 -format %s] != "%s") }] + test clock-9.1 {%s gmt testing} {needPST} { + + # Note that this test will fail if the strftime on the underlying + # system doesn't support the %s format group. Systems that are known + # to have trouble include the native C libraries on AIX and HP-UX + # We need PST to guarantee the difference value below, and %s isn't # valid on all OSes (like Solaris). set s 100000 |