From: 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/?a=commitdiff_plain;h=1b43e11132d3c9f58c3092a7296e11fcfb9a5f7e;hp=5ca5b1e9100c29e27a73eb223484076da4f82282;p=elisp%2Fwanderlust.git * 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 + * 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))))))