pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 16:24:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Extraneous progn

Browse source
This commit is contained in:
Benson Chu 2020-06-29 14:39:01 -05:00
parent 73bed5c3db
commit 366edec1fe
1 changed files with 21 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
tests/my-org-tests.el
View file

@ -9,28 +9,27 @@
(let ((file (expand-file-name file org-tests-directory))
(buffer-gensym (gensym "buffer")))
`(progn
,@(progn
(save-window-excursion
(let ((buffer (find-file-noselect file)))
(prog1 (with-current-buffer buffer
(beginning-of-buffer)
(when (not (org-at-heading-p ))
(outline-next-heading))
(cl-loop until (eobp)
for test-name = (intern (replace-regexp-in-string " " "-" (org-get-heading t nil t t)))
if (member "disabled" (org-get-tags))
do (add-to-list 'org-disabled-tests
test-name)
else
when (not (member test-name org-disabled-tests))
collect `(ert-deftest ,test-name ()
(let ((,buffer-gensym (find-file-noselect ,file)))
(with-current-buffer ,buffer-gensym
(goto-char ,(point))
,@body)
(kill-buffer ,buffer-gensym)))
do (org-end-of-subtree t t)))
(kill-buffer buffer))))))))
,@(save-window-excursion
(let ((buffer (find-file-noselect file)))
(prog1 (with-current-buffer buffer
(beginning-of-buffer)
(when (not (org-at-heading-p))
(outline-next-heading))
(cl-loop until (eobp)
for test-name = (intern (replace-regexp-in-string " " "-" (org-get-heading t nil t t)))
if (member "disabled" (org-get-tags))
do (add-to-list 'org-disabled-tests
test-name)
else
when (not (member test-name org-disabled-tests))
collect `(ert-deftest ,test-name ()
(let ((,buffer-gensym (find-file-noselect ,file)))
(with-current-buffer ,buffer-gensym
(goto-char ,(point))
,@body)
(kill-buffer ,buffer-gensym)))
do (org-end-of-subtree t t)))
(kill-buffer buffer)))))))
(ert-deftest canary-test ()
(should t))