Commit 80345975 authored by Ola Nilsson's avatar Ola Nilsson

Replace remaining calls to obsolete buttercup-*-parents

parent 45f40c75
......@@ -743,7 +743,7 @@ See also `buttercup-define-matcher'."
(defun buttercup-suite-full-name (suite)
"Return the full name of SUITE, which includes the names of the parents."
(mapconcat #'buttercup-suite-description
(nreverse (cons suite (buttercup-suite-parents suite)))
(nreverse (cons suite (buttercup-suite-or-spec-parents suite)))
" "))
(defun buttercup-spec-full-name (spec)
......@@ -1402,13 +1402,13 @@ EVENT and ARG are described in `buttercup-reporter'."
(buttercup--print "Running %s specs.\n\n" defined))))
(`suite-started
(let ((level (length (buttercup-suite-parents arg))))
(let ((level (length (buttercup-suite-or-spec-parents arg))))
(buttercup--print "%s%s\n"
(make-string (* 2 level) ?\s)
(buttercup-suite-description arg))))
(`spec-started
(let ((level (length (buttercup-spec-parents arg))))
(let ((level (length (buttercup-suite-or-spec-parents arg))))
(buttercup--print "%s%s"
(make-string (* 2 level) ?\s)
(buttercup-spec-description arg))))
......@@ -1428,7 +1428,7 @@ EVENT and ARG are described in `buttercup-reporter'."
(error "Unknown spec status %s" (buttercup-spec-status arg)))))
(`suite-done
(when (= 0 (length (buttercup-suite-parents arg)))
(when (= 0 (length (buttercup-suite-or-spec-parents arg)))
(buttercup--print "\n")))
(`buttercup-done
......@@ -1483,7 +1483,7 @@ colors.
EVENT and ARG are described in `buttercup-reporter'."
(pcase event
(`spec-done
(let ((level (length (buttercup-spec-parents arg))))
(let ((level (length (buttercup-suite-or-spec-parents arg))))
(cond
((eq (buttercup-spec-status arg) 'passed)
(buttercup--print (buttercup-colorize "\r%s%s\n" 'green)
......
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