path: root/tests/processGroup001.hs

import System.Posix.Process

main = do
	pgid <- getProcessGroupID
	pgid' <- getProcessGroupIDOf =<< getProcessID
	putStr "Testing getProcessGroupID == getProcessGroupIDOf =<< getProcessID: "
	print $ pgid == pgid'