branch: externals/org
commit 3f59ea981ce5d98013e2b355aef35637ffdbdfca
Author: Ihor Radchenko <[email protected]>
Commit: Bastien <[email protected]>
Add a test for known bug in org-element-cache
* testing/lisp/test-org-element.el (test-org-element/cache-bugs): A
new test documenting a known bug:
1. Create initial file like:
P0
P1
| a | b |
<point>| c | d |
Note that second line of the table is not indented. Now,
org-element-at-point returns table-row.
2. Modify the file to test org-element-cache
P0
- item
P1
| a | b |
<point>| c | d |
Now, the first (indented) row of the table belongs to item. The
second row should be an individual table and org-element-at-point
returns table.
---
testing/lisp/test-org-element.el | 15 +++++++++++++++
1 file changed, 15 insertions(+)
diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el
index 28e9ecd..18991b5 100644
--- a/testing/lisp/test-org-element.el
+++ b/testing/lisp/test-org-element.el
@@ -3889,6 +3889,21 @@ Text
:end (org-element-property :parent (org-element-at-point)))
(+ parent-end 3))))))
+(ert-deftest test-org-element/cache-bugs ()
+ "Test basic expectations and common pitfalls for cache."
+ :expected-result :failed
+ ;; Unindented second row of the table should not be re-parented by
+ ;; inserted item.
+ (should
+ (eq 'table
+ (let ((org-element-use-cache t))
+ (org-test-with-temp-text
+ "#+begin_center\nP0\n\n<point>\n\n P1\n | a | b |\n| c | d
|\n#+end_center"
+ (save-excursion (search-forward "| c |") (org-element-at-point))
+ (insert "- item")
+ (search-forward "| c |")
+ (beginning-of-line)
+ (org-element-type (org-element-at-point)))))))
(provide 'test-org-element)
