01/03: gnu: emacs-macrostep: Honor #:tests? flag.

[guix-commits]

ngz pushed a commit to branch master
in repository guix.

commit 9aa53a004fdc0ef7bca4de67d9d0807ed8936cb4
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Wed Mar 2 15:15:34 2022 +0100

    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 @@ without disturbing alignment.")
                   "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 @@ without disturbing alignment.")
                                   (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