[commit: packages/process] master: GH77: Update testsuite. (e89d6e1)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/process

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/e89d6e1362e77c8d2da57d991327d99b6b51b06a/process

>---------------------------------------------------------------

commit e89d6e1362e77c8d2da57d991327d99b6b51b06a
Author: Tamar Christina <tamar at zhox.com>
Date:   Sat Dec 10 21:56:58 2016 +0000

    GH77: Update testsuite.


>---------------------------------------------------------------

e89d6e1362e77c8d2da57d991327d99b6b51b06a
 tests/T9775/T9775_fail.hs | 1 -
 tests/T9775/T9775_good.hs | 1 -
 tests/T9775/all.T         | 6 ++++++
 3 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/tests/T9775/T9775_fail.hs b/tests/T9775/T9775_fail.hs
index b9095b1..a3e239e 100644
--- a/tests/T9775/T9775_fail.hs
+++ b/tests/T9775/T9775_fail.hs
@@ -5,4 +5,3 @@ import System.Process
 main
  = do (_,_,_,p) <- createProcess_ "T9775_fail" (proc "main" [])
       waitForProcess p >>= print
-      
\ No newline at end of file
diff --git a/tests/T9775/T9775_good.hs b/tests/T9775/T9775_good.hs
index 07600e5..9461754 100644
--- a/tests/T9775/T9775_good.hs
+++ b/tests/T9775/T9775_good.hs
@@ -9,4 +9,3 @@ main
       maybe (ExitFailure (-1)) mkExitCode <$> waitForJobCompletion j io timeout_Infinite >>= print
         where mkExitCode code | code == 0 = ExitSuccess
                               | otherwise = ExitFailure $ fromIntegral code
-      
\ No newline at end of file
diff --git a/tests/T9775/all.T b/tests/T9775/all.T
index dbccb29..f8d7764 100644
--- a/tests/T9775/all.T
+++ b/tests/T9775/all.T
@@ -4,3 +4,9 @@ test('T12725_fail',
      [unless(opsys('mingw32'),skip)]
       pre_cmd('$MAKE -s --no-print-directory T12725')],
      compile_and_run, [''])
+
+test('T12725_good',
+     [extra_clean(['ok.o', 'ok.exe', 'main.o', 'main.exe']),
+     [unless(opsys('mingw32'),skip)]
+      pre_cmd('$MAKE -s --no-print-directory T12725')],
+     compile_and_run, [''])