File: test-elmo-util.el

package info (click to toggle)
wl 2.8.1-3
  • links: PTS
  • area: main
  • in suites: woody
  • size: 5,600 kB
  • ctags: 2,951
  • sloc: lisp: 40,584; sh: 148; makefile: 100
file content (11 lines) | stat: -rw-r--r-- 337 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
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))))))