2 (require 'elmo-localdir)
4 (luna-define-class test-elmo-localdir (lunit-test-case))
6 (luna-define-method test-elmo-folder-expand-msgdb-path-1 ((case test-elmo-localdir))
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")))))
15 (luna-define-method test-elmo-folder-expand-msgdb-path-2 ((case test-elmo-localdir))
18 (expand-file-name "localdir/inbox" elmo-msgdb-directory)
19 (elmo-folder-expand-msgdb-path (wl-folder-get-elmo-folder "+inbox")))))
22 (luna-define-method test-elmo-folder-expand-msgdb-path-3 ((case test-elmo-localdir))
26 (elmo-folder-expand-msgdb-path (wl-folder-get-elmo-folder "+/inbox"))
27 (elmo-folder-expand-msgdb-path (wl-folder-get-elmo-folder "+inbox"))))))
29 (luna-define-method test-elmo-folder-expand-msgdb-path-4 ((case test-elmo-localdir))
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"))))))