[project @ 2000-03-17 10:01:29 by simonmar]

Add test for garbage collecting threads.

[project @ 2000-03-17 10:01:29 by simonmar]
Add test for garbage collecting threads.
bdad103c · simonmar · 6169525a · bdad103c · bdad103c
Commit bdad103c authored Mar 17, 2000 by simonmar
Showing with 11 additions and 0 deletions

ghc/tests/concurrent/should_run/conc019.hs ghc/tests/concurrent/should_run/conc019.hs +9 -0

ghc/tests/concurrent/should_run/conc019.stdout ghc/tests/concurrent/should_run/conc019.stdout +2 -0

No files found.
--- a/ghc/tests/concurrent/should_run/conc019.hs
+++ b/ghc/tests/concurrent/should_run/conc019.hs
+import IO
+import Concurrent
+import Exception
+
+main = do
+  forkIO (catchAllIO (do { m <- newEmptyMVar; takeMVar m })
+		     (\e -> putStrLn ("caught: " ++ show e)))
+  let x = sum [1..10000]
+  x `seq` print x
--- a/ghc/tests/concurrent/should_run/conc019.stdout
+++ b/ghc/tests/concurrent/should_run/conc019.stdout
+caught: thread blocked indefinitely
+50005000