diff options
Diffstat (limited to 'tests/test-pearl-output.el')
| -rw-r--r-- | tests/test-pearl-output.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/test-pearl-output.el b/tests/test-pearl-output.el index 58cd446..a838bfb 100644 --- a/tests/test-pearl-output.el +++ b/tests/test-pearl-output.el @@ -68,12 +68,13 @@ (should (string-match-p "^#\\+title:" out)) (should-not (string-match-p "^\\*\\*\\* " out)))) -(ert-deftest test-pearl-build-org-content-title-cases-view-name () - "The view name in the file title is title-cased when title-casing is on, raw when off." +(ert-deftest test-pearl-build-org-content-title-uses-view-name-verbatim () + "The view name in the file title matches Linear's capitalization verbatim, +independent of `pearl-title-case-headings' (which governs issue headings only)." (let ((case-fold-search nil) ; strict so casing actually matters (source '(:type filter :name "my open bugs" :filter nil))) (let ((pearl-title-case-headings t)) - (should (string-match-p "^#\\+title: Linear — My Open Bugs$" + (should (string-match-p "^#\\+title: Linear — my open bugs$" (pearl--build-org-content '() source)))) (let ((pearl-title-case-headings nil)) (should (string-match-p "^#\\+title: Linear — my open bugs$" |