From: kaoru <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/gitweb/?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  <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
--- 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"))))))