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

See https://list.orgmode.org/orgmode/87zgrqqlcs.fsf@toloe.se/
This commit is contained in:
Ihor Radchenko 2022-01-15 19:48:24 +08:00
parent 9623da4408
commit 8d9ca0eac1
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 4 additions and 0 deletions

View File

@ -5869,6 +5869,10 @@ Paragraph<point>"
(org-test-with-temp-text "* H\n:PROPERTIES:\n:A: 1\n:END:\n** H2" (org-test-with-temp-text "* H\n:PROPERTIES:\n:A: 1\n:END:\n** H2"
(let ((org-use-property-inheritance nil)) (let ((org-use-property-inheritance nil))
(org-entry-get (point-max) "A" 'selective)))) (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 (should
(equal (equal
"1 2" "1 2"