mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 21:07:54 +00:00
more robust test execution with `org-test-run-all-tests'
* testing/org-test.el (org-test-touch-all-examples): Open all example files -- seems to help resolution of org ids. (org-test-run-all-tests): Open all example files before running tests.
This commit is contained in:
parent
b924b34b76
commit
63faebd64b
|
@ -222,10 +222,17 @@ files."
|
||||||
(file-name-nondirectory (buffer-file-name)))
|
(file-name-nondirectory (buffer-file-name)))
|
||||||
"/")))
|
"/")))
|
||||||
|
|
||||||
|
(defun org-test-touch-all-examples ()
|
||||||
|
(dolist (file (directory-files
|
||||||
|
org-test-example-dir 'full
|
||||||
|
"^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*\\.org$"))
|
||||||
|
(find-file file)))
|
||||||
|
|
||||||
(defun org-test-run-all-tests ()
|
(defun org-test-run-all-tests ()
|
||||||
"Run all defined tests matching \"\\(org\\|ob\\)\".
|
"Run all defined tests matching \"\\(org\\|ob\\)\".
|
||||||
Load all test files first."
|
Load all test files first."
|
||||||
(interactive)
|
(interactive)
|
||||||
|
(org-test-touch-all-examples)
|
||||||
(org-test-load)
|
(org-test-load)
|
||||||
(ert "\\(org\\|ob\\)"))
|
(ert "\\(org\\|ob\\)"))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue