diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2020-11-26 22:24:24 +0100 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2020-11-26 23:32:29 +0100 |
| commit | ab17fb6019956b7cb2843be27499871d68f0fcba (patch) | |
| tree | 3742534f6fb26516c508a8fbb56a134997453e1e | |
| parent | 845ba68d21ef549be0212d775e5d0f9c202d1af3 (diff) | |
| download | guix-ab17fb6019956b7cb2843be27499871d68f0fcba.tar.gz | |
gnu: neomutt: Update to 20201120.
* gnu/packages/mail.scm (neomutt): Update to 20201120. [native-inputs]: Add neomutt-test-files origin. [arguments]: Add a 'prepare-test-files phase.
| -rw-r--r-- | gnu/packages/mail.scm | 27 |
1 files changed, 23 insertions, 4 deletions
diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm index b7e5e3a00e..83b66a90c8 100644 --- a/gnu/packages/mail.scm +++ b/gnu/packages/mail.scm @@ -491,7 +491,7 @@ operating systems.") (define-public neomutt (package (name "neomutt") - (version "20200313") + (version "20201120") (source (origin (method git-fetch) @@ -500,7 +500,7 @@ operating systems.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "1k4k07l6h5krc3fx928qvdq3ssw9fxn95aj7k885xlckd2i1lnb5")))) + (base32 "0z6xavgd0zv9pqvfsdyvhhi1q3y7zxhgg24isbnn9r6mldafqwna")))) (build-system gnu-build-system) (inputs `(("cyrus-sasl" ,cyrus-sasl) @@ -523,7 +523,19 @@ operating systems.") ("docbook-xsl" ,docbook-xsl) ("docbook-xml" ,docbook-xml-4.2) ("w3m" ,w3m) - ("tcl" ,tcl))) + ("tcl" ,tcl) + + ;; Test file data for the unit tests included in the neomutt source. + ("neomutt-test-files" + ,(let ((commit "8629adab700a75c54e8e28bf05ad092503a98f75")) + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/neomutt/neomutt-test-files") + (commit commit))) + (file-name (git-file-name "neomutt-test-files" commit)) + (sha256 + (base32 "1ci04nqkab9mh60zzm66sd6mhsr6lya8wp92njpbvafc86vvwdlr"))))))) (arguments `(#:test-target "test" #:configure-flags @@ -574,7 +586,14 @@ operating systems.") (setenv "CONFIG_SHELL" bash) (apply invoke bash (string-append (getcwd) "/configure") - flags))))))) + flags)))) + (add-before 'check 'prepare-test-files + (lambda* (#:key inputs #:allow-other-keys) + (copy-recursively (assoc-ref inputs "neomutt-test-files") "tests") + (with-directory-excursion "tests" + (setenv "NEOMUTT_TEST_DIR" (getcwd)) ; must be absolute + (invoke "bash" "setup.sh") + #t)))))) (home-page "https://neomutt.org/") (synopsis "Command-line mail reader based on Mutt") (description |