[project @ 2001-02-14 14:14:55 by simonmar]

simple tryPutMVar test.

ghc/tests/concurrent/should_run/conc028.hs

+-- test tryPutMVar
+
+import Concurrent
+
+main = do
+  m <- newMVar ()
+  r <- tryPutMVar m ()
+  print r