branch: elpa/buttercup
commit 803459759d913c64d94b4438ac5a68b465b8cf98
Author: Ola Nilsson <ola.nils...@gmail.com>
Commit: Ola Nilsson <ola.nils...@gmail.com>
Replace remaining calls to obsolete buttercup-*-parents
---
buttercup.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/buttercup.el b/buttercup.el
index 1487684..1ca3898 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -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)
