diff options
Diffstat (limited to 'gnu/tests/mail.scm')
| -rw-r--r-- | gnu/tests/mail.scm | 15 |
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))) |
