diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test-pearl-format.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/test-pearl-format.el b/tests/test-pearl-format.el index 491348a..ec0e1e0 100644 --- a/tests/test-pearl-format.el +++ b/tests/test-pearl-format.el @@ -157,11 +157,14 @@ sort together (org-sort on the parent) instead of being orphan headings." (should-not (string-match-p "^#\\+STARTUP: overview$" out))))) (ert-deftest test-pearl-build-org-content-no-shared-file-id () - "The file header carries no hardcoded org :ID: drawer." + "The file header carries no hardcoded org :ID: drawer. +Asserts against an :ID: property specifically rather than any :PROPERTIES: +drawer: the folded help header legitimately carries a :VISIBILITY: drawer, so a +blanket :PROPERTIES: check would catch that instead of an actual id leak." (test-pearl--with-default-mapping (let ((out (pearl--build-org-content '()))) (should-not (string-match-p "a12acb12" out)) - (should-not (string-match-p "^:PROPERTIES:$" out))))) + (should-not (string-match-p "^:ID:" out))))) (ert-deftest test-pearl-build-org-content-includes-each-issue () "Each issue contributes one heading to the rendered content." |