From: simonmar <unknown>
Date: Tue, 21 Aug 2001 14:44:22 +0000 (+0000)
Subject: [project @ 2001-08-21 14:44:22 by simonmar]
X-Git-Tag: Approximately_9120_patches~1147
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b8b6d871386ce70c5bf54f3bd91efa2dc7364eb7;p=ghc-hetmet.git

[project @ 2001-08-21 14:44:22 by simonmar]
Test that System.exitWith doesn't kill the interpreter
---

diff --git a/ghc/tests/ghci/ghci007.script b/ghc/tests/ghci/ghci007.script
new file mode 100644
index 0000000..31ece83
--- /dev/null
+++ b/ghc/tests/ghci/ghci007.script
@@ -0,0 +1,2 @@
+-- bug: shouldn't kill the whole system
+System.exitFailure
diff --git a/ghc/tests/ghci/ghci007.stdout b/ghc/tests/ghci/ghci007.stdout
new file mode 100644
index 0000000..90b3d98
--- /dev/null
+++ b/ghc/tests/ghci/ghci007.stdout
@@ -0,0 +1,11 @@
+   ___         ___ _
+  / _ \ /\  /\/ __(_)
+ / /_\// /_/ / /  | |      GHC Interactive, version 5.01, for Haskell 98.
+/ /_\\/ __  / /___| |      http://www.haskell.org/ghc/
+\____/\/ /_/\____/|_|      Type :? for help.
+
+Loading package std ... linking ... done.
+Prelude> -- bug: shouldn't kill the whole system
+Prelude> System.exitFailure
+*** Exception: exit: ExitFailure 1
+Prelude> Leaving GHCi.