* 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 (file)
--- 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 (file)
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))))))