Make it more obvious that the forkprocess01 test is really working
authorIan Lynagh <igloo@earth.li>
Wed, 18 Apr 2007 11:45:42 +0000 (11:45 +0000)
committerIan Lynagh <igloo@earth.li>
Wed, 18 Apr 2007 11:45:42 +0000 (11:45 +0000)
tests/forkprocess01.hs
tests/forkprocess01.stdout

index b4bc78b..bc182c5 100644 (file)
@@ -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
 
index 423e57d..3c10134 100644 (file)
@@ -1 +1 @@
-Just (Exited (ExitFailure 1))
+Just (Exited (ExitFailure 72))