diff options
author | Kevin J. Foley <kevin@kevinjfoley.me> | 2020-05-26 20:42:54 -0400 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2020-05-26 21:51:47 -0400 |
commit | 7a2b785d6a2d231e0fe6518f541e466430fb6c1f (patch) | |
tree | a4ba05bbdd778a0b835929bd2372f8d6b3ab3261 | |
parent | b51d129f3fd43586ce74a3c14a4c59aa207b12ca (diff) | |
download | org-mode-7a2b785d6a2d231e0fe6518f541e466430fb6c1f.tar.gz |
test-ob-tangle.el: Fix dirty repo state caused by testing
* testing/lisp/test-ob-tangle.el (ob-tangle/detangle-false-positive):
Kill modified buffer after test.
Another test is causing the modifications to be saved which leaves the
repo in a dirty state after testing.
Modified-by: Kyle Meyer <kyle@kyleam.com>
Changed to kill a let-bound buffer rather than a buffer name.
-rw-r--r-- | testing/lisp/test-ob-tangle.el | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/testing/lisp/test-ob-tangle.el b/testing/lisp/test-ob-tangle.el index ed75e6c..2283037 100644 --- a/testing/lisp/test-ob-tangle.el +++ b/testing/lisp/test-ob-tangle.el @@ -384,12 +384,17 @@ another block (ert-deftest ob-tangle/detangle-false-positive () "Test handling of false positive link during detangle." - (org-test-in-example-file (expand-file-name "babel.el" org-test-example-dir) - (org-babel-detangle) - (org-test-at-id "73115FB0-6565-442B-BB95-50195A499EF4" - (org-babel-next-src-block) - (should (equal (string-trim (org-element-property :value (org-element-at-point))) - ";; detangle changes"))))) + (let (buffer) + (unwind-protect + (org-test-in-example-file (expand-file-name "babel.el" org-test-example-dir) + (org-babel-detangle) + (org-test-at-id "73115FB0-6565-442B-BB95-50195A499EF4" + (setq buffer (current-buffer)) + (org-babel-next-src-block) + (should (equal (string-trim (org-element-property + :value (org-element-at-point))) + ";; detangle changes")))) + (kill-buffer buffer)))) (provide 'test-ob-tangle) |