From 6f88d3dd6e107c996b701b7f4fccaef171440722 Mon Sep 17 00:00:00 2001 From: Favonia Date: Wed, 11 May 2011 22:35:53 -0400 Subject: Test cases for the new process group API. --- tests/processGroup001.hs | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 tests/processGroup001.hs (limited to 'tests/processGroup001.hs') 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' -- cgit v1.2.3