From: simonmar <unknown>
Date: Tue, 30 Oct 2001 16:17:34 +0000 (+0000)
Subject: [project @ 2001-10-30 16:17:34 by simonmar]
X-Git-Tag: Approximately_9120_patches~675
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5fa155d0ce5bc8a3cea58330720e2e1d8529ce22;p=ghc-hetmet.git

[project @ 2001-10-30 16:17:34 by simonmar]
Add deadlock-detection test.
---

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.