16/18: gnu: emacs-exwm-firefox: Run tests.

[guix-commits]

ngz pushed a commit to branch master
in repository guix.

commit 8af16af043e0f9c9fff89ce5e6ecf0def8d191ed
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Thu Jan 4 12:05:00 2024 +0100

    gnu: emacs-exwm-firefox: Run tests.
    
    * gnu/packages/emacs-xyz.scm (emacs-exwm-firefox)[arguments]: Run tests.
    
    Change-Id: I2efb314e899903f5047f65aad4dbbf78560bac64
---
 gnu/packages/emacs-xyz.scm | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index a7bee76961..b0697a910f 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -31378,10 +31378,16 @@ keypresses mapped in firefox to the action described 
in the function name.")
           (base32 "1x9hc94a5wygyw714q98jbk4kjvys2ra94qdc2cbgkm6iq982rvq"))))
       (build-system emacs-build-system)
       (arguments
-       (list #:phases
-             #~(modify-phases %standard-phases
-                 (add-after 'unpack 'chdir
-                   (lambda _ (chdir "lisp"))))))
+       (list
+        #:phases
+        #~(modify-phases %standard-phases
+            (add-after 'unpack 'chdir
+              (lambda _ (chdir "lisp"))))
+        #:tests? #true
+        #:test-command #~(list "emacs" "-Q" "--batch"
+                               "-l" "../test/exwm-firefox--tests.el"
+                               "-l" "exwm-firefox.el"
+                               "-f" "ert-run-tests-batch-and-exit")))
       (inputs (list emacs-exwm emacs-exwm-firefox-core emacs-s))
       (home-page "https://codeberg.org/emacs-weirdware/exwm-firefox";)
       (synopsis "Enhanced support for Firefox under EXWM")