From fbe3b66092f0290a222bc565bc1ac0c02ebda0dc Mon Sep 17 00:00:00 2001
From: Kristian Larsson <kristian@spritelink.net>
Date: Tue, 2 Aug 2022 13:40:20 +0200
Subject: [PATCH] Slight delay

---
 compiler/test.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/test.hs b/compiler/test.hs
index 16a1b3d8f..3e2968260 100644
--- a/compiler/test.hs
+++ b/compiler/test.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE CPP #-}
+import Control.Concurrent
 import Data.List
 import Data.List.Split
 import Data.Maybe
@@ -146,6 +147,7 @@ rtsTests =
           -- worker threads (as specified on command line), IO+new IO & main
           testBuild "" ExitSuccess False "../test/rts/wthreads1.act"
           (pin, pout, perr, ph) <- runInteractiveProcess "../test/rts/wthreads1" ["--rts-wthreads=7"] Nothing Nothing
+          threadDelay 100000
           mpid <- getPid ph
           case mpid of
               Just pid -> do