From 2d4e87b986c01a174757d0c728164f7809206654 Mon Sep 17 00:00:00 2001
From: sebres <sebres@users.sourceforge.net>
Date: Fri, 8 Mar 2019 04:35:41 +0000
Subject: fixed mistake ($howmuch is substituted in tests and can be larger as
 last event index created by too small measurement time).

---
 tests-perf/timer-event.perf.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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}
-- 
cgit v0.12