summaryrefslogtreecommitdiff
path: root/gnu/tests/mail.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/tests/mail.scm')
-rw-r--r--gnu/tests/mail.scm15
1 files changed, 11 insertions, 4 deletions
diff --git a/gnu/tests/mail.scm b/gnu/tests/mail.scm
index 07a4487d785..389bb4b1569 100644
--- a/gnu/tests/mail.scm
+++ b/gnu/tests/mail.scm
@@ -484,7 +484,17 @@ addheader \"X-Sieve-Filtered\" \"Guix\";
484 (mail-location 484 (mail-location
485 (string-append "maildir:~/Maildir" 485 (string-append "maildir:~/Maildir"
486 ":INBOX=~/Maildir/INBOX" 486 ":INBOX=~/Maildir/INBOX"
487 ":LAYOUT=fs")))) 487 ":LAYOUT=fs"))
488 (namespaces
489 (list
490 (namespace-configuration
491 (name "main")
492 (inbox? #t)
493 (mailboxes
494 (list
495 (mailbox-configuration
496 (name "TESTBOX")
497 (auto "create")))))))))
488 (service getmail-service-type 498 (service getmail-service-type
489 (list 499 (list
490 (getmail-configuration 500 (getmail-configuration
@@ -594,9 +604,6 @@ Subject: Hello Nice to meet you!")
594 (read-line imap) ;+ 604 (read-line imap) ;+
595 (write-line "c2lyaGM=" imap) 605 (write-line "c2lyaGM=" imap)
596 (read-line imap) ;OK 606 (read-line imap) ;OK
597 ;; Create a TESTBOX mailbox
598 (write-line "a CREATE TESTBOX" imap)
599 (read-line imap) ;OK
600 ;; Append a message to a TESTBOX mailbox 607 ;; Append a message to a TESTBOX mailbox
601 (write-line (format #f "a APPEND TESTBOX {~a}" 608 (write-line (format #f "a APPEND TESTBOX {~a}"
602 (number->string (message-length message))) 609 (number->string (message-length message)))