diff options
Diffstat (limited to 'tests/winTime.test')
| -rw-r--r-- | tests/winTime.test | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/winTime.test b/tests/winTime.test index ea663e5..add8f98 100644 --- a/tests/winTime.test +++ b/tests/winTime.test @@ -9,26 +9,27 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: winTime.test,v 1.8.2.1 2003/04/12 20:11:34 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest namespace import -force ::tcltest::* } +::tcltest::loadTestedCommands +catch [list package require -exact Tcltest [info patchlevel]] + testConstraint testwinclock [llength [info commands testwinclock]] # The next two tests will crash on Windows if the check for negative # clock values is not done properly. -test winTime-1.1 {TclpGetDate} {pcOnly} { +test winTime-1.1 {TclpGetDate} {win} { set ::env(TZ) JST-9 set result [clock format -1 -format %Y] unset ::env(TZ) set result } {1970} -test winTime-1.2 {TclpGetDate} {pcOnly} { +test winTime-1.2 {TclpGetDate} {win} { set ::env(TZ) PST8 set result [clock format 1 -format %Y] unset ::env(TZ) |