diff options
author | 2007-03-05 14:52:58 +0000 | |
---|---|---|
committer | 2007-03-05 14:52:58 +0000 | |
commit | 6aca925ef28bf0a0a311bc8e33ec9a5aa2ded6ad (patch) | |
tree | 56d12852ae789bc48d0fb8b15837e20a6ca718b1 /tests/forkprocess01.hs | |
parent | 7b8f8d32be1a6b14317a6373bc4a40b03285aa4d (diff) |
add tests from GHC testsuite
Diffstat (limited to 'tests/forkprocess01.hs')
-rw-r--r-- | tests/forkprocess01.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/forkprocess01.hs b/tests/forkprocess01.hs new file mode 100644 index 0000000..b4bc78b --- /dev/null +++ b/tests/forkprocess01.hs @@ -0,0 +1,9 @@ +-- Test that we can call exitFailure in a forked process, and have it +-- communicated properly to the parent. +import System.Exit +import System.Posix.Process +main = do + p <- forkProcess exitFailure + r <- getProcessStatus True False p + print r + |