+;; -*- lexical-binding: t -*-
(require 'lunit)
(require 'elmo-localdir)
(string=
(elmo-folder-expand-msgdb-path (wl-folder-get-elmo-folder "+/inbox"))
(elmo-folder-expand-msgdb-path (wl-folder-get-elmo-folder "+inbox"))))))
-
-(luna-define-method test-elmo-folder-expand-msgdb-path-4 ((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
- (concat "+" elmo-localdir-folder-path "/inbox"))))))