From bc0919fd2fce876172c644fdb0cdba98495e4142 Mon Sep 17 00:00:00 2001 From: eltrac Date: Sat, 24 Oct 2026 16:15:07 +0800 Subject: retriever: fix not parsing numeric string to number before paging #79 --- test/weepinbell/retriever_test.clj | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'test') diff --git a/test/weepinbell/retriever_test.clj b/test/weepinbell/retriever_test.clj index c4044ed..98102ef 100644 --- a/test/weepinbell/retriever_test.clj +++ b/test/weepinbell/retriever_test.clj @@ -13,6 +13,14 @@ resp1 (ret/by-domain "" 1 mock-store {})] (is (= page-size (count (:body resp0)))) (is (= page-size (count (:body resp1))))))) + (testing "by-domain: if page is a string that can be parsed to number, it should work" + (with-redefs [weepinbell.webserver.retriever/default-page-size page-size] + (let [mock-data [{:webmention {:source "1" :target "1"}} + {:webmention {:source "2" :target "2"}}] + mock-store {:get-by-domain (fn [& _] mock-data)} + resp0 (ret/by-domain "" "0" mock-store {}) + resp1 (ret/by-domain "" 0 mock-store {})] + (is (= resp0 resp1))))) (testing "by-domain: if page is not number, return the last page frame" (with-redefs [weepinbell.webserver.retriever/default-page-size page-size] (let [mock-data [{:webmention {:source "1" :target "1"}} -- cgit v1.2.3