mirror of
https://https.git.savannah.gnu.org/git/guix.git/
synced 2025-07-10 08:30:39 +02:00
tests: Fix opensmtpd.
Change-Id: I88db2c4b883a789359c402018c40804355040115
This commit is contained in:
parent
64df79d9ee
commit
b8a93c9261
1 changed files with 3 additions and 3 deletions
|
@ -99,8 +99,8 @@ match from any for local action inbound
|
||||||
|
|
||||||
(test-assert "mbox is empty"
|
(test-assert "mbox is empty"
|
||||||
(marionette-eval
|
(marionette-eval
|
||||||
'(and (file-exists? "/var/spool/mail")
|
'(and (file-exists? "/var/mail")
|
||||||
(not (file-exists? "/var/spool/mail/root")))
|
(not (file-exists? "/var/mail/root")))
|
||||||
marionette))
|
marionette))
|
||||||
|
|
||||||
(test-eq "accept an email"
|
(test-eq "accept an email"
|
||||||
|
@ -150,7 +150,7 @@ match from any for local action inbound
|
||||||
|
|
||||||
(let wait ((n 20))
|
(let wait ((n 20))
|
||||||
(cond ((queue-empty?)
|
(cond ((queue-empty?)
|
||||||
(file-exists? "/var/spool/mail/root"))
|
(file-exists? "/var/mail/root"))
|
||||||
((zero? n)
|
((zero? n)
|
||||||
(error "root mailbox didn't show up"))
|
(error "root mailbox didn't show up"))
|
||||||
(else
|
(else
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue