mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-27 13:09:23 -05:00
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.
This commit is contained in:
parent
84136e95b2
commit
fa5701964d
1 changed files with 22 additions and 0 deletions
|
@ -570,6 +570,28 @@ (define-public emacs-inspector
|
||||||
(base32 "0n72sqn29b5sya686cicgp40mkk5x5821b7bw4zs6dcl82cyij5n"))
|
(base32 "0n72sqn29b5sya686cicgp40mkk5x5821b7bw4zs6dcl82cyij5n"))
|
||||||
(file-name (git-file-name name version))))
|
(file-name (git-file-name name version))))
|
||||||
(build-system emacs-build-system)
|
(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))
|
(propagated-inputs (list emacs-treeview))
|
||||||
(home-page "https://github.com/mmontone/emacs-inspector")
|
(home-page "https://github.com/mmontone/emacs-inspector")
|
||||||
(synopsis "Inspection tool for Emacs Lisp objects")
|
(synopsis "Inspection tool for Emacs Lisp objects")
|
||||||
|
|
Loading…
Reference in a new issue