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

* 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

View file

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