From 29dcb8812ba4e363cc627861f9695e4d9ad418e5 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 14 Feb 2001 14:14:55 +0000
Subject: [PATCH] [project @ 2001-02-14 14:14:55 by simonmar] simple
 tryPutMVar test.

---
 ghc/tests/concurrent/should_run/conc028.hs |    8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 ghc/tests/concurrent/should_run/conc028.hs

diff --git a/ghc/tests/concurrent/should_run/conc028.hs b/ghc/tests/concurrent/should_run/conc028.hs
new file mode 100644
index 0000000..ee39aad
--- /dev/null
+++ b/ghc/tests/concurrent/should_run/conc028.hs
@@ -0,0 +1,8 @@
+-- test tryPutMVar
+
+import Concurrent
+
+main = do
+  m <- newMVar ()
+  r <- tryPutMVar m ()
+  print r
-- 
1.7.10.4