summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2008-04-14 18:00:52 (GMT)
committerKevin B Kenny <kennykb@acm.org>2008-04-14 18:00:52 (GMT)
commit1be77f417e95d3afb2fe656716045099bca44351 (patch)
tree38e95b5789a61af583e7e9c52c68c2a3bf1e49fe /tests
parent341d48cddf65091ad525bc922760bd5fd87e86d7 (diff)
downloadtcl-1be77f417e95d3afb2fe656716045099bca44351.zip
tcl-1be77f417e95d3afb2fe656716045099bca44351.tar.gz
tcl-1be77f417e95d3afb2fe656716045099bca44351.tar.bz2
* tests/clock.test (clock-33.5, clock-33.5a, clock-33.8, clock-33.8a):
Added comments to the test that it can fail on a heavily loaded system.
Diffstat (limited to 'tests')
-rw-r--r--tests/clock.test10
1 files changed, 9 insertions, 1 deletions
diff --git a/tests/clock.test b/tests/clock.test
index c36f5fe..15e71eb 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.83 2008/02/27 02:08:27 kennykb Exp $
+# RCS: @(#) $Id: clock.test,v 1.84 2008/04/14 18:01:01 kennykb Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -35464,6 +35464,8 @@ test clock-33.4a {clock milliseconds} {
concat {}
} {}
test clock-33.5 {clock clicks tests, millisecond timing test} {
+ # This test can fail on a system that is so heavily loaded that
+ # the test takes >60 ms to run.
set start [clock clicks -milli]
after 10
set end [clock clicks -milli]
@@ -35474,6 +35476,8 @@ test clock-33.5 {clock clicks tests, millisecond timing test} {
"test should have taken 0-60 ms, actually took [expr $end - $start]"}
} {ok}
test clock-33.5a {clock tests, millisecond timing test} {
+ # This test can fail on a system that is so heavily loaded that
+ # the test takes >60 ms to run.
set start [clock milliseconds]
after 10
set end [clock milliseconds]
@@ -35491,12 +35495,16 @@ test clock-33.7 {clock clicks, milli with too much abbreviation} {
} {1 {ambiguous option "-": must be -milliseconds or -microseconds}}
test clock-33.8 {clock clicks test, microsecond timing test} {
+ # This test can fail on a system that is so heavily loaded that
+ # the test takes >60 ms to run.
set start [clock clicks -micro]
after 10
set end [clock clicks -micro]
expr {($end > $start) && (($end - $start) <= 60000)}
} {1}
test clock-33.8a {clock test, microsecond timing test} {
+ # This test can fail on a system that is so heavily loaded that
+ # the test takes >60 ms to run.
set start [clock microseconds]
after 10
set end [clock microseconds]