From 960c8d47f064644617a605b1225a18e9350be995 Mon Sep 17 00:00:00 2001
From: Teo Camarasu <teo.camarasu@tracsis.com>
Date: Thu, 29 Feb 2024 16:08:19 +0000
Subject: [PATCH] Reduce AtomicModifyIORef increment count
This test leads to a lot of contention when N>2 and becomes very slow. Let's reduce the amount of work we do to compensate. Resolves #24490
---
libraries/base/tests/AtomicModifyIORef.hs | 2 +-
libraries/base/tests/AtomicModifyIORef.stdout | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/libraries/base/tests/AtomicModifyIORef.hs b/libraries/base/tests/AtomicModifyIORef.hs
index 3aa39394898e..7cd5d0c6e2fa 100644
--- a/libraries/base/tests/AtomicModifyIORef.hs
+++ b/libraries/base/tests/AtomicModifyIORef.hs
@@ -5,7 +5,7 @@ import Data.IORef
main :: IO ()
main = do
let nThreads = 10
- nIncrs = 10000000
+ nIncrs = 10000
ref <- newIORef (42 :: Int)
dones <- replicateM nThreads $ do
diff --git a/libraries/base/tests/AtomicModifyIORef.stdout b/libraries/base/tests/AtomicModifyIORef.stdout
index 3f60432fe38b..1ddf892b784f 100644
--- a/libraries/base/tests/AtomicModifyIORef.stdout
+++ b/libraries/base/tests/AtomicModifyIORef.stdout
@@ -8,4 +8,4 @@
.
.
.
-100000042
+100042
--
GitLab