diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2024-04-06 18:17:06 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2024-04-06 18:20:58 +0200 |
| commit | 726e7e3996fdef7a5f9da0f4cbb4ae35fcddc2c8 (patch) | |
| tree | bcbbd814fcc5b7cecee8a3c7d9d4c0e6cb747ad7 /gnu/packages | |
| parent | 7878cd0659ad08e46736d2adc7d89d1fbef0c854 (diff) | |
| download | guix-726e7e3996fdef7a5f9da0f4cbb4ae35fcddc2c8.tar.gz guix-726e7e3996fdef7a5f9da0f4cbb4ae35fcddc2c8.zip | |
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
Diffstat (limited to 'gnu/packages')
| -rw-r--r-- | gnu/packages/emacs-xyz.scm | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index 1dde90c54e..3ade606925 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -2715,8 +2715,7 @@ provides an optional IDE-like error list.") (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 @@ provides an optional IDE-like error list.") (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)) |