mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

test-org-element: Add new tests for org-element-cache 

* testing/lisp/test-org-element.el (test-org-element/cache): Add tests
for edits near :end of an element.
This commit is contained in:
Ihor Radchenko 2021-12-16 12:03:18 +08:00
parent 4bad221a60
commit f0c474e659
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
testing/lisp/test-org-element.el
View File

@ -4068,6 +4068,22 @@ Text
(should (eq 'example-block (org-element-type (org-element-at-point))))
(re-search-forward "END_")
(org-element-type (org-element-at-point))))))
;; Test edits near :end of element
(should-not (eq 'headline
(org-test-with-temp-text "* H1\nP1\n<point>*H2\n"
(org-element-cache-map #'ignore :granularity 'element)
(insert "Blah")
(org-element-type (org-element-at-point)))))
(should-not (eq 'headline
(org-test-with-temp-text "* H1\nP1\n<point>*H2\n"
(org-element-cache-map #'ignore :granularity 'element)
(backward-delete-char 1)
(org-element-type (org-element-at-point)))))
(should (eq 'headline
(org-test-with-temp-text "* H1\nP1\n<point*H2\n"
(org-element-cache-map #'ignore :granularity 'element)
(insert "Blah\n")
(org-element-type (org-element-at-point)))))
;; Corner case: watch out drawers named "PROPERTIES" as they are
;; fragile, unlike to other drawers.
(should