Skip to content
Snippets Groups Projects
Commit 8ec416cf authored by Joachim Breitner's avatar Joachim Breitner
Browse files

PackageTests/TestSuiteTests/ExeV10: Have large output

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 #2398.

This makes the test suite currently fail, of course, but the bug was
there before.
parent 5948e74e
No related branches found
No related tags found
No related merge requests found
......@@ -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% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment