Skip executeFile001 in threaded2 way
[packages/unix.git] / tests / processGroup001.hs
1 import System.Posix.Process
2
3 main = do
4 pgid <- getProcessGroupID
5 pgid' <- getProcessGroupIDOf =<< getProcessID
6 putStr "Testing getProcessGroupID == getProcessGroupIDOf =<< getProcessID: "
7 print $ pgid == pgid'