add test for #5314

ghc · Jul 20, 2011 · 470e0ea · 470e0ea
1 parent dfdc39b
commit 470e0ea
Show file tree

Hide file tree

Showing 3 changed files with 18 additions and 0 deletions.
diff --git a/tests/ghc-regress/profiling/should_run/5314.hs b/tests/ghc-regress/profiling/should_run/5314.hs
@@ -0,0 +1,10 @@
+import Control.Concurrent
+import Control.Monad (forever)
+
+main = do
+    empty <- newEmptyMVar
+    exit <- newEmptyMVar
+    _ <- forkIO $ threadDelay 200000 >> putMVar exit ()
+    _ <- forkIO $ takeMVar empty >> return ()
+    _ <- forkIO $ print (sum [1..10000])
+    takeMVar exit
diff --git a/tests/ghc-regress/profiling/should_run/5314.stdout b/tests/ghc-regress/profiling/should_run/5314.stdout
@@ -0,0 +1 @@
+50005000
diff --git a/tests/ghc-regress/profiling/should_run/all.T b/tests/ghc-regress/profiling/should_run/all.T
@@ -25,3 +25,10 @@ test('T3001-2',
 test('scc001', [expect_broken(4414), req_profiling],
      run_command, ['$MAKE -s --no-print-directory scc001'])
 
+
+test('5314',
+     composes([only_ways(prof_ways + extra_prof_ways),
+               extra_ways(extra_prof_ways),
+               req_profiling]),
+     compile_and_run,
+     [''])