[nongnu] elpa/buttercup 25bc00d 273/340: test: Set up suite "The batch reporter" to use fake terminal

[ELPA Syncer]

branch: elpa/buttercup
commit 25bc00d99a08c95569461e259366997d16b9ab07
Author: Ola Nilsson <ola.nilsson@gmail.com>
Commit: Ola Nilsson <ola.nilsson@gmail.com>

    test: Set up suite "The batch reporter" to use fake terminal
    
    Use a spy to mock send-string-to-terminal with
    send-string-to-ansi-buffer, storing output in a temporary buffer.  The
    temporary buffer is created and killed in the before-each and
    after-each blocks.
---
 tests/test-buttercup.el | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/tests/test-buttercup.el b/tests/test-buttercup.el
index 2719a37..f926287 100644
--- a/tests/test-buttercup.el
+++ b/tests/test-buttercup.el
@@ -1066,14 +1066,27 @@ text properties using `ansi-color-apply'."
 ;;; Reporters
 
 (describe "The batch reporter"
+  :var (print-buffer)
   (let (parent-suite child-suite spec)
     (before-each
       (setq parent-suite (make-buttercup-suite :description "parent-suite")
             child-suite (make-buttercup-suite :description "child-suite")
-            spec (make-buttercup-spec :description "spec"))
+            spec (make-buttercup-spec :description "spec")
+            print-buffer (generate-new-buffer "*btrcp-reporter-test*"))
       (buttercup-suite-add-child parent-suite child-suite)
       (buttercup-suite-add-child child-suite spec)
-      (spy-on 'buttercup--print))
+      (spy-on 'buttercup--print)
+      (spy-on 'send-string-to-terminal :and-call-fake
+              (apply-partially #'send-string-to-ansi-buffer print-buffer))
+      ;; Convenience function
+      (spy-on 'buttercup-output :and-call-fake
+              (lambda ()
+                "Return the text of print-buffer."
+                (with-current-buffer print-buffer
+                  (buffer-string)))))
+    (after-each
+      (kill-buffer print-buffer)
+      (setq print-buffer nil))
 
     (describe "on the buttercup-started event"
       (it "should emit the number of specs"