blob: 457385aec61bc21ef7a5e7370cd6fdbb75ef3af8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
(ns weepinbell.handler-test
(:require [clojure.test :refer [testing is deftest]]
[ring.mock.request :as mock]
[weepinbell.webserver.handler :refer [app]]
[weepinbell.webserver.facade :refer [make-services]]
[clojure.core.async :refer [chan poll!]]
[cheshire.core :refer [parse-string]]))
(defn test-app [wmc store config]
(app {:wmc wmc :store store :config config
:services (make-services)}))
(deftest api-routes-test
(testing "/api/mentions/:domain route"
(let [response ((test-app nil {:get-by-domain (fn [_]
[{:webmention {:source ""
:target ""
:id ""
:modified 0}}])}
{})
(mock/request :get "/api/mentions/www.example"))]
(is (= (:status response) 200))
(is (some? (:body response)))))
(testing "/api/mentions?url= route"
(let [response ((test-app nil
{:get-by-domain
(fn [_]
[{:webmention {:source "https://source.net"
:target "http://localhost"
:id "123456789123456789"
:modified 0}
:microformats {:type :like-of}}])}
{})
(mock/request :get "/api/mentions?url=http://localhost"))]
(is (= (:status response) 200))
(is (some? (:body response)))
(when-not (-> response :body parse-string empty?)
(is (-> response :body parse-string first (get "webmention") some?)))))
(testing "/api/count/:domain route"
(let [response ((test-app nil {:get-by-domain (fn [_]
[{:webmention {:source ""
:target ""
:id ""
:modified 0}}])}
{})
(mock/request :get "/api/count/www.example.com"))]
(is (= (:status response) 200))
(is (= 1 (-> response :body parse-string (get "count") Long.)))))
(testing "/api/count?url= route"
(let [response ((test-app nil
{:get-by-domain
(fn [_] [{:webmention {:source "1"
:target "http://localhost"}}])}
{})
(mock/request :get "/api/count?url=http://localhost"))]
(is (= (:status response) 200))
(is (= 1 (-> response :body parse-string (get "count") Long.)))))
(testing "/api/mention/:id"
(let [response ((test-app nil {:get (fn [_]
{:webmention {:source ""
:target ""
:id "xxx"
:modified 0}})}
{})
(mock/request :get "/api/mention/xxx"))]
(is (= (:status response) 200))))
(testing "/api/mention/?source=&target="
(let [response ((test-app nil {:get (fn [_ _]
{:webmention {:source "1"
:target "2"
:id "xxx"
:modified 0}})}
{})
(mock/request :get "/api/mention/?source=1&?target=2"))]
(is (= (:status response) 200)))))
(deftest feed-route-test
(testing "RSS feed for allowed domains and has items"
(let [response ((test-app nil {:get-by-domain (fn [_] [{:webmention nil}])}
{:allowed-target-domains "valid.com"})
(mock/request :get "/feed/valid.com"))]
(is (= (:status response) 404))))
(testing "RSS feed for allowed domains, but with no webmentions"
(let [response ((test-app nil nil {:allowed-target-domains "valid.com"})
(mock/request :get "/feed/valid.com"))]
(is (= (:status response) 404))))
(testing "not found for disallowed domains"
(let [response ((test-app nil nil {}) (mock/request :get "/feed/invalid.com"))]
(is (= (:status response) 404)))))
(deftest not-found-route-test
(testing "not-found route"
(let [response ((test-app nil nil {}) (mock/request :get "/invalid"))]
(is (= (:status response) 404)))))
(deftest receiver-endpoint-test
(testing "/endpoint and /api/send should receive valid webmention and return 201"
(let [test-chan (chan)
app (test-app test-chan nil {:endpoint "/endpoint"
:allowed-target-domains ["www.target.net"]})
payload {:source "https://a.validsource.com"
:target "https://www.target.net"}
resp-a (app (mock/request :post "/endpoint" payload))
resp-b (app (mock/request :post "/api/send" payload))]
(is (= 201 (:status resp-a)))
(is (= 201 (:status resp-b)))
(is (every? some? (repeatedly 2 #(poll! test-chan)))))))
|
