[commit: hpc] master: make this test more predictable (0528132)

[Simon Marlow]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/hpc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/05281320e20417222df379d9e5a00cfc4c22a339

>---------------------------------------------------------------

commit 05281320e20417222df379d9e5a00cfc4c22a339
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Wed Nov 23 09:27:30 2011 +0000

    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 &lt;- forkProcess $ <span class="nottickedoff">do print &quot;Hello&quot;</span></span>
-<span class="lineno">    7 </span><span class="spaces">  </span><span class="istickedoff">pid2 &lt;- forkProcess $ <span class="nottickedoff">do print &quot;World&quot;</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 &lt;- forkProcess $ <span class="nottickedoff">do threadDelay 100000</span></span>
+<span class="lineno">    8 </span><span class="spaces">  </span><span class="istickedoff">pid2 &lt;- 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>