me/guix
Archived
1
0
Fork 0
Code Activity

gnu: emacs-fb2-reader: Properly enable tests.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-fb2-reader)[arguments]<#:test-command>:
Use command to actually run tests.
<#:phases>: Fix a bogus function name in a test.

Change-Id: I267b219e2b8f547c00cbe3971d21da2f7b599311
This commit is contained in:
Nicolas Goaziou 2024-04-06 18:17:06 +02:00
parent 7878cd0659
commit 726e7e3996
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
gnu/packages/emacs-xyz.scm
View file

@ -2715,8 +2715,7 @@ provides an optional IDE-like error list.")
(list (list
#:tests? #t #:tests? #t
#:test-command #:test-command
#~(list "emacs" "-Q" "--batch" "-L" "." #~(list "buttercup" "-L" ".")
"--eval" "(load-file \"tests/test-fb2-reader.el\")")
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'qualify-paths (add-after 'unpack 'qualify-paths
@ -2724,12 +2723,17 @@ provides an optional IDE-like error list.")
(let ((unzip (search-input-file inputs "/bin/unzip"))) (let ((unzip (search-input-file inputs "/bin/unzip")))
(substitute* "fb2-reader.el" (substitute* "fb2-reader.el"
(("unzip") unzip))))) (("unzip") unzip)))))
(add-after 'unpack 'compatibility-with-recent-buttercup (add-after 'unpack 'fix-tests
(lambda _ (lambda _
;; Lexical binding is required for compatibility with recent
;; Buttercup.
(emacs-batch-edit-file "tests/test-fb2-reader.el" (emacs-batch-edit-file "tests/test-fb2-reader.el"
'(progn '(progn
(insert ";;; -*-lexical-binding:t-*-") (insert ";;; -*-lexical-binding:t -*-\n")
(basic-save-buffer)))))))) (basic-save-buffer)))
;; Fix bogus function name.
(substitute* "tests/test-fb2-reader.el"
(("fb2-reader-render") "fb2-reader-render-xml")))))))
(inputs (list unzip)) (inputs (list unzip))
(native-inputs (native-inputs
(list emacs-async emacs-buttercup emacs-dash emacs-s)) (list emacs-async emacs-buttercup emacs-dash emacs-s))