tests/test-elmo-localdir.el

   1 (require 'lunit)
   2 (require 'elmo-localdir)
   3
   4 (luna-define-class test-elmo-localdir (lunit-test-case))
   5
   6 (luna-define-method test-elmo-folder-expand-msgdb-path-1 ((case test-elmo-localdir))
   7   (lunit-assert
   8    (string=
   9     (elmo-folder-expand-msgdb-path
  10      (wl-folder-get-elmo-folder
  11       (concat "+" (expand-file-name "~/Mail/inbox"))))
  12     (elmo-folder-expand-msgdb-path
  13      (wl-folder-get-elmo-folder "+~/Mail/inbox")))))
  14
  15 (luna-define-method test-elmo-folder-expand-msgdb-path-2 ((case test-elmo-localdir))
  16   (lunit-assert
  17    (string=
  18     (expand-file-name "localdir/inbox" elmo-msgdb-directory)
  19     (elmo-folder-expand-msgdb-path (wl-folder-get-elmo-folder "+inbox")))))
  20
  21
  22 (luna-define-method test-elmo-folder-expand-msgdb-path-3 ((case test-elmo-localdir))
  23   (lunit-assert
  24    (not
  25     (string=
  26      (elmo-folder-expand-msgdb-path (wl-folder-get-elmo-folder "+/inbox"))
  27      (elmo-folder-expand-msgdb-path (wl-folder-get-elmo-folder "+inbox"))))))