From b8b6d871386ce70c5bf54f3bd91efa2dc7364eb7 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 21 Aug 2001 14:44:22 +0000
Subject: [PATCH] [project @ 2001-08-21 14:44:22 by simonmar] Test that
 System.exitWith doesn't kill the interpreter

---
 ghc/tests/ghci/ghci007.script |    2 ++
 ghc/tests/ghci/ghci007.stdout |   11 +++++++++++
 2 files changed, 13 insertions(+)
 create mode 100644 ghc/tests/ghci/ghci007.script
 create mode 100644 ghc/tests/ghci/ghci007.stdout

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.
-- 
1.7.10.4