diff options
| author | Johnson Denen <johnson.denen@gmail.com> | 2017-04-11 12:55:32 -0400 |
|---|---|---|
| committer | Johnson Denen <johnson.denen@gmail.com> | 2017-04-12 18:11:48 -0400 |
| commit | 9831a8fdae04a4b23b4f4d271d5806131c90a528 (patch) | |
| tree | 38e1d477adfb4d99d416e59c7894586df1df5900 /test/mastodon-auth-tests.el | |
| parent | d21fdb8b65dbe6bc85f6f28249355a4eeb06102d (diff) | |
Add mastodon-auth--registration-success test
Diffstat (limited to 'test/mastodon-auth-tests.el')
| -rw-r--r-- | test/mastodon-auth-tests.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/mastodon-auth-tests.el b/test/mastodon-auth-tests.el new file mode 100644 index 0000000..0963e95 --- /dev/null +++ b/test/mastodon-auth-tests.el @@ -0,0 +1,12 @@ +(require 'el-mock) +(load-file "../lisp/mastodon-auth.el") + +(ert-deftest mastodon-auth:registration-success () + (let ((hash (make-hash-table :test 'equal)) + (client-plist '(:client_id "client-id" :client_secret "client-secret"))) + (puthash "client_id" "client-id" hash) + (puthash "client_secret" "client-secret" hash) + (with-mock + (stub mastodon--json-hash-table => hash) + (mastodon-auth--registration-success) + (should (equal client-plist mastodon--client-app-plist))))) |