From 7e3269835aace403d6462655dfa79d9a3060b02a Mon Sep 17 00:00:00 2001 From: mousebot Date: Mon, 20 Dec 2021 21:24:02 +0100 Subject: improve delete toot tests --- test/mastodon-tl-tests.el | 2 +- test/mastodon-toot-tests.el | 14 ++++++++------ 2 files changed, 9 insertions(+), 7 deletions(-) (limited to 'test') diff --git a/test/mastodon-tl-tests.el b/test/mastodon-tl-tests.el index c36b95a..dd07416 100644 --- a/test/mastodon-tl-tests.el +++ b/test/mastodon-tl-tests.el @@ -1069,7 +1069,7 @@ correct value for following, as well as notifications enabled or disabled." (mastodon-tl--do-user-action-function url-block user-name user-handle - "blocked") + "block") "User some-user (@some-user@instance.url) blocked!"))) (with-mock (mock (mastodon-http--post url-true nil nil) => response-buffer-true) diff --git a/test/mastodon-toot-tests.el b/test/mastodon-toot-tests.el index 1ad2558..f2c7b8f 100644 --- a/test/mastodon-toot-tests.el +++ b/test/mastodon-toot-tests.el @@ -99,14 +99,16 @@ mention string." (ert-deftest mastodon-toot--delete-toot-fail () "Should refuse to delete toot." - (with-temp-buffer - (insert mastodon-toot--mock-toot) - (goto-char (point-min)) - (should (equal (mastodon-toot--delete-toot) - "You can only delete (and redraft) your own toots.")))) + (let ((toot mastodon-toot-test-base-toot)) + (with-mock + (mock (mastodon-auth--user-acct) => "joebogus") + ;; (mock (mastodon-toot--own-toot-p toot) => nil) + (mock (mastodon-tl--property 'toot-json) => mastodon-toot-test-base-toot) + (should (equal (mastodon-toot--delete-toot) + "You can only delete (and redraft) your own toots."))))) (ert-deftest mastodon-toot--delete-toot () - "Should return correct triaged response to a DELETE request." + "Should return correct triaged response to a legitimate DELETE request." (with-temp-buffer (insert mastodon-toot--200-html) (let ((delete-response (current-buffer)) -- cgit v1.2.3