diff options
Diffstat (limited to 'tests/test-pearl-format.el')
| -rw-r--r-- | tests/test-pearl-format.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/test-pearl-format.el b/tests/test-pearl-format.el index ec0e1e0..ee15a2a 100644 --- a/tests/test-pearl-format.el +++ b/tests/test-pearl-format.el @@ -149,11 +149,13 @@ sort together (org-sort on the parent) instead of being orphan headings." (should (< (string-match "^\\* My open issues$" out) (string-match "^\\*\\* IN-PROGRESS" out)))))) -(ert-deftest test-pearl-build-org-content-startup-show3levels () - "The page opens folded to headings (parent, issues, Comments), bodies hidden." +(ert-deftest test-pearl-build-org-content-startup-show2levels () + "The page opens folded to the parent and issue headings; Comments (level 3) +and all bodies stay folded, so a fresh view isn't a wall of open issues." (test-pearl--with-default-mapping (let ((out (pearl--build-org-content '()))) - (should (string-match-p "^#\\+STARTUP: show3levels$" out)) + (should (string-match-p "^#\\+STARTUP: show2levels$" out)) + (should-not (string-match-p "^#\\+STARTUP: show3levels$" out)) (should-not (string-match-p "^#\\+STARTUP: overview$" out))))) (ert-deftest test-pearl-build-org-content-no-shared-file-id () |