[nongnu] elpa/cider 0134a0bc09: Move a bit of related code together

[ELPA Syncer]

branch: elpa/cider
commit 0134a0bc09c8cd332b100cb1c37d375204253ab6
Author: Bozhidar Batsov <bozhidar@batsov.dev>
Commit: Bozhidar Batsov <bozhidar@batsov.dev>

    Move a bit of related code together
---
 cider-test.el | 24 +++++++++++++-----------
 1 file changed, 13 insertions(+), 11 deletions(-)

diff --git a/cider-test.el b/cider-test.el
index b5df76d35f..558aa7bfd5 100644
--- a/cider-test.el
+++ b/cider-test.el
@@ -117,11 +117,6 @@ to work against the correct REPL session.")
   "When theme is changed, update `cider-test-items-background-color'."
   (setq cider-test-items-background-color (cider-scale-background-color)))
 
-(defun cider-test-toggle-fail-fast ()
-  "Toggles `cider-test-fail-fast' t <-> nil for the current buffer."
-  (interactive)
-  (setq-local cider-test-fail-fast (not cider-test-fail-fast)))
-
 ;;; Report mode & key bindings
 ;;
 ;; The primary mode of interacting with test results is the report buffer, 
which
@@ -368,6 +363,16 @@ With the actual value, the outermost '(not ...)' 
s-expression is removed."
 
 ;;; Report rendering
 
+(defcustom cider-test-fail-fast t
+  "Controls whether to stop a test run on failure/error."
+  :type 'boolean
+  :package-version '(cider . "1.8.0"))
+
+(defun cider-test-toggle-fail-fast ()
+  "Toggles `cider-test-fail-fast' t <-> nil for the current buffer."
+  (interactive)
+  (setq-local cider-test-fail-fast (not cider-test-fail-fast)))
+
 (defun cider-test-type-face (type)
   "Return the font lock face for the test result TYPE."
   (pcase type
@@ -382,7 +387,9 @@ With the actual value, the outermost '(not ...)' 
s-expression is removed."
     `(:foreground ,(face-attribute face :background))))
 
 (defun cider-test-render-summary (buffer summary &optional elapsed-time)
-  "Emit into BUFFER the report SUMMARY statistics."
+  "Emit into BUFFER the report SUMMARY statistics.
+
+If ELAPSED-TIME is provided it will be included in the summary."
   (with-current-buffer buffer
     (nrepl-dbind-response summary (ns var test pass fail error)
       (let ((ms (nrepl-dict-get elapsed-time "ms")))
@@ -689,11 +696,6 @@ The selectors can be either keywords or strings."
    (split-string
     (cider-read-from-minibuffer message))))
 
-(defcustom cider-test-fail-fast t
-  "Controls whether to stop a test run on failure/error."
-  :type 'boolean
-  :package-version '(cider . "1.8.0"))
-
 (defun cider-test-execute (ns &optional tests silent prompt-for-filters)
   "Run tests for NS, which may be a keyword, optionally specifying TESTS.
 This tests a single NS, or multiple namespaces when using keywords `:project',