diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2020-02-23 15:46:19 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-02-26 15:10:09 -0500 |
| commit | 217546a798e1eb5a931a677771bbd54bb0e4b5ee (patch) | |
| tree | 985d94084bc7da043ecdefa6c90fb13319055c02 /testsuite/tests/rts/InitEventLogging.hs | |
| parent | 43b13ed33f50274383a8dce11cbd7c77b8e851d5 (diff) | |
| download | haskell-217546a798e1eb5a931a677771bbd54bb0e4b5ee.tar.gz | |
testsuite: Flush stdout buffers in InitEventLogging
Otherwise we are sensitive to libc's buffering strategy.
Similar to the issue fixed in 543dfaab166c81f46ac4af76918ce32190aaab22.
Diffstat (limited to 'testsuite/tests/rts/InitEventLogging.hs')
| -rw-r--r-- | testsuite/tests/rts/InitEventLogging.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/testsuite/tests/rts/InitEventLogging.hs b/testsuite/tests/rts/InitEventLogging.hs index 1ec1e65028..83d49d20cc 100644 --- a/testsuite/tests/rts/InitEventLogging.hs +++ b/testsuite/tests/rts/InitEventLogging.hs @@ -1,11 +1,13 @@ {-# LANGUAGE ForeignFunctionInterface #-} +import System.IO + -- Test that the startEventLog interface works as expected. main :: IO () main = do putStrLn "Starting eventlog..." + hFlush stdout c_init_eventlog - putStrLn "done" foreign import ccall unsafe "init_eventlog" c_init_eventlog :: IO () |