Skip to content

Commit

Permalink
PackageTests/TestSuiteTests/ExeV10: Have large output
Browse files Browse the repository at this point in the history
The test case is changed to print a rather large amount of text, large
enough to fill a buffer. This way, the buffer draining functionality in
the test runner is tested, and it reveals haskell#2398.

This makes the test suite currently fail, of course, but the bug was
there before.
  • Loading branch information
nomeata committed Nov 5, 2015
1 parent 5948e74 commit 8ec416c
Showing 1 changed file with 5 additions and 1 deletion.
Expand Up @@ -2,7 +2,11 @@ module Main where

import Foo
import System.Exit
import Control.Monad

main :: IO ()
main | fooTest [] = exitSuccess
main | fooTest [] = do
-- Make sure that the output buffer is drained
replicateM 10000 $ putStrLn "The quick brown fox jumps over the lazy dog"
exitSuccess
| otherwise = exitFailure

0 comments on commit 8ec416c

Please sign in to comment.