From 5fa155d0ce5bc8a3cea58330720e2e1d8529ce22 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 30 Oct 2001 16:17:34 +0000
Subject: [PATCH] [project @ 2001-10-30 16:17:34 by simonmar] Add
 deadlock-detection test.

---
 ghc/tests/ghci/ghci010.script |    3 +++
 ghc/tests/ghci/ghci010.stdout |   14 ++++++++++++++
 2 files changed, 17 insertions(+)
 create mode 100644 ghc/tests/ghci/ghci010.script
 create mode 100644 ghc/tests/ghci/ghci010.stdout

diff --git a/ghc/tests/ghci/ghci010.script b/ghc/tests/ghci/ghci010.script
new file mode 100644
index 0000000..ab08202
--- /dev/null
+++ b/ghc/tests/ghci/ghci010.script
@@ -0,0 +1,3 @@
+-- !!! check we can detect deadlock
+:set -package concurrent
+Concurrent.newEmptyMVar >>= Concurrent.takeMVar
diff --git a/ghc/tests/ghci/ghci010.stdout b/ghc/tests/ghci/ghci010.stdout
new file mode 100644
index 0000000..b0be06f
--- /dev/null
+++ b/ghc/tests/ghci/ghci010.stdout
@@ -0,0 +1,14 @@
+   ___         ___ _
+  / _ \ /\  /\/ __(_)
+ / /_\// /_/ / /  | |      GHC Interactive, version 5.03, for Haskell 98.
+/ /_\\/ __  / /___| |      http://www.haskell.org/ghc/
+\____/\/ /_/\____/|_|      Type :? for help.
+
+Loading package std ... linking ... done.
+Prelude> -- !!! check we can detect deadlock
+Prelude> :set -package concurrent
+Loading package lang ... linking ... done.
+Loading package concurrent ... linking ... done.
+Prelude> Concurrent.newEmptyMVar >>= Concurrent.takeMVar
+Deadlocked.
+Prelude> Leaving GHCi.
-- 
1.7.10.4