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

Add PutFullMVar test

ghc/tests/concurrent/should_run/Makefile

 #-----------------------------------------------------------------------------
-# $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
 

ghc/tests/concurrent/should_run/conc018.hs

+import Concurrent
+
+main = do
+  catch (do
+  	m <- newMVar ()
+	putMVar m ()
+     )
+     (\e -> print e)
+