1 ;; -*- lexical-binding: t -*-
5 (luna-define-class test-elmo-imap4 (lunit-test-case))
7 (luna-define-method test-elmo-imap4-parse-greeting-ok ((case test-elmo-imap4))
9 (setq case-fold-search nil)
10 (let (elmo-imap4-status)
11 (insert-string "* OK [CAPABILITY IMAP4 IMAP4rev1 LITERAL+ ID"
12 " LOGINDISABLED AUTH=DIGEST-MD5 AUTH=CRAM-MD5 SASL-IR]"
13 " mail.example.org Cyrus IMAP v2.3.13 server ready\n")
14 (goto-char (point-min))
16 (eq 'nonauth (elmo-imap4-parse-greeting))))))
18 (luna-define-method test-elmo-imap4-parse-greeting-preauth ((case test-elmo-imap4))
20 (setq case-fold-search nil)
21 (let (elmo-imap4-status)
22 (insert-string "* PREAUTH IMAP4rev1 server logged in as Smith\n")
23 (goto-char (point-min))
25 (eq 'auth (elmo-imap4-parse-greeting))))))
27 (luna-define-method test-elmo-imap4-parse-greeting-bye ((case test-elmo-imap4))
29 (setq case-fold-search nil)
30 (let (elmo-imap4-status)
31 (insert-string "* BYE LOGOUT received\n")
32 (goto-char (point-min))
34 (eq 'closed (elmo-imap4-parse-greeting))))))