tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

fully remove contrib/ from the test infrastucture

Browse source
This commit is contained in:
Eric Schulte 2012-03-01 11:28:46 -07:00
parent 933c0fa441
commit 618eb91e12
1 changed files with 2 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
testing/org-test.el
View file

@ -224,12 +224,8 @@ otherwise place the point at the beginning of the inserted text."
(defjump org-test-jump (defjump org-test-jump
(("lisp/\\1.el" . "testing/lisp/test-\\1.el") (("lisp/\\1.el" . "testing/lisp/test-\\1.el")
("lisp/\\1.el" . "testing/lisp/\\1.el/test.*.el") ("lisp/\\1.el" . "testing/lisp/\\1.el/test.*.el")
("contrib/lisp/\\1.el" . "testing/contrib/lisp/test-\\1.el")
("contrib/lisp/\\1.el" . "testing/contrib/lisp/\\1.el/test.*.el")
("testing/lisp/test-\\1.el" . "lisp/\\1.el") ("testing/lisp/test-\\1.el" . "lisp/\\1.el")
("testing/lisp/\\1.el" . "lisp/\\1.el/test.*.el") ("testing/lisp/\\1.el" . "lisp/\\1.el/test.*.el"))
("testing/contrib/lisp/test-\\1.el" . "contrib/lisp/\\1.el")
("testing/contrib/lisp/test-\\1.el" . "contrib/lisp/\\1.el/test.*.el"))
(concat org-base-dir "/") (concat org-base-dir "/")
"Jump between org-mode files and their tests." "Jump between org-mode files and their tests."
(lambda (path) (lambda (path)
@ -313,8 +309,7 @@ otherwise place the point at the beginning of the inserted text."
:expected-result :failed (should nil)))))))) :expected-result :failed (should nil))))))))
(directory-files base 'full (directory-files base 'full
"^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*\\.el$")))) "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*\\.el$"))))
(rld (expand-file-name "lisp" org-test-dir)) (rld (expand-file-name "lisp" org-test-dir))))
(rld (expand-file-name "lisp" (expand-file-name "contrib" org-test-dir)))))
(defun org-test-current-defun () (defun org-test-current-defun ()
"Test the current function." "Test the current function."