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
|
;;; mastodon-http-test.el --- Tests for mastodon-http.el -*- lexical-binding: nil -*-
(require 'el-mock)
(defconst mastodon-http--example-200
"HTTP/1.1 200 OK
Date: Mon, 20 Dec 2021 13:42:29 GMT
Content-Type: application/json; charset=utf-8
Transfer-Encoding: chunked
Connection: keep-alive
Server: Mastodon
X-Frame-Options: DENY
X-Content-Type-Options: nosniff
X-XSS-Protection: 1; mode=block
Permissions-Policy: interest-cohort=()
X-RateLimit-Limit: 300
X-RateLimit-Remaining: 298
X-RateLimit-Reset: 2021-12-20T13:45:00.630990Z
Cache-Control: no-store
Vary: Accept, Accept-Encoding, Origin
ETag: W/\"bee52f489c87e9a305e5d0b7bdca7ac1\"
X-Request-Id: 5be9a64e-7d97-41b4-97f3-17b5e972a675
X-Runtime: 0.371914
Strict-Transport-Security: max-age=63072000; includeSubDomains
Strict-Transport-Security: max-age=31536000
{\"id\":\"18173\",\"following\":true,\"showing_reblogs\":true,\"notifying\":true,\"followed_by\":true,\"blocking\":false,\"blocked_by\":false,\"muting\":false,\"muting_notifications\":false,\"requested\":false,\"domain_blocking\":false,\"endorsed\":false,\"note\":\"\"}")
(defconst mastodon-http--example-400
"HTTP/1.1 444 OK
Date: Mon, 20 Dec 2021 13:42:29 GMT
Content-Type: application/json; charset=utf-8
Transfer-Encoding: chunked
Connection: keep-alive
Server: Mastodon
X-Frame-Options: DENY
X-Content-Type-Options: nosniff
X-XSS-Protection: 1; mode=block
Permissions-Policy: interest-cohort=()
X-RateLimit-Limit: 300
X-RateLimit-Remaining: 298
X-RateLimit-Reset: 2021-12-20T13:45:00.630990Z
Cache-Control: no-store
Vary: Accept, Accept-Encoding, Origin
ETag: W/\"bee52f489c87e9a305e5d0b7bdca7ac1\"
X-Request-Id: 5be9a64e-7d97-41b4-97f3-17b5e972a675
X-Runtime: 0.371914
Strict-Transport-Security: max-age=63072000; includeSubDomains
Strict-Transport-Security: max-age=31536000
{\"error\":\"some unhappy complaint\"}")
(ert-deftest mastodon-http--get-retrieves-endpoint ()
"Should make a `url-retrieve' of the given URL."
(with-mock
(mock (mastodon-http--url-retrieve-synchronously "https://foo.bar/baz" nil))
(mock (mastodon-auth--access-token) => "test-token")
(mastodon-http--get "https://foo.bar/baz" nil)))
(ert-deftest mastodon-http--triage-success ()
"Should run success function for 200 HTML response."
(let ((response-buffer
(get-buffer-create "mastodon-http--triage-buffer")))
(with-current-buffer response-buffer
(erase-buffer)
(insert mastodon-http--example-200))
(should (equal (mastodon-http--triage
response-buffer
(lambda (_)
(message "success call")))
"success call"))))
(ert-deftest mastodon-http--triage-failure ()
"Should return formatted JSON error from bad HTML response buffer.
Should not run success function."
(let ((response-buffer
(get-buffer-create "mastodon-http--triage-buffer")))
(with-current-buffer response-buffer
(erase-buffer)
(insert mastodon-http--example-400))
(should (equal (mastodon-http--triage
response-buffer
(lambda (_)
(message "success call")))
"Error 444: some unhappy complaint"))))
(ert-deftest mastodon-http-params-build ()
"Should correctly format parameters from an alist."
(let ((params '(("q" . "test")
("foo" . "bar"))))
(should (string= (mastodon-http--build-params-string params)
"q=test&foo=bar"))))
(ert-deftest mastodon-http-params-array-build ()
"Should correctly format parameters from an alist."
(let ((array '("option" "option2"))
(param-str "poll[x][]"))
(should (equal (mastodon-http--build-array-params-alist param-str array)
'(("poll[x][]" . "option")
("poll[x][]" . "option2"))))))
(ert-deftest mastodon-http-concat-params-url ()
""
(let ((url "https://example.com")
(params '(("q" . "query"))))
(should (equal (mastodon-http--concat-params-to-url url params)
"https://example.com?q=query"))))
|
