mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-10 08:30:39 +02:00
Code Releases Activity

tests: Fix opensmtpd.

Browse source 
Change-Id: I88db2c4b883a789359c402018c40804355040115
This commit is contained in:
Mathieu Othacehe 2025-07-09 16:28:32 +02:00
parent 64df79d9ee
commit b8a93c9261
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
gnu/tests/mail.scm
View file

@ -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