From: kaoru <kaoru>
Date: Fri, 17 Jan 2003 12:22:19 +0000 (+0000)
Subject: * test-elmo-localdir.el: New file.
X-Git-Tag: merged-trunk-to-elmo-mark-14~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b08eaafa40383ba84b267b50bda358d5c4129b85;hp=1d7b88e089f7314fbd62b83d2d557753b260d27e;p=elisp%2Fwanderlust.git

* test-elmo-localdir.el: New file.
(test-elmo-folder-expand-msgdb-path-1): New testcase.
(test-elmo-folder-expand-msgdb-path-2): Ditto.
(test-elmo-folder-expand-msgdb-path-3): Ditto.
---

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 932911f..daaad8f 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,5 +1,10 @@
 2003-01-17  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* test-elmo-localdir.el: New file.
+	(test-elmo-folder-expand-msgdb-path-1): New testcase.
+	(test-elmo-folder-expand-msgdb-path-2): Ditto.
+	(test-elmo-folder-expand-msgdb-path-3): Ditto.
+
 	* test-dist.el (test-wl-modules-exists): Fix void variable.
 	(test-elmo-modules-exists): Ditto.
 
diff --git a/tests/test-elmo-localdir.el b/tests/test-elmo-localdir.el
new file mode 100644
index 0000000..74e232b
--- /dev/null
+++ b/tests/test-elmo-localdir.el
@@ -0,0 +1,27 @@
+(require 'lunit)
+(require 'elmo-localdir)
+
+(luna-define-class test-elmo-localdir (lunit-test-case))
+
+(luna-define-method test-elmo-folder-expand-msgdb-path-1 ((case test-elmo-localdir))
+  (lunit-assert
+   (string=
+    (elmo-folder-expand-msgdb-path
+     (wl-folder-get-elmo-folder
+      (concat "+" (expand-file-name "~/Mail/inbox"))))
+    (elmo-folder-expand-msgdb-path
+     (wl-folder-get-elmo-folder "+~/Mail/inbox")))))
+
+(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))))
+
+
+(luna-define-method test-elmo-folder-expand-msgdb-path-3 ((case test-elmo-localdir))
+  (lunit-assert
+   (not
+    (string=
+     (elmo-folder-expand-msgdb-path (wl-folder-get-elmo-folder "+/inbox"))
+     (elmo-folder-expand-msgdb-path (wl-folder-get-elmo-folder "+inbox"))))))