Add mastodon-auth--registration-success test

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)))))