mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-23 19:49:32 +00:00
Code

be a little nicer about burying buffers used in running tests

Browse Source
This commit is contained in:
Eric Schulte 2012-01-24 09:35:37 -07:00
parent 551ad25135
commit b0eebd1ae1
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
testing/org-test.el
View File

@ -199,7 +199,7 @@ otherwise place the point at the beginning of the inserted text."
(goto-char ,(match-beginning 0))) (goto-char ,(match-beginning 0)))
`(progn (insert ,inside-text) `(progn (insert ,inside-text)
(goto-char (point-min))))) (goto-char (point-min)))))
,@body))) (prog1 ,@body (kill-buffer)))))
(def-edebug-spec org-test-with-temp-text (form body)) (def-edebug-spec org-test-with-temp-text (form body))
(defmacro org-test-with-temp-text-in-file (text &rest body) (defmacro org-test-with-temp-text-in-file (text &rest body)
@ -329,11 +329,19 @@ otherwise place the point at the beginning of the inserted text."
(file-name-nondirectory (buffer-file-name))) (file-name-nondirectory (buffer-file-name)))
"/"))) "/")))
(defvar org-test-buffers nil
"Hold buffers open for running Org-mode tests.")
(defun org-test-touch-all-examples () (defun org-test-touch-all-examples ()
(dolist (file (directory-files (dolist (file (directory-files
org-test-example-dir 'full org-test-example-dir 'full
"^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*\\.org$")) "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*\\.org$"))
(find-file file))) (unless (get-file-buffer file)
(add-to-list 'org-test-buffers (find-file file)))))
(defun org-test-bury-all-examples ()
(mapcar (lambda (b) (when (buffer-live-p b) (bury-buffer b)))
org-test-buffers))
(defun org-test-update-id-locations () (defun org-test-update-id-locations ()
(org-id-update-id-locations (org-id-update-id-locations
@ -362,7 +370,8 @@ Load all test files first."
(interactive) (interactive)
(org-test-touch-all-examples) (org-test-touch-all-examples)
(org-test-load) (org-test-load)
(ert "\\(org\\|ob\\)")) (ert "\\(org\\|ob\\)")
(org-test-bury-all-examples))
(provide 'org-test) (provide 'org-test)