[commit: testsuite] master: Do hFlush in the T8639_api test (aae5cf6)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/aae5cf6a7de61f2502f350788e9b694bc76e62d0/testsuite

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

commit aae5cf6a7de61f2502f350788e9b694bc76e62d0
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Jan 3 16:10:27 2014 +0000

    Do hFlush in the T8639_api test


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

aae5cf6a7de61f2502f350788e9b694bc76e62d0
 tests/ghc-api/T8639_api.hs     |    3 ++-
 tests/ghc-api/T8639_api.stdout |    1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/ghc-api/T8639_api.hs b/tests/ghc-api/T8639_api.hs
index 4232aa0..2ddfb49 100644
--- a/tests/ghc-api/T8639_api.hs
+++ b/tests/ghc-api/T8639_api.hs
@@ -14,12 +14,13 @@ main
            target <- guessTarget "T8639_api_a.hs" Nothing
            setTargets [target]
            load LoadAllTargets
-           imps <- mapM parseImportDecl ["import Prelude", "import T8639_api_a"]
+           imps <- mapM parseImportDecl ["import Prelude", "import System.IO", "import T8639_api_a"]
            setContext (map IIDecl imps)
 
            -- With the next line, you get an "Not in scope" exception.
            -- If you comment out this runStmt, it runs without error and prints the  type.
            runStmt "putStrLn (show 3)" RunToCompletion
+           runStmt "hFlush stdout" RunToCompletion
 
            ty <- exprType "T8639_api_a.it"
            liftIO (putStrLn (showPpr flags ty))
diff --git a/tests/ghc-api/T8639_api.stdout b/tests/ghc-api/T8639_api.stdout
index 3d957c1..659a1dd 100644
--- a/tests/ghc-api/T8639_api.stdout
+++ b/tests/ghc-api/T8639_api.stdout
@@ -1 +1,2 @@
+3
 GHC.Types.Bool