From 703e7dd2531bab99bdf6827118ff342dd975e328 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 13 Mar 2000 11:39:22 +0000
Subject: [PATCH] [project @ 2000-03-13 11:39:22 by simonmar] Add PutFullMVar
 test

---
 ghc/tests/concurrent/should_run/Makefile   |    3 ++-
 ghc/tests/concurrent/should_run/conc018.hs |    9 +++++++++
 2 files changed, 11 insertions(+), 1 deletion(-)
 create mode 100644 ghc/tests/concurrent/should_run/conc018.hs
 create mode 100644 ghc/tests/concurrent/should_run/conc018.stderr

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
-- 
1.7.10.4