(require 'lunit)
(require 'elmo-localdir)

(luna-define-class test-elmo-localdir (lunit-test-case))

(luna-define-method test-elmo-folder-expand-msgdb-path-1 ((case test-elmo-localdir))
  (lunit-assert
   (string=
    (elmo-folder-expand-msgdb-path
     (wl-folder-get-elmo-folder
      (concat "+" (expand-file-name "~/Mail/inbox"))))
    (elmo-folder-expand-msgdb-path
     (wl-folder-get-elmo-folder "+~/Mail/inbox")))))

(luna-define-method test-elmo-folder-expand-msgdb-path-2 ((case test-elmo-localdir))
  (lunit-assert
   (string=
    (expand-file-name "localdir/inbox" elmo-msgdb-directory)
    (elmo-folder-expand-msgdb-path (wl-folder-get-elmo-folder "+inbox")))))


(luna-define-method test-elmo-folder-expand-msgdb-path-3 ((case test-elmo-localdir))
  (lunit-assert
   (not
    (string=
     (elmo-folder-expand-msgdb-path (wl-folder-get-elmo-folder "+/inbox"))
     (elmo-folder-expand-msgdb-path (wl-folder-get-elmo-folder "+inbox"))))))