tests/test-elmo-imap4.el

   1 ;; -*- lexical-binding: t -*-
   2 (require 'lunit)
   3 (require 'elmo-imap4)
   4
   5 (luna-define-class test-elmo-imap4 (lunit-test-case))
   6
   7 (luna-define-method test-elmo-imap4-parse-greeting-ok ((case test-elmo-imap4))
   8   (with-temp-buffer
   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))
  15       (lunit-assert
  16        (eq 'nonauth (elmo-imap4-parse-greeting))))))
  17
  18 (luna-define-method test-elmo-imap4-parse-greeting-preauth ((case test-elmo-imap4))
  19   (with-temp-buffer
  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))
  24       (lunit-assert
  25        (eq 'auth (elmo-imap4-parse-greeting))))))
  26
  27 (luna-define-method test-elmo-imap4-parse-greeting-bye ((case test-elmo-imap4))
  28   (with-temp-buffer
  29     (setq case-fold-search nil)
  30     (let (elmo-imap4-status)
  31       (insert-string "* BYE LOGOUT received\n")
  32       (goto-char (point-min))
  33       (lunit-assert
  34        (eq 'closed (elmo-imap4-parse-greeting))))))