Commit 2edeae50 authored by Ola Nilsson's avatar Ola Nilsson Committed by Jorgen Schäfer

Rewrite buttercup-suite-full-name with a single loop

parent 5458dccf
......@@ -742,11 +742,9 @@ See also `buttercup-define-matcher'."
(defun buttercup-suite-full-name (suite)
"Return the full name of SUITE, which includes the names of the parents."
(let ((name-parts (mapcar #'buttercup-suite-description
(cons suite (buttercup-suite-parents suite)))))
(mapconcat #'identity
(reverse name-parts)
" ")))
(mapconcat #'buttercup-suite-description
(nreverse (cons suite (buttercup-suite-parents suite)))
" "))
(defun buttercup-spec-full-name (spec)
"Return the full name of SPEC, which includes the full name of its suite."
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment