Function: cider-test-highlight-problems

cider-test-highlight-problems is a byte-compiled function defined in cider-test.el.

Signature

(cider-test-highlight-problems RESULTS)

Documentation

Highlight all non-passing tests in the test RESULTS.

When cider-fringe-indicators enables them for tests, also mark every tested var with a green (all passed) or red (any failure) fringe indicator.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260822.1520/cider-test.el
(defun cider-test-highlight-problems (results)
  "Highlight all non-passing tests in the test RESULTS.
When `cider-fringe-indicators' enables them for tests, also mark every
tested var with a green (all passed) or red (any failure) fringe indicator."
  (nrepl-dict-map
   (lambda (ns vars)
     (nrepl-dict-map
      (lambda (var tests)
        ;; Resolve the var once: `cider-find-var-file' would re-query, but we
        ;; also need the definition line for the fringe indicator.
        (when-let* ((info (cider-var-info (concat ns "/" var)))
                    (file (nrepl-dict-get info "file"))
                    (buffer (cider-find-file file)))
          (dolist (test tests)
            (nrepl-dbind-response test (type)
              (unless (equal "pass" type)
                (cider-test-highlight-problem buffer test))))
          (when (cider--use-fringe-indicators-p 'test)
            (cider-test--add-fringe-indicator
             buffer
             (nrepl-dict-get info "line")
             (cider-test--var-passed-p tests)))))
      vars))
   results))