[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 (file)
--- 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 (file)
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 (file)
index 0000000..e69de29