aboutsummaryrefslogtreecommitdiff
path: root/test/mastodon-profile-tests.el
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-11-24 15:40:51 +0100
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-11-24 15:40:51 +0100
commitad2379ad7d0de022b92e07cabeaa4f08b7cdbf55 (patch)
tree072c4ffd7c792e445cfee1efd171f5c316b5a7b0 /test/mastodon-profile-tests.el
parent1713abbe28c4a8ad684b651450b2c6e06a512c9a (diff)
parentb2b8fe39b6863a1398bf7d50e9ee9bc3143d2fe2 (diff)
Merge branch 'develop' into capf-completion
Diffstat (limited to 'test/mastodon-profile-tests.el')
-rw-r--r--test/mastodon-profile-tests.el11
1 files changed, 8 insertions, 3 deletions
diff --git a/test/mastodon-profile-tests.el b/test/mastodon-profile-tests.el
index 704f2ce..7478aaf 100644
--- a/test/mastodon-profile-tests.el
+++ b/test/mastodon-profile-tests.el
@@ -172,7 +172,8 @@ The search will happen as if called without the \"@\"."
(with-mock
(mock (mastodon-http--get-json
- "https://instance.url/api/v1/accounts/search?q=gargron"))
+ "https://instance.url/api/v1/accounts/search"
+ '(("q" . "gargron"))))
(let ((mastodon-instance-url "https://instance.url"))
;; We don't check anything from the return value. We only care
@@ -182,7 +183,9 @@ The search will happen as if called without the \"@\"."
(ert-deftest mastodon-profile--search-account-by-handle--filters-out-false-results ()
"Should ignore results that don't match the searched handle."
(with-mock
- (mock (mastodon-http--get-json *)
+ (mock (mastodon-http--get-json
+ "https://instance.url/api/v1/accounts/search"
+ '(("q" . "Gargron")))
=>
(vector ccc-profile-json gargron-profile-json))
@@ -197,7 +200,9 @@ The search will happen as if called without the \"@\"."
TODO: We need to decide if this is actually desired or not."
(with-mock
- (mock (mastodon-http--get-json *) => (vector gargron-profile-json))
+ (mock (mastodon-http--get-json *
+ '(("q" . "gargron")))
+ => (vector gargron-profile-json))
(let ((mastodon-instance-url "https://instance.url"))
(should