diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/mastodon-auth-tests.el | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/test/mastodon-auth-tests.el b/test/mastodon-auth-tests.el index 0963e95..160a09e 100644 --- a/test/mastodon-auth-tests.el +++ b/test/mastodon-auth-tests.el @@ -2,6 +2,7 @@ (load-file "../lisp/mastodon-auth.el") (ert-deftest mastodon-auth:registration-success () + "Should set `mastodon--client-app-plist' on succesful registration." (let ((hash (make-hash-table :test 'equal)) (client-plist '(:client_id "client-id" :client_secret "client-secret"))) (puthash "client_id" "client-id" hash) @@ -10,3 +11,21 @@ (stub mastodon--json-hash-table => hash) (mastodon-auth--registration-success) (should (equal client-plist mastodon--client-app-plist))))) + +(ert-deftest mastodon-auth:register-client-app () + "Should POST client data to /apps endpoint." + (with-mock + (mock (mastodon--api-for "apps") => "https://instance/api/v1/apps") + (mock (mastodon--http-post "https://instance/api/v1/apps" + 'mastodon--register-client-app-triage + '(("client_name" . "mastodon.el") + ("redirect_uris" . "urn:ietf:wg:oauth:2.0:oob") + ("scopes" . "read write follow") + ("website" . "https://github.com/jdenen/mastodon.el")))) + (should (eq nil (mastodon--register-client-app))))) + +(ert-deftest mastodon-auth:register-client-app-triage () + "Should wrap `mastodon--http-response-triage' call." + (with-mock + (mock (mastodon--http-response-triage "status" 'mastodon-auth--registration-success)) + (should (eq nil (mastodon--register-client-app-triage "status"))))) |