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