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 /tests-perf/timer-event.perf.tcl | |
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).
Diffstat (limited to 'tests-perf/timer-event.perf.tcl')
-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} |