From 9aa53a004fdc0ef7bca4de67d9d0807ed8936cb4 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date: Wed, 2 Mar 2022 15:15:34 +0100
Subject: [PATCH] gnu: emacs-macrostep: Honor #:tests? flag.

* gnu/packages/emacs-xyz.scm (emacs-macrostep)[arguments]<#:tests?>: Activate
tests.
<#:phases>: Honor #:tests? flag.
---
 gnu/packages/emacs-xyz.scm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index a6699f2abf..1f5952fdf4 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -19099,7 +19099,8 @@ (define-public emacs-macrostep
                   "1fm40mxdn289cyzgw992223dgrjmwxn4q8svyyxfaxjrpb38jhjz"))))
       (build-system emacs-build-system)
       (arguments
-       '(#:phases
+       '(#:tests? #t
+         #:phases
          (modify-phases %standard-phases
            (add-before 'check 'remove-test
              ;; Fails because of requirement ‘/bin/sh’.
@@ -19113,11 +19114,12 @@ (define-public emacs-macrostep
                                   (beginning-of-line)
                                   (kill-sexp))
                            (basic-save-buffer))))))
-           (add-before 'install 'check
-             (lambda _
-               (invoke "emacs" "--batch" "-L" "."
-                       "-l" "macrostep-test.el"
-                       "-f" "ert-run-tests-batch-and-exit"))))))
+           (replace 'check
+             (lambda* (#:key tests? #:allow-other-keys)
+               (when tests?
+                 (invoke "emacs" "--batch" "-L" "."
+                         "-l" "macrostep-test.el"
+                         "-f" "ert-run-tests-batch-and-exit")))))))
       (home-page "https://github.com/joddie/macrostep")
       (synopsis "Interactive macro-expander for Emacs")
       (description "@code{macrostep} is an Emacs minor mode for interactively