diff options
Diffstat (limited to 'tests/processGroup002.hs')
| -rw-r--r-- | tests/processGroup002.hs | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/tests/processGroup002.hs b/tests/processGroup002.hs new file mode 100644 index 0000000..c93a416 --- /dev/null +++ b/tests/processGroup002.hs @@ -0,0 +1,21 @@ +import System.Posix.Process + +main = do + pid <- getProcessID + ppid <- getParentProcessID + ppgid <- getProcessGroupIDOf ppid + -- join the parent process + putStr "Testing joinProcessGroup: " + joinProcessGroup ppgid + pgid1 <- getProcessGroupID + print $ ppgid == pgid1 + -- be a leader + putStr "Testing createProcessGroupFor: " + createProcessGroupFor pid + pgid2 <- getProcessGroupID + print $ pid == fromIntegral pgid2 + -- and join the parent again + putStr "Testing setProcessGroupIDOf: " + setProcessGroupIDOf pid ppgid + pgid3 <- getProcessGroupID + print $ ppgid == pgid3 |