[plt-scheme] Flushing the log file in SRFI-64

From: Alan Watson (alan at alan-watson.org)
Date: Mon Jul 28 17:55:17 EDT 2008

I suggest flushing the log file in test-on-group-end-simple in  
SRFI-64. At the moment, the log file only seems to be written when the  
scheme VM exits (e.g., one closes the file containing the test suite  
in DrScheme).



--- collects/srfi/64/testing.ss.orig	2008-07-28 16:23:54.000000000 -0500
+++ collects/srfi/64/testing.ss	2008-07-28 16:32:47.000000000 -0500
@@ -257,7 +257,8 @@
        (when (output-port? log)
          (display "Group end: " log)
          (display (car (test-runner-group-stack runner)) log)
-        (newline log)))
+        (newline log)
+        (flush-output log)))

    (define (%test-on-bad-count-write runner count expected-count port)

Alan Watson

Posted on the users mailing list.