[project @ 2005-08-01 13:26:43 by simonmar]

add System.Process test

testsuite/tests/ghc-regress/lib/Process/all.T

 test('process001', normal, compile_and_run, [''])
 test('process002', normal, compile_and_run, [''])
+test('process003', normal, compile_and_run, [''])

testsuite/tests/ghc-regress/lib/Process/process003.hs

+-- [ ghc-Bugs-1249226 ] runInteractiveProcess and closed stdin.
+-- Fixed in rev  1.9 of fptools/libraries/base/cbits/runProcess.c
+
+import System.IO
+import Control.Concurrent
+import System.Process
+
+main = do
+  hClose stdin -- everything works as expected if the handle isn't closed.
+  putStrLn "Running cat ..."
+  (inp, out, err, pid) <- runInteractiveProcess "cat" [] Nothing Nothing
+  forkIO (hPutStrLn inp "foo" >> hClose inp)
+  mout <- newEmptyMVar
+  merr <- newEmptyMVar
+  forkIO (hGetContents out >>= \s -> length s `seq` putMVar mout s)
+  forkIO (hGetContents err >>= \s -> length s `seq` putMVar merr s)
+  -- Don't want to deal with waitForProcess and -threaded right now.
+  takeMVar mout >>= putStrLn
+  takeMVar merr >>= putStrLn
+  return ()

testsuite/tests/ghc-regress/lib/Process/process003.stdout

+Running cat ...
+foo
+
+