[nongnu] elpa/buttercup 9b94921 276/340: test: Add tests for buttercup-reporter-batch buttercup-done handling

[ELPA Syncer]

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

    test: Add tests for buttercup-reporter-batch buttercup-done handling
    
    Verify actual output instead of just no error.
---
 tests/test-buttercup.el | 34 +++++++++++++++++++++++++++-------
 1 file changed, 27 insertions(+), 7 deletions(-)

diff --git a/tests/test-buttercup.el b/tests/test-buttercup.el
index 7f051be..c2d6c0b 100644
--- a/tests/test-buttercup.el
+++ b/tests/test-buttercup.el
@@ -1149,16 +1149,36 @@ text properties using `ansi-color-apply'."
         (expect (buttercup-output) :to-equal "")))
 
     (describe "on the buttercup-done event"
-      ;; This is a lie. It should do a ton more stuff. We should test
-      ;; that, too.
-      (it "should handle the end event"
-        (buttercup-reporter-batch 'buttercup-done nil))
+      :var ((buttercup-reporter-batch--start-time (current-time))
+            defined-specs pending-specs failed-specs)
+
+      (before-each
+        (setq defined-specs 10 pending-specs 0 failed-specs 0)
+        (spy-on 'buttercup-suites-total-specs-defined :and-call-fake (lambda 
(&rest a) defined-specs))
+        (spy-on 'buttercup-suites-total-specs-pending :and-call-fake (lambda 
(&rest a) pending-specs))
+        (spy-on 'buttercup-suites-total-specs-failed :and-call-fake (lambda 
(&rest a) failed-specs)))
+
+      (it "should print a summary of run and failing specs"
+        (setq failed-specs 6)
+        (let (buttercup-reporter-batch--failures)
+          (buttercup-reporter-batch 'buttercup-done nil))
+        (expect (buttercup-output) :to-match
+                "Ran 10 specs, 6 failed, in [0-9]+.[0-9]+[mu]?s.\n"))
+
+      (it "should print a summary separating run and pending specs"
+        (setq pending-specs 3)
+        (let (buttercup-reporter-batch--failures)
+          (buttercup-reporter-batch 'buttercup-done nil))
+        (expect (buttercup-output) :to-match
+                "Ran 7 out of 10 specs, 0 failed, in [0-9]+.[0-9]+[mu]?s.\n"))
 
       (it "should not raise any error even if a spec failed"
         (setf (buttercup-spec-status spec) 'failed)
-
-        (expect (buttercup-reporter-batch 'buttercup-done (list spec))
-                :not :to-throw)))
+        (let (buttercup-reporter-batch--failures)
+          (expect (buttercup-reporter-batch 'buttercup-done (list spec))
+                  :not :to-throw)))
+      ;; TODO: Backtrace tests
+      )
 
     (describe "on an unknown event"
       (it "should raise an error"