diff options
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' |