4 (luna-define-class test-elmo-imap4 (lunit-test-case))
6 (luna-define-method test-elmo-imap4-parse-greeting-ok ((case test-elmo-imap4))
8 (setq case-fold-search nil)
9 (let (elmo-imap4-status)
10 (insert-string "* OK [CAPABILITY IMAP4 IMAP4rev1 LITERAL+ ID"
11 " LOGINDISABLED AUTH=DIGEST-MD5 AUTH=CRAM-MD5 SASL-IR]"
12 " mail.example.org Cyrus IMAP v2.3.13 server ready\n")
13 (goto-char (point-min))
15 (eq 'nonauth (elmo-imap4-parse-greeting))))))
17 (luna-define-method test-elmo-imap4-parse-greeting-preauth ((case test-elmo-imap4))
19 (setq case-fold-search nil)
20 (let (elmo-imap4-status)
21 (insert-string "* PREAUTH IMAP4rev1 server logged in as Smith\n")
22 (goto-char (point-min))
24 (eq 'auth (elmo-imap4-parse-greeting))))))
26 (luna-define-method test-elmo-imap4-parse-greeting-bye ((case test-elmo-imap4))
28 (setq case-fold-search nil)
29 (let (elmo-imap4-status)
30 (insert-string "* BYE LOGOUT received\n")
31 (goto-char (point-min))
33 (eq 'closed (elmo-imap4-parse-greeting))))))