diff options
Diffstat (limited to 'tests/test-pearl-views.el')
| -rw-r--r-- | tests/test-pearl-views.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/test-pearl-views.el b/tests/test-pearl-views.el index 2a5d6bd..2f2adfd 100644 --- a/tests/test-pearl-views.el +++ b/tests/test-pearl-views.el @@ -123,8 +123,11 @@ ;;; the view query fetches comments too (ert-deftest test-pearl-view-issues-query-requests-comments () - "The Custom View query selects comments, so a view-populated list shows them." - (should (string-match-p "comments[[:space:]]*{[[:space:]]*nodes" pearl--view-issues-query))) + "The Custom View query selects capped, newest-first comments by default." + (let ((pearl-fetch-comments-in-list t) + (pearl-list-comments-count-cap 25)) + (should (string-match-p "comments(first: 26, orderBy: createdAt)[[:space:]]*{[[:space:]]*nodes" + (pearl--view-issues-query))))) (provide 'test-pearl-views) ;;; test-pearl-views.el ends here |