diff options
| author |  Favonia <favonia@gmail.com> | 2011-05-11 22:35:53 -0400 |
|---|---|---|
| committer |  Simon Marlow <marlowsd@gmail.com> | 2011-05-23 10:36:46 +0100 |
| commit | 6f88d3dd6e107c996b701b7f4fccaef171440722 (patch) | |
| tree | 6831a3a737a9d1a98f722bf4e2c0dc1b8e080760 /tests/processGroup001.hs | |
| parent | ff80c44c25ab6233fdd0180275c9981400007c1c (diff) | |
Test cases for the new process group API.
Diffstat (limited to 'tests/processGroup001.hs')
| -rw-r--r-- | tests/processGroup001.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/processGroup001.hs b/tests/processGroup001.hs new file mode 100644 index 0000000..cd9f70b --- /dev/null +++ b/tests/processGroup001.hs @@ -0,0 +1,7 @@ +import System.Posix.Process + +main = do + pgid <- getProcessGroupID + pgid' <- getProcessGroupIDOf =<< getProcessID + putStr "Testing getProcessGroupID == getProcessGroupIDOf =<< getProcessID: " + print $ pgid == pgid' |