02/02: gnu: emacs-inspector: Activate tests.

[guix-commits]

ngz pushed a commit to branch master
in repository guix.

commit fa5701964d8946d87b999e1eb18f7881b047c54e
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Thu Nov 24 23:29:10 2022 +0100

    gnu: emacs-inspector: Activate tests.
    
    * gnu/packages/emacs-xyz.scm (emacs-inspector)[arguments]: Add tests.  Skip
    failing test.  Fix compatibility with Emacs 28 and older.
---
 gnu/packages/emacs-xyz.scm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index cde1725185..3f6f69c3c4 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -570,6 +570,28 @@ configuration language which makes it trivial to write 
your own themes.")
           (base32 "0n72sqn29b5sya686cicgp40mkk5x5821b7bw4zs6dcl82cyij5n"))
          (file-name (git-file-name name version))))
       (build-system emacs-build-system)
+      (arguments
+       (list
+        #:tests? #t
+        #:test-command #~(list "emacs" "-Q" "--batch"
+                               "-L" "."
+                               "-l" "inspector-tests.el"
+                               "-l" "tree-inspector-tests.el"
+                               "-f" "ert-run-tests-batch-and-exit")
+        #:phases
+        #~(modify-phases %standard-phases
+            (add-after 'unpack 'preserve-emacs-28-compatibility
+              ;; XXX: `cl-constantly' function is defined in "cl-lib" starting
+              ;; from Emacs 29+.  For now, replace it with its definition.
+              (lambda _
+                (substitute* "tree-inspector.el"
+                  (("cl-constantly") "lambda (_)"))))
+            (add-before 'check 'skip-failing-test
+              (lambda _
+                (substitute* "tree-inspector-tests.el"
+                  (("\\(ert-deftest inspector-tests--inspect-struct-test.*" 
all)
+                   (string-append all " (skip-unless nil)"))))))))
+      (native-inputs (list emacs-ert-runner))
       (propagated-inputs (list emacs-treeview))
       (home-page "https://github.com/mmontone/emacs-inspector";)
       (synopsis "Inspection tool for Emacs Lisp objects")