test-org/entry-get: Add test checking reported bug

See https://list.orgmode.org/orgmode/87zgrqqlcs.fsf@toloe.se/
2022-01-15 19:48:24 +08:00 · 2022-01-15 19:48:24 +08:00 · 8d9ca0eac1
parent 9623da4408
commit 8d9ca0eac1
1 changed files with 4 additions and 0 deletions
--- a/testing/lisp/test-org.el
+++ b/testing/lisp/test-org.el
@ -5869,6 +5869,10 @@ Paragraph<point>"
   (org-test-with-temp-text "* H\n:PROPERTIES:\n:A: 1\n:END:\n** H2"
     (let ((org-use-property-inheritance nil))
       (org-entry-get (point-max) "A" 'selective))))
+  (should-not
+   (org-test-with-temp-text "* H\n:PROPERTIES:\n:A: 1\n:END:\n* H2"
+     (let ((org-use-property-inheritance t))
+       (org-entry-get (point-max) "A" t))))
  (should
   (equal
    "1 2"