diff options
author | sebres <sebres@users.sourceforge.net> | 2017-07-03 13:28:17 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2017-07-03 13:28:17 (GMT) |
commit | 97b969c05b650e02efd46fb0db7305c847d98230 (patch) | |
tree | 2b6e0853ba0bed137552672affab9541bb405278 | |
parent | fc99959a11991ca61d8713436b2a032f67559ae5 (diff) | |
download | tcl-97b969c05b650e02efd46fb0db7305c847d98230.zip tcl-97b969c05b650e02efd46fb0db7305c847d98230.tar.gz tcl-97b969c05b650e02efd46fb0db7305c847d98230.tar.bz2 |
extended performance test-cases (test-nrt-capability): RTS-near sleeps with very brief sleep-time.
-rw-r--r-- | tests-perf/timer-event.perf.tcl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests-perf/timer-event.perf.tcl b/tests-perf/timer-event.perf.tcl index 12b3320..a5ea8e1 100644 --- a/tests-perf/timer-event.perf.tcl +++ b/tests-perf/timer-event.perf.tcl @@ -86,6 +86,9 @@ proc test-exec {{reptime 1000}} { {update} # empty update idle tasks: {update idletasks} + + # simple shortest sleep: + {after 0} } } @@ -128,6 +131,15 @@ proc test-nrt-capability {{reptime 1000}} { {vwait 0.005 a} {vwait 0.001 a} + # NRT sleep / very brief delays (0.5 - 0.005): + {after 0.5} + {after 0.05} + {after 0.005} + # NRT sleep / very brief delays (0.1 - 0.001): + {after 0.1} + {after 0.01} + {after 0.001} + # comparison of update's executing event: {after idle {set a 5}; update -idle -timer} {after 0 {set a 5}; update -idle -timer} |