From: kaoru Date: Wed, 18 Feb 2004 14:37:41 +0000 (+0000) Subject: * test-elmo-localdir.el (test-elmo-folder-expand-msgdb-path-4): X-Git-Tag: wl-2_11_25~60 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3ab90379df9f5ff151ef7a32dbaac31b1d2e3702;p=elisp%2Fwanderlust.git * test-elmo-localdir.el (test-elmo-folder-expand-msgdb-path-4): New testcase. (test-elmo-folder-expand-msgdb-path-2): Change order. --- diff --git a/tests/ChangeLog b/tests/ChangeLog index bd31ed6..57c3dbd 100644 --- a/tests/ChangeLog +++ b/tests/ChangeLog @@ -1,3 +1,9 @@ +2004-02-18 TAKAHASHI Kaoru + + * test-elmo-localdir.el (test-elmo-folder-expand-msgdb-path-4): + New testcase. + (test-elmo-folder-expand-msgdb-path-2): Change order. + 2004-01-11 Hiroya Murata * test-dist.el (test-version-status-icon-xpm): Follow the diff --git a/tests/test-elmo-localdir.el b/tests/test-elmo-localdir.el index 74e232b..a980d6b 100644 --- a/tests/test-elmo-localdir.el +++ b/tests/test-elmo-localdir.el @@ -15,8 +15,8 @@ (luna-define-method test-elmo-folder-expand-msgdb-path-2 ((case test-elmo-localdir)) (lunit-assert (string= - (elmo-folder-expand-msgdb-path (wl-folder-get-elmo-folder "+inbox")) - (expand-file-name "localdir/inbox" elmo-msgdb-directory)))) + (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)) @@ -25,3 +25,11 @@ (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"))))))