[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.

testsuite/driver/Main.hs

@@ -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