From 05281320e20417222df379d9e5a00cfc4c22a339 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 23 Nov 2011 09:27:30 +0000
Subject: [PATCH] make this test more predictable
---
tests/fork/hpc_fork.hs | 5 +++--
tests/fork/hpc_fork.stdout | 15 +++++++--------
2 files changed, 10 insertions(+), 10 deletions(-)
diff --git a/tests/fork/hpc_fork.hs b/tests/fork/hpc_fork.hs
index bfcf6f1..ac912a8 100644
--- a/tests/fork/hpc_fork.hs
+++ b/tests/fork/hpc_fork.hs
@@ -1,9 +1,10 @@
module Main where
import System.Posix.Process
+import Control.Concurrent
main = do
- pid1 <- forkProcess $ do print "Hello"
- pid2 <- forkProcess $ do print "World"
+ pid1 <- forkProcess $ do threadDelay 100000
+ pid2 <- forkProcess $ do threadDelay 100000
print ()
diff --git a/tests/fork/hpc_fork.stdout b/tests/fork/hpc_fork.stdout
index 5fe5a22..14086d9 100644
--- a/tests/fork/hpc_fork.stdout
+++ b/tests/fork/hpc_fork.stdout
@@ -1,6 +1,4 @@
()
-"Hello"
-"World"
53% expressions used (7/13)
@@ -39,12 +37,13 @@ span.spaces { background: white }
<span class="lineno"> 1 </span>module Main where
<span class="lineno"> 2 </span>
<span class="lineno"> 3 </span>import System.Posix.Process
-<span class="lineno"> 4 </span>
-<span class="lineno"> 5 </span><span class="decl"><span class="istickedoff">main = do</span>
-<span class="lineno"> 6 </span><span class="spaces"> </span><span class="istickedoff">pid1 <- forkProcess $ <span class="nottickedoff">do print "Hello"</span></span>
-<span class="lineno"> 7 </span><span class="spaces"> </span><span class="istickedoff">pid2 <- forkProcess $ <span class="nottickedoff">do print "World"</span></span>
-<span class="lineno"> 8 </span><span class="spaces"> </span><span class="istickedoff">print ()</span></span>
-<span class="lineno"> 9 </span>
+<span class="lineno"> 4 </span>import Control.Concurrent
+<span class="lineno"> 5 </span>
+<span class="lineno"> 6 </span><span class="decl"><span class="istickedoff">main = do</span>
+<span class="lineno"> 7 </span><span class="spaces"> </span><span class="istickedoff">pid1 <- forkProcess $ <span class="nottickedoff">do threadDelay 100000</span></span>
+<span class="lineno"> 8 </span><span class="spaces"> </span><span class="istickedoff">pid2 <- forkProcess $ <span class="nottickedoff">do threadDelay 100000</span></span>
+<span class="lineno"> 9 </span><span class="spaces"> </span><span class="istickedoff">print ()</span></span>
+<span class="lineno"> 10 </span>
</pre>
</html>
--
GitLab