From: kaoru <kaoru>
Date: Tue, 28 Aug 2001 15:37:06 +0000 (+0000)
Subject: * test-elmo-util.el: New file
X-Git-Tag: wl-2_7_3~5
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fwanderlust.git;a=commitdiff_plain;h=1b43e11132d3c9f58c3092a7296e11fcfb9a5f7e

* test-elmo-util.el: New file
(test-elmo-replace-string-as-filename-1): New testcase.
---

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 564e4af..a59d43f 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,5 +1,8 @@
 2001-08-28  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* test-elmo-util.el: New file
+	(test-elmo-replace-string-as-filename-1): New testcase.
+
 	* test-dist.el: New file.
 	(test-wl-modules-exists, test-elmo-modules-exists)
 	(test-util-modules-exists, test-wl-icon-exists)
diff --git a/tests/test-elmo-util.el b/tests/test-elmo-util.el
new file mode 100644
index 0000000..96fe6fc
--- /dev/null
+++ b/tests/test-elmo-util.el
@@ -0,0 +1,11 @@
+(require 'lunit)
+(require 'elmo-util)
+
+(luna-define-class test-elmo-util (lunit-test-case))
+
+(luna-define-method test-elmo-replace-string-as-filename-1 ((case test-elmo-util))
+  (lunit-assert
+   (let ((str "/foo//./../bar/"))
+     (string= str
+	      (elmo-recover-string-from-filename
+	       (elmo-replace-string-as-filename str))))))