02/02: gnu: emacs-all-the-icons: Enable tests.

[guix-commits]

lilyp pushed a commit to branch master
in repository guix.

commit 8c19e6a0f6117adcb850b6fbb60d6e6cd5eb1fa5
Author: Liliana Marie Prikler <liliana.prikler@gmail.com>
AuthorDate: Fri Feb 18 23:51:57 2022 +0100

    gnu: emacs-all-the-icons: Enable tests.
    
    * gnu/packages/emacs-xyz.scm (emacs-all-the-icons)[#:tests?]: Drop argument.
    [#:phases]: Replace ‘check’ with a custom phase.
    [native-inputs]: Add emacs-f and emacs-ert-runner.
---
 gnu/packages/emacs-xyz.scm | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index c12783b4b9..49748abd32 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -22833,8 +22833,7 @@ files are easily readable and they work nicely with 
version control systems.")
     (build-system emacs-build-system)
     (arguments
      `(#:include '("\\.el$" "^data/")
-       ;; Compiling "test/" fails with "Symbol’s value as variable is void:
-       ;; all-the-icons--root-code".  Ignoring tests.
+       #:exclude '("^test/")
        #:phases
        (modify-phases %standard-phases
          (add-after 'install 'install-fonts
@@ -22847,9 +22846,14 @@ files are easily readable and they work nicely with 
version control systems.")
                  ;; TODO: Unbundle.
                  (install-file "file-icons.ttf" fonts)
                  (install-file "octicons.ttf" fonts)
-                 (install-file "weathericons.ttf" fonts))))))
-       #:exclude '("^test/")
-       #:tests? #f))
+                 (install-file "weathericons.ttf" fonts)))))
+         (replace 'check
+           (lambda* (#:key outputs #:allow-other-keys)
+             (apply invoke "ert-runner" "-l"
+                    (append (find-files "data" "\\.el")
+                            '("all-the-icons-faces.el"))))))))
+    (native-inputs
+     (list emacs-f emacs-ert-runner))
     (propagated-inputs
      (list emacs-f emacs-memoize font-awesome 
font-google-material-design-icons))
     (home-page "https://github.com/domtronn/all-the-icons.el";)