Print test output properly with "--win" and "-no-win"

rejeep · Jan 15, 2017 · 6ab5e65 · 6ab5e65
1 parent 10628b8
commit 6ab5e65
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/ert-runner.el b/ert-runner.el
@@ -105,8 +105,10 @@ Arguments: stats, test, result")
 
 This bypasses the normal output capturing ert-runner does, and is
 primarily intended for reporters."
-  (princ (apply #'format format args)
-         t))
+  (let ((message (apply #'format format args)))
+    (if ert-runner-output-file
+        (f-append-text message 'utf-8 ert-runner-output-file)
+      (princ message t))))
 
 ;; Work around Emacs bug #16121, which is fixed in Emacs 24.4, but still present
 ;; in former releases. See ;; http://debbugs.gnu.org/cgi/bugreport.cgi?bug=16121