aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorJohnson Denen <johnson.denen@gmail.com>2017-04-12 12:04:03 -0400
committerJohnson Denen <johnson.denen@gmail.com>2017-04-12 18:11:48 -0400
commit40a54819cfcba889a812c721d4cc0743ce5ae544 (patch)
treea390a82f76b73711c0e70c00da041e3d31f0fb92 /test
parent59390fba8c795973069064f4216550f4e088a98f (diff)
Abstract success lambda to its own function and test
Add `mastodon-auth--get-token-success' Add test for `mastodon-auth--get-token-success' Add test for `mastodon--get-access-token-triage'
Diffstat (limited to 'test')
-rw-r--r--test/mastodon-auth-tests.el14
1 files changed, 14 insertions, 0 deletions
diff --git a/test/mastodon-auth-tests.el b/test/mastodon-auth-tests.el
index 95ba597..4560e27 100644
--- a/test/mastodon-auth-tests.el
+++ b/test/mastodon-auth-tests.el
@@ -87,3 +87,17 @@
(mock (mastodon-auth--token-file) => "fixture/empty.plstore")
(mock (mastodon--store-client-id-and-secret))
(mastodon--client-app)))
+
+(ert-deftest mastodon-auth:get-token-success ()
+ "Should return access token from `url-retrieve' response JSON."
+ (let ((hash (make-hash-table :test 'equal)))
+ (puthash "access_token" "token-value" hash)
+ (with-mock
+ (mock (mastodon--json-hash-table) => hash)
+ (should (string= (mastodon-auth--get-token-success) "token-value")))))
+
+(ert-deftest mastodon-auth:get-access-token-triage ()
+ "Should wrap `mastodon--http-response-triage'."
+ (with-mock
+ (mock (mastodon--http-response-triage "status" 'mastodon-auth--get-token-success))
+ (mastodon--get-access-token-triage "status")))