* test-elmo-localdir.el (test-elmo-folder-expand-msgdb-path-4):
[elisp/wanderlust.git] / 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"))))))
28
29 (luna-define-method test-elmo-folder-expand-msgdb-path-4 ((case test-elmo-localdir))
30   (lunit-assert
31    (string=
32     (expand-file-name "localdir/inbox" elmo-msgdb-directory)
33     (elmo-folder-expand-msgdb-path
34      (wl-folder-get-elmo-folder
35       (concat "+" elmo-localdir-folder-path "/inbox"))))))