diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-26 08:58:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-26 08:58:18 (GMT) |
| commit | 820f8b93db0118a857d692bea2efa8b3b3149692 (patch) | |
| tree | b17bec8d546db8bc8d7fd364cbc9b871d85b7378 /tests | |
| parent | a02c3110409ef6de5cd52ce1a100e229c9c1c0a3 (diff) | |
| parent | 1637e28f70335fec7893a8dea29b33f7bb856658 (diff) | |
| download | tcl-820f8b93db0118a857d692bea2efa8b3b3149692.zip tcl-820f8b93db0118a857d692bea2efa8b3b3149692.tar.gz tcl-820f8b93db0118a857d692bea2efa8b3b3149692.tar.bz2 | |
Merge 8.5
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/all.tcl | 2 | ||||
| -rw-r--r-- | tests/winTime.test | 5 |
2 files changed, 4 insertions, 3 deletions
diff --git a/tests/all.tcl b/tests/all.tcl index 89a4f1a..287de1f 100644 --- a/tests/all.tcl +++ b/tests/all.tcl @@ -12,7 +12,7 @@ package prefer latest package require Tcl 8.5- -package require tcltest 2.2 +package require tcltest 2.5 namespace import ::tcltest::* configure {*}$argv -testdir [file dirname [file dirname [file normalize [ diff --git a/tests/winTime.test b/tests/winTime.test index add8f98..dbaa14c 100644 --- a/tests/winTime.test +++ b/tests/winTime.test @@ -19,6 +19,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} { catch [list package require -exact Tcltest [info patchlevel]] testConstraint testwinclock [llength [info commands testwinclock]] +testConstraint knownMsvcBug [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match windows $::env(TRAVIS_OS_NAME)]}] # The next two tests will crash on Windows if the check for negative # clock values is not done properly. @@ -40,7 +41,7 @@ test winTime-1.2 {TclpGetDate} {win} { # with the Windows clock. 30 sec really isn't enough, # but how much time does a tester have patience for? -test winTime-2.1 {Synchronization of Tcl and Windows clocks} {testwinclock} { +test winTime-2.1 {Synchronization of Tcl and Windows clocks} {testwinclock knownMsvcBug} { # May fail due to OS/hardware discrepancies. See: # http://support.microsoft.com/default.aspx?scid=kb;en-us;274323 set failed {} @@ -50,7 +51,7 @@ test winTime-2.1 {Synchronization of Tcl and Windows clocks} {testwinclock} { foreach { sys_sec sys_usec tcl_sec tcl_usec } [testwinclock] break set diff [expr { $tcl_sec - $sys_sec + 1.0e-6 * ( $tcl_usec - $sys_usec ) }] - if { abs($diff) > 0.06 } { + if { abs($diff) > 0.1 } { set failed "Tcl clock differs from system clock by $diff sec" break } else { |