diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test-pearl-sort.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/test-pearl-sort.el b/tests/test-pearl-sort.el index 6527989..a5292b3 100644 --- a/tests/test-pearl-sort.el +++ b/tests/test-pearl-sort.el @@ -191,6 +191,16 @@ leaving its server :sort (an IssueSortInput) untouched." (goto-char (point-min)) (should (search-forward "A stray local heading" nil t)))) +(ert-deftest test-pearl-reorder-by-id-ranks () + "With an id-rank hash, subtrees are laid out in the ranked order (server sort)." + (test-pearl-sort--in-org test-pearl-sort--flat + (let ((ranks (make-hash-table :test 'equal))) + ;; Rank i1 before i2, the reverse of the buffer's i2,i1 order. + (puthash "i1" 0 ranks) + (puthash "i2" 1 ranks) + (should (eq (pearl--reorder-issue-subtrees nil 'asc ranks) t)) + (should (equal (test-pearl-sort--issue-ids) '("i1" "i2")))))) + ;;; toggle target (ert-deftest test-pearl-toggle-target-filter-no-sort-defaults () |