diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test-pearl-output.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/test-pearl-output.el b/tests/test-pearl-output.el index f02df5f..55f7886 100644 --- a/tests/test-pearl-output.el +++ b/tests/test-pearl-output.el @@ -56,6 +56,12 @@ (should (string-match-p "^\\* Pearl Help$" out)) (should-not (string-match-p "^# " out)))) +(ert-deftest test-pearl-build-org-content-emits-priorities-range () + "The header pins the priority range to Linear's A-D (highest A, lowest D) so +cookie cycling reaches Low regardless of the user's global `org-priority-lowest'." + (let ((out (pearl--build-org-content '() '(:type filter :name "X" :filter nil)))) + (should (string-match-p "^#\\+PRIORITIES: A D D$" out)))) + (ert-deftest test-pearl-build-org-content-source-roundtrips () "The serialized source in the header reads back to the original plist." (let* ((source '(:type filter :name "Bugs" :filter (:labels ("bug") :open t))) |