* 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 (file)
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,9 @@
+2004-02-18  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * 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  <lapis-lazuli@pop06.odn.ne.jp>
 
        * 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 (file)
--- 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"))))))