nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tests: Fix opensmtpd test. 

* gnu/tests/mail.scm (run-opensmtpd-test) <"mail arrived">: Invoke
smtpctl by its full file name.
This commit is contained in:
Tobias Geerinckx-Rice 2019-06-19 11:48:31 +02:00
parent 5f7367cf84
commit bf5929c530
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gnu/tests/mail.scm
View File

@ -5,6 +5,7 @@
;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2019 Christopher Baines <mail@cbaines.net> ;;; Copyright © 2019 Christopher Baines <mail@cbaines.net>
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -23,6 +24,7 @@
(define-module (gnu tests mail) (define-module (gnu tests mail)
#:use-module (gnu tests) #:use-module (gnu tests)
#:use-module (gnu packages mail)
#:use-module (gnu system) #:use-module (gnu system)
#:use-module (gnu system vm) #:use-module (gnu system vm)
#:use-module (gnu services) #:use-module (gnu services)
@ -136,7 +138,9 @@ accept from any for local deliver to mbox
(define (queue-empty?) (define (queue-empty?)
(eof-object? (eof-object?
(read-line (read-line
(open-input-pipe "smtpctl show queue")))) (open-input-pipe
(string-append #$(file-append opensmtpd "/sbin/smtpctl")
" show queue")))))
(let wait () (let wait ()
(if (queue-empty?) (if (queue-empty?)