[nongnu] elpa/buttercup c83ba7d 268/340: Extract function buttercup-elapsed-time-string

[ELPA Syncer]

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

    Extract function buttercup-elapsed-time-string
---
 buttercup.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/buttercup.el b/buttercup.el
index 4274714..6b7b6fe 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -791,6 +791,10 @@ Return CHILD."
    (or (buttercup-suite-or-spec-time-ended suite-or-spec) (current-time))
    (or (buttercup-suite-or-spec-time-started suite-or-spec) (current-time))))
 
+(defun buttercup-elapsed-time-string (suite-or-spec)
+  "Convert the elapsed time for SUITE-OR-SPEC to a short string."
+  (seconds-to-string (float-time (buttercup-elapsed-time suite-or-spec))))
+
 ;;;;;;;;;;;;;;;;;;;;
 ;;; Suites: describe
 
@@ -1591,9 +1595,7 @@ EVENT and ARG are described in `buttercup-reporter'."
          (buttercup--print "  %s" (buttercup-spec-failure-description arg)))
         (t
          (error "Unknown spec status %s" (buttercup-spec-status arg))))
-       (buttercup--print " (%s)\n"
-                         (seconds-to-string
-                          (float-time (buttercup-elapsed-time arg)))))
+       (buttercup--print " (%s)\n" (buttercup-elapsed-time-string arg)))
 
       (`suite-done
        (when (= 0 (length (buttercup-suite-or-spec-parents arg)))
@@ -1672,9 +1674,7 @@ EVENT and ARG are described in `buttercup-reporter'."
                              (buttercup-spec-failure-description arg))))
         (t
          (error "Unknown spec status %s" (buttercup-spec-status arg))))
-       (buttercup--print " (%s)\n"
-                         (seconds-to-string
-                          (float-time (buttercup-elapsed-time arg))))))
+       (buttercup--print " (%s)\n" (buttercup-elapsed-time-string arg))))
 
     (`buttercup-done
      (dolist (failed buttercup-reporter-batch--failures)