Add tests for mastodon-toot.el functions

1 files changed, 25 insertions, 0 deletions

diff --git a/test/mastodon-toot-tests.el b/test/mastodon-toot-tests.el
new file mode 100644
index 0000000..cdd3bb9
--- /dev/null
+++ b/test/mastodon-toot-tests.el
@@ -0,0 +1,25 @@
+(require 'el-mock)
+(load-file "../lisp/mastodon-toot.el")
+
+(ert-deftest mastodon-toot:cancel ()
+  (with-mock
+    (mock (kill-buffer-and-window))
+    (should (eq nil (mastodon-toot--cancel)))))
+
+(ert-deftest mastodon-toot:send ()
+  (with-mock
+    (stub mastodon--api-for => "https://instance/api/v/statuses")
+    (stub buffer-string => "This is a test toot")
+    (stub kill-buffer-and-window)
+    (stub mastodon--access-token => "access-token-string")
+    (mock (mastodon--http-post "https://instance/api/v/statuses"
+                               'mastodon-toot--send-triage
+                               '(("status" . "This is a test toot"))
+                               '(("Authorization" . "Bearer access-token-string"))))
+    (should (eq nil (mastodon-toot--send)))))
+
+(ert-deftest mastodon-toot:send-triage ()
+  (with-mock
+    (mock (mastodon--http-response-triage "status"
+                                          (lambda () (switch-to-buffer (current-buffer)))))
+    (should (eq nil (mastodon-toot--send-triage "status")))))