From dd45ade779bbbb681126a9e843ac6479f00c0349 Mon Sep 17 00:00:00 2001
From: John Sully <john@csquare.ca>
Date: Sun, 31 May 2020 21:26:39 -0400
Subject: [PATCH] --loop should run forever

Former-commit-id: 9b1e636a6654a4ba3b629b5ad1097caf513ca000
---
 tests/test_helper.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/test_helper.tcl b/tests/test_helper.tcl
index 85b89f711..625ef9602 100644
--- a/tests/test_helper.tcl
+++ b/tests/test_helper.tcl
@@ -613,7 +613,7 @@ for {set j 0} {$j < [llength $argv]} {incr j} {
     } elseif {$opt eq {--stop}} {
         set ::stop_on_failure 1
     } elseif {$opt eq {--loop}} {
-        set ::loop 1000
+        set ::loop -1
     } elseif {$opt eq {--loopn}} {
         set ::loop [expr $arg - 1]
         incr j