ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-13 06:36:37 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: nullmailer: Use G-expressions.

Browse source 
* gnu/packages/mail.scm (nullmailer)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2023-07-02 02:00:01 +02:00
parent 0c9f663cd2
commit d235e4daea
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 41 additions and 39 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

80
gnu/packages/mail.scm
View file

@ -501,45 +501,47 @@ (define-public nullmailer
(base32 "0md8cf90fl2yf3zh9njjy42a673v4j4ygyq95xg7fzkygdigm1lq"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
(list "--enable-tls"
"--localstatedir=/var"
"--sysconfdir=/etc")
#:phases
(modify-phases %standard-phases
(add-before 'check 'patch-test-FHS-file-names
(lambda _
(with-directory-excursion "test"
(substitute* (list "functions.in"
"tests/send")
;; Fix some shebangs later generated on the fly.
(("/bin/sh") (which "bash"))))))
(add-before 'check 'pass-PATH-to-tests
;; ‘runtest’ launches each test through ‘env -’, clearing $PATH. The
;; tests then source ‘functions’, which first demands a working $PATH
;; only to clobber it later. Pass our $PATH to the test environment
;; and don't touch it after that.
(lambda _
(with-directory-excursion "test"
(substitute* "runtests"
(("env - bash")
(string-append "env - PATH=\"" (getenv "PATH") "\" bash")))
(substitute* "functions.in"
(("export PATH=.*") "")))))
(add-before 'check 'delete-failing-tests
(lambda _
(with-directory-excursion "test/tests"
(for-each delete-file
(list
;; XXX ‘nullmailer-inject: nullmailer-queue failed: 15’
"inject/queue"
;; XXX These require the not-yet-packaged tcpserver.
"protocols" "smtp-auth")))))
(add-before 'install 'skip-install-data-local
;; Don't attempt to install run-time files outside of the store.
(lambda _
(substitute* "Makefile"
((" install-data-local") "")))))))
(list #:configure-flags
#~(list "--enable-tls"
"--localstatedir=/var"
"--sysconfdir=/etc")
#:phases
#~(modify-phases %standard-phases
(add-before 'check 'patch-test-FHS-file-names
(lambda _
(with-directory-excursion "test"
(substitute* (list "functions.in"
"tests/send")
;; Fix some shebangs later generated on the fly.
(("/bin/sh") (which "bash"))))))
(add-before 'check 'pass-PATH-to-tests
;; ‘runtest’ launches each test through ‘env -’, clearing
;; $PATH. The tests then source ‘functions’, which first
;; demands a working $PATH only to clobber it later. Pass
;; our $PATH to the test environment and don't touch it after
;; that.
(lambda _
(with-directory-excursion "test"
(substitute* "runtests"
(("env - bash")
(string-append "env - PATH=\"" (getenv "PATH") "\" bash")))
(substitute* "functions.in"
(("export PATH=.*") "")))))
(add-before 'check 'delete-failing-tests
(lambda _
(with-directory-excursion "test/tests"
(for-each
delete-file
(list
;; XXX ‘nullmailer-inject: nullmailer-queue failed: 15’
"inject/queue"
;; XXX These require the not-yet-packaged tcpserver.
"protocols" "smtp-auth")))))
(add-before 'install 'skip-install-data-local
;; Don't try to install run-time files outside of the store.
(lambda _
(substitute* "Makefile"
((" install-data-local") "")))))))
(native-inputs
;; For tests.
(list daemontools)) ; for svc