From: simonmar <unknown>
Date: Mon, 13 Mar 2000 11:39:22 +0000 (+0000)
Subject: [project @ 2000-03-13 11:39:22 by simonmar]
X-Git-Tag: Approximately_9120_patches~5004
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=703e7dd2531bab99bdf6827118ff342dd975e328;p=ghc-hetmet.git

[project @ 2000-03-13 11:39:22 by simonmar]
Add PutFullMVar test
---

diff --git a/ghc/tests/concurrent/should_run/Makefile b/ghc/tests/concurrent/should_run/Makefile
index cad50ae..e53d38f 100644
--- a/ghc/tests/concurrent/should_run/Makefile
+++ b/ghc/tests/concurrent/should_run/Makefile
@@ -1,11 +1,12 @@
 #-----------------------------------------------------------------------------
-# $Id: Makefile,v 1.2 1999/03/16 13:20:21 simonm Exp $
+# $Id: Makefile,v 1.3 2000/03/13 11:39:22 simonmar Exp $
 
 TOP = ../..
 include $(TOP)/mk/boilerplate.mk
 include $(TOP)/mk/should_run.mk
 
 conc009_RUNTEST_OPTS = -x 1
+conc018_RUNTEST_OPTS = -x 1
 
 SRC_HC_OPTS += -dcore-lint -syslib concurrent -fglasgow-exts
 
diff --git a/ghc/tests/concurrent/should_run/conc018.hs b/ghc/tests/concurrent/should_run/conc018.hs
new file mode 100644
index 0000000..753d45b
--- /dev/null
+++ b/ghc/tests/concurrent/should_run/conc018.hs
@@ -0,0 +1,9 @@
+import Concurrent
+
+main = do
+  catch (do
+  	m <- newMVar ()
+	putMVar m ()
+     )
+     (\e -> print e)
+ 
diff --git a/ghc/tests/concurrent/should_run/conc018.stderr b/ghc/tests/concurrent/should_run/conc018.stderr
new file mode 100644
index 0000000..e69de29