diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-06-17 10:07:47 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-06-17 11:23:41 +0200 |
| commit | d4d0a09427ca25cf799024abf18b636a0bfd1474 (patch) | |
| tree | 56623ae2786ef8186e2be2cb5d2bbd2b3752650d /test/lisp/cedet/cedet-files-tests.el | |
| parent | 4ce2322894a21a1bd3045a6c0dcb2069b31a9c05 (diff) | |
| download | emacs-d4d0a09427ca25cf799024abf18b636a0bfd1474.tar.gz emacs-d4d0a09427ca25cf799024abf18b636a0bfd1474.tar.bz2 emacs-d4d0a09427ca25cf799024abf18b636a0bfd1474.zip | |
Fix misplaced interactive spec
* test/lisp/progmodes/cperl-mode-tests.el (cperl-test-bug-10483):
* test/lisp/cedet/srecode/document-tests.el
(srecode-document-function-comment-extract-test):
* test/lisp/obsolete/inversion-tests.el (inversion-unit-test):
* test/lisp/cedet/cedet-files-tests.el (cedet-files-utest): Remove
misplaced interactive spec.
(cedet-files-utest-list): Minor doc fix; improve formatting.
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))) |