diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2019-06-19 11:48:31 +0200 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2019-06-19 11:49:33 +0200 |
| commit | bf5929c5303511da338da894ce072c138fe8324f (patch) | |
| tree | 6c1252cac3ae8ef41caa76fd4980d0267bddd719 | |
| parent | 5f7367cf8495f537b7b8ce42204ab14a3ed2e46b (diff) | |
tests: Fix opensmtpd test.
* gnu/tests/mail.scm (run-opensmtpd-test) <"mail arrived">: Invoke
smtpctl by its full file name.
| -rw-r--r-- | gnu/tests/mail.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gnu/tests/mail.scm b/gnu/tests/mail.scm index 10e5be71d8..f064da5f53 100644 --- a/gnu/tests/mail.scm +++ b/gnu/tests/mail.scm @@ -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 @@ accept from any for local deliver to mbox (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?) |