[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 (file)
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 (file)
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.