diff options
author | Ian Lynagh <igloo@earth.li> | 2007-04-18 11:45:42 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2007-04-18 11:45:42 +0000 |
commit | e3c17825cd6de850cc7e4936ea6068f5275f2a6a (patch) | |
tree | a6e5cb30e2c94561cf7b30b7d8f4526684c581a3 /tests | |
parent | f506c3a5a8dde7f62109b626bdae58fc8c3f1441 (diff) |
Make it more obvious that the forkprocess01 test is really working
Diffstat (limited to 'tests')
-rw-r--r-- | tests/forkprocess01.hs | 2 | ||||
-rw-r--r-- | tests/forkprocess01.stdout | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tests/forkprocess01.hs b/tests/forkprocess01.hs index b4bc78b..bc182c5 100644 --- a/tests/forkprocess01.hs +++ b/tests/forkprocess01.hs @@ -3,7 +3,7 @@ import System.Exit import System.Posix.Process main = do - p <- forkProcess exitFailure + p <- forkProcess $ exitWith (ExitFailure 72) r <- getProcessStatus True False p print r diff --git a/tests/forkprocess01.stdout b/tests/forkprocess01.stdout index 423e57d..3c10134 100644 --- a/tests/forkprocess01.stdout +++ b/tests/forkprocess01.stdout @@ -1 +1 @@ -Just (Exited (ExitFailure 1)) +Just (Exited (ExitFailure 72)) |