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 <[email protected]> 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 <- 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> _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
