[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / lib / System / system001.stdout

diff --git a/ghc/tests/lib/System/system001.stdout b/ghc/tests/lib/System/system001.stdout
deleted file mode 100644 (file)
index f6a8b0d..0000000
--- a/ghc/tests/lib/System/system001.stdout
+++ /dev/null
@@ -1,13 +0,0 @@
--- Not run on mingw, because of /dev/null use
-
-import System (system, ExitCode(..), exitWith)
-
-main = 
-    system "cat dog 1>/dev/null 2>&1" >>= \ ec ->
-    case ec of
-        ExitSuccess   -> putStr "What?!?\n" >> ioError (userError "dog succeeded")
-        ExitFailure _ ->
-            system "cat system001.hs 2>/dev/null" >>= \ ec ->
-           case ec of
-               ExitSuccess   -> exitWith ExitSuccess
-               ExitFailure _ -> putStr "What?!?\n" >> ioError (userError "cat failed")