diff options
Diffstat (limited to 'test/lisp/cedet/cedet-files-tests.el')
| -rw-r--r-- | test/lisp/cedet/cedet-files-tests.el | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/test/lisp/cedet/cedet-files-tests.el b/test/lisp/cedet/cedet-files-tests.el index d264410e3cb..daaf3edfc4e 100644 --- a/test/lisp/cedet/cedet-files-tests.el +++ b/test/lisp/cedet/cedet-files-tests.el @@ -29,20 +29,17 @@ (require 'cedet-files) (defvar cedet-files-utest-list - '( - ( "/home/me/src/myproj/src/foo.c" . "!home!me!src!myproj!src!foo.c" ) - ( "c:/work/myproj/foo.el" . "!drive_c!work!myproj!foo.el" ) - ( "//windows/proj/foo.java" . "!!windows!proj!foo.java" ) - ( "/home/me/proj!bang/foo.c" . "!home!me!proj!!bang!foo.c" ) - ) - "List of different file names to test. -Each entry is a cons cell of ( FNAME . CONVERTED ) + '(("/home/me/src/myproj/src/foo.c" . "!home!me!src!myproj!src!foo.c") + ("c:/work/myproj/foo.el" . "!drive_c!work!myproj!foo.el") + ("//windows/proj/foo.java" . "!!windows!proj!foo.java") + ("/home/me/proj!bang/foo.c" . "!home!me!proj!!bang!foo.c")) + "List of file names to test. +Each entry is a cons cell of (FNAME . CONVERTED) where FNAME is some file name, and CONVERTED is what it should be converted into.") (ert-deftest cedet-files-utest () - "Test out some file name conversions." - (interactive) + "Test some file name conversions." (dolist (FT cedet-files-utest-list) (let ((dir->file (cedet-directory-name-to-file-name (car FT) t)) (file->dir (cedet-file-name-to-directory-name (cdr FT) t))) |