Commit 9622ebad authored by ken's avatar ken
Browse files

[project @ 2001-09-05 04:06:41 by ken]

Don't buffer stdout when running tests, to keep log files tidy
when we redirect both stderr and stdout into the same log file
from runtest.
parent 38954113
......@@ -11,7 +11,8 @@ import List
import Maybe ( isJust, fromJust )
import Monad ( when )
import Time ( ClockTime, getClockTime )
import IO ( try )
import IO ( try, stdout, hFlush,
hSetBuffering, BufferMode(NoBuffering) )
--import IOExts(trace)
......@@ -171,6 +172,8 @@ got_args opts args start_time
)
let parsed_ok = map unRight (filter isRight all_parsed)
-- Run all the tests in each successfully-parsed .T file.
hFlush stdout
hSetBuffering stdout NoBuffering
resultss
<- mapM ( \ (path,topdefs) -> processParsedTFile
tests_to_run
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment