Add `org-test-run-a-test-file' function
This commit is contained in:
parent
459f0a34a7
commit
ba1920a07e
15
README.org
15
README.org
|
@ -3743,6 +3743,7 @@ facilities for [[https://orgmode.org/worg/org-tests/index.html][Testing Org]].
|
||||||
#+name: lst:setup-org-mode-test-2
|
#+name: lst:setup-org-mode-test-2
|
||||||
#+begin_src emacs-lisp -n
|
#+begin_src emacs-lisp -n
|
||||||
(with-eval-after-load 'emacs
|
(with-eval-after-load 'emacs
|
||||||
|
;; Stolen from `org-test-run-all-tests'.
|
||||||
(defun org-test-run-some-tests ()
|
(defun org-test-run-some-tests ()
|
||||||
"Run some defined tests.
|
"Run some defined tests.
|
||||||
Load all test files first."
|
Load all test files first."
|
||||||
|
@ -3771,9 +3772,19 @@ Load all test files first."
|
||||||
(org-test-load)
|
(org-test-load)
|
||||||
(let (;; Catch errors in diary sexps better.
|
(let (;; Catch errors in diary sexps better.
|
||||||
(calendar-debug-sexp t))
|
(calendar-debug-sexp t))
|
||||||
(ert "ob/"))))
|
(ert "ob/")))
|
||||||
#+end_src
|
|
||||||
|
|
||||||
|
(defun org-test-run-a-test-file ()
|
||||||
|
"Run all tests in an Org test file (trailing `/' matters).
|
||||||
|
Examples: `ob/' or `ob-maxima'."
|
||||||
|
(interactive)
|
||||||
|
(let ((text (read-string "Org test file (without leading test-): "
|
||||||
|
nil nil "ob-maxima")))
|
||||||
|
(org-test-load)
|
||||||
|
(let (;; Catch errors in diary sexps better.
|
||||||
|
(calendar-debug-sexp t))
|
||||||
|
(ert text))))))
|
||||||
|
#+end_src
|
||||||
|
|
||||||
*** [[info:org#Export Settings][File inclusion (info)]] and [[info:org#Noweb Reference Syntax][Noweb (info)]] trickery
|
*** [[info:org#Export Settings][File inclusion (info)]] and [[info:org#Noweb Reference Syntax][Noweb (info)]] trickery
|
||||||
:PROPERTIES:
|
:PROPERTIES:
|
||||||
|
|
Loading…
Reference in New Issue