From: simonmar <unknown>
Date: Fri, 17 Mar 2000 10:01:29 +0000 (+0000)
Subject: [project @ 2000-03-17 10:01:29 by simonmar]
X-Git-Tag: Approximately_9120_patches~4960
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bdad103c438898c1f90b6d1d4f0d9009f05a58ed;p=ghc-hetmet.git

[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
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
index 0000000..afc24a6
--- /dev/null
+++ b/ghc/tests/concurrent/should_run/conc019.stdout
@@ -0,0 +1,2 @@
+caught: thread blocked indefinitely
+50005000