diff options
| author | sebres <sebres@users.sourceforge.net> | 2019-03-08 04:35:41 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2019-03-08 04:35:41 (GMT) |
| commit | 2d4e87b986c01a174757d0c728164f7809206654 (patch) | |
| tree | 84e42c9b92396d484b7b9262266d23c69e5147b1 | |
| parent | bc27eb24301d103830c029cb4260e0338177e331 (diff) | |
| download | tcl-2d4e87b986c01a174757d0c728164f7809206654.zip tcl-2d4e87b986c01a174757d0c728164f7809206654.tar.gz tcl-2d4e87b986c01a174757d0c728164f7809206654.tar.bz2 | |
fixed mistake ($howmuch is substituted in tests and can be larger as last event index created by too small measurement time).
| -rw-r--r-- | tests-perf/timer-event.perf.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests-perf/timer-event.perf.tcl b/tests-perf/timer-event.perf.tcl index 805f0f8..c5a7d45 100644 --- a/tests-perf/timer-event.perf.tcl +++ b/tests-perf/timer-event.perf.tcl @@ -76,7 +76,7 @@ proc test-queue {{reptime {1000 10000}}} { # cancel forwards "after 0" / $howmuch timer-events in queue: setup {set i 0; timerate {set ev([incr i]) [after 0 {set foo bar}]} {*}$reptime} setup {set le $i; set i 0; list 1 .. $le; # cancel up to $howmuch events} - {after cancel $ev([incr i]); if {$i >= $howmuch} break} + {after cancel $ev([incr i]); if {$i >= $le} break} cleanup {update; unset -nocomplain ev} # cancel backwards "after 0" / $howmuch timer-events in queue: setup {set i 0; timerate {set ev([incr i]) [after 0 {set foo bar}]} {*}$reptime} |