ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: Fix opensmtpd test.

Browse source 
* 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 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2019 Christopher Baines <mail@cbaines.net>
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -23,6 +24,7 @@
(define-module (gnu tests mail)
#:use-module (gnu tests)
#:use-module (gnu packages mail)
#:use-module (gnu system)
#:use-module (gnu system vm)
#:use-module (gnu services)
@ -136,7 +138,9 @@ (define (read-reply-code port)
(define (queue-empty?)
(eof-object?
(read-line
(open-input-pipe "smtpctl show queue"))))
(open-input-pipe
(string-append #$(file-append opensmtpd "/sbin/smtpctl")
" show queue")))))
(let wait ()
(if (queue-empty?)