From 2d79c9c5cffd0cc8bec683438f39d5c02b590aab Mon Sep 17 00:00:00 2001 From: Johnson Denen Date: Mon, 10 Apr 2017 22:02:19 -0400 Subject: Add tests for mastodon-toot.el functions --- test/mastodon-toot-tests.el | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 test/mastodon-toot-tests.el (limited to 'test') 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"))))) -- cgit v1.2.3