diff --git a/tests/fork/hpc_fork.hs b/tests/fork/hpc_fork.hs index bfcf6f1da6b1bf8353147998c3e226f86f97367e..ac912a83f21b812e897cc5e4464771c5c75a14f4 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 5fe5a222fddcfcf203647d301ffe2d8db7c38666..14086d930d6f9908ef64c9de8806b0199ff2fe3c 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>