diff options
Diffstat (limited to 'testsuite/tests/ghc-regress/lib/System/system001.hs')
| -rw-r--r-- | testsuite/tests/ghc-regress/lib/System/system001.hs | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/testsuite/tests/ghc-regress/lib/System/system001.hs b/testsuite/tests/ghc-regress/lib/System/system001.hs deleted file mode 100644 index 4237d526af..0000000000 --- a/testsuite/tests/ghc-regress/lib/System/system001.hs +++ /dev/null @@ -1,14 +0,0 @@ --- Not run on mingw, because of /dev/null use - -import System.Cmd (system) -import System.Exit (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") |