gav451/emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add `org-test-run-a-test-file' function

Browse Source
This commit is contained in:
Gerard Vermeulen 2024-01-19 11:31:51 +01:00
parent 459f0a34a7
commit ba1920a07e
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
README.org
View File

@ -3743,6 +3743,7 @@ facilities for [[https://orgmode.org/worg/org-tests/index.html][Testing Org]].
#+name: lst:setup-org-mode-test-2
#+begin_src emacs-lisp -n
(with-eval-after-load 'emacs
;; Stolen from `org-test-run-all-tests'.
(defun org-test-run-some-tests ()
"Run some defined tests.
Load all test files first."
@ -3771,9 +3772,19 @@ Load all test files first."
(org-test-load)
(let (;; Catch errors in diary sexps better.
(calendar-debug-sexp t))
(ert "ob/"))))
#+end_src
(ert "ob/")))
(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
:PROPERTIES: