From 1e8e4a1915349410211d93efa6563fc27ef18e1a Mon Sep 17 00:00:00 2001 From: mangoiv Date: Thu, 26 Mar 2026 11:13:42 +0100 Subject: [PATCH] testsuite: don't run a regression test 1000 times This regression test was added because the loop was hanging in the second iteration. It does not need to run a thousand time. This should reduce the test runtime from 1min40s to 300ms --- tests/T16707.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/T16707.hs b/tests/T16707.hs index 61e723c..126567f 100644 --- a/tests/T16707.hs +++ b/tests/T16707.hs @@ -3,7 +3,7 @@ import Control.Concurrent.STM import Debug.Trace main :: IO () -main = (`mapM_` [1..1000]) $ \_ -> do +main = (`mapM_` [1..3]) $ \_ -> do traceEventIO "((((" x <- newTVarIO False