mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix misplaced interactive spec

Browse source 
* 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.
This commit is contained in:
Stefan Kangas 2022-06-17 10:07:47 +02:00
parent 4ce2322894
commit d4d0a09427
4 changed files with 7 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

17
test/lisp/cedet/cedet-files-tests.el
View file

@ -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)))