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

Add test for garbage collecting threads.

diff --git a/ghc/tests/concurrent/should_run/conc019.hs b/ghc/tests/concurrent/should_run/conc019.hs
new file mode 100644 (file)
index 0000000..722cf03
--- /dev/null
+++ b/ghc/tests/concurrent/should_run/conc019.hs
@@ -0,0 +1,9 @@
+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

diff --git a/ghc/tests/concurrent/should_run/conc019.stdout b/ghc/tests/concurrent/should_run/conc019.stdout
new file mode 100644 (file)
index 0000000..afc24a6
--- /dev/null
+++ b/ghc/tests/concurrent/should_run/conc019.stdout
@@ -0,0 +1,2 @@
+caught: thread blocked indefinitely
+50005000