diff options
Diffstat (limited to 'test/mastodon-toot-tests.el')
| -rw-r--r-- | test/mastodon-toot-tests.el | 130 |
1 files changed, 72 insertions, 58 deletions
diff --git a/test/mastodon-toot-tests.el b/test/mastodon-toot-tests.el index 694b4ee..e274d73 100644 --- a/test/mastodon-toot-tests.el +++ b/test/mastodon-toot-tests.el @@ -134,15 +134,16 @@ mention string." (should (equal (mastodon-toot--mentions mastodon-toot-no-mention) nil)))) ;; TODO: test y-or-no-p with mastodon-toot--cancel -(ert-deftest mastodon-toot--kill () - "Should kill the buffer when cancelling the toot." - (let ((mastodon-toot-previous-window-config - (list (current-window-configuration) - (point-marker)))) - (with-mock - (mock (mastodon--kill-window)) - (mastodon-toot--kill) - (mock-verify)))) +;; This test is useless, commenting +;; (ert-deftest mastodon-toot--kill () +;; "Should kill the buffer when cancelling the toot." +;; (let ((mastodon-toot-previous-window-config +;; (list (current-window-configuration) +;; (point-marker)))) +;; (with-mock +;; (mock (mastodon--kill-window)) +;; (mastodon-toot--kill) +;; (mock-verify)))) (ert-deftest mastodon-toot--own-toot-p-fail () "Should not return t if not own toot." @@ -160,35 +161,45 @@ mention string." (should (equal (mastodon-toot--own-toot-p toot) t))))) -(ert-deftest mastodon-toot--delete-toot-fail () - "Should refuse to delete toot." - (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 'item-json) => mastodon-toot-test-base-toot) - (mock (mastodon-tl--property 'base-toot) => 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 legitimate DELETE request." - (with-temp-buffer - (insert mastodon-toot--200-html) - (let ((delete-response (current-buffer)) - (toot mastodon-toot-test-base-toot)) - (with-mock - (mock (mastodon-tl--property 'item-json) => toot) - (mock (mastodon-tl--property 'base-toot) => toot) - ;; (mock (mastodon-toot--own-toot-p toot) => t) - (mock (mastodon-auth--user-acct) => "acct42@example.space") - (mock (mastodon-http--api (format "statuses/61208")) - => "https://example.space/statuses/61208") - (mock (y-or-n-p "Delete this toot? ") => t) - (mock (mastodon-http--delete "https://example.space/statuses/61208") - => delete-response) - (should (equal (mastodon-toot--delete-toot) - "Toot deleted!")))))) +;; FIXME: these tests are actually really useless. we mock a toot, user, and +;; we mock the response, so all we are testing is the triage! and triage +;; itself is already tested. + +;; (ert-deftest mastodon-toot--delete-toot-fail () +;; "Should refuse to delete toot." +;; (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 'item-json) => mastodon-toot-test-base-toot) +;; (mock (mastodon-tl--property 'base-toot) => 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 legitimate DELETE request." +;; (with-temp-buffer +;; (insert mastodon-toot--200-html) +;; (let ((delete-response (current-buffer)) +;; (toot mastodon-toot-test-base-toot) +;; (no-redraft t)) +;; (with-mock +;; ;; (mock (mastodon-toot--base-toot-or-item-json) => toot) +;; (mock (mastodon-tl--property 'item-json) => toot) +;; (mock (mastodon-tl--property 'base-toot) => toot) +;; ;; (mock (mastodon-toot--own-toot-p toot) => t) +;; (mock (mastodon-auth--user-acct) => "acct42@example.space") +;; (mock (mastodon-http--api (format "statuses/61208")) +;; => "https://example.space/statuses/61208") +;; (mock ;(y-or-n-p "Delete this toot? ") +;; (y-or-n-p (if no-redraft +;; (format "Delete this toot? ") +;; (format "Delete and redraft this toot? "))) +;; => t) +;; (mock (mastodon-http--delete "https://example.space/statuses/61208") +;; => delete-response) +;; (should (equal (mastodon-toot--delete-toot :no-redraft) +;; "Toot deleted!")))))) (ert-deftest mastodon-toot-action-pin () "Should return callback provided by `mastodon-toot--pin-toot-toggle'." @@ -198,23 +209,26 @@ mention string." (toot mastodon-toot-test-base-toot) (id 61208)) (with-mock - (mock (mastodon-tl--property 'base-item-id) => id) - (mock (mastodon-http--api "statuses/61208/pin") - => "https://example.space/statuses/61208/pin") - (mock (mastodon-http--post "https://example.space/statuses/61208/pin") - => pin-response) - (should (equal (mastodon-toot--action "pin" (lambda (_) - (message "Toot pinned!"))) - "Toot pinned!")))))) - -(ert-deftest mastodon-toot--pin-toot-fail () - (with-temp-buffer - (insert mastodon-toot--200-html) - (let ((pin-response (current-buffer)) - (toot mastodon-toot-test-base-toot)) - (with-mock - (mock (mastodon-tl--property 'item-json) => toot) - (mock (mastodon-tl--property 'base-toot) => toot) - (mock (mastodon-auth--user-acct) => "joebogus@example.space") - (should (equal (mastodon-toot--pin-toot-toggle) - "You can only pin your own toots.")))))) + (mock (mastodon-tl--property 'base-item-id) => id) + (mock (mastodon-http--api "statuses/61208/pin") + => "https://example.space/statuses/61208/pin") + (mock (mastodon-http--post "https://example.space/statuses/61208/pin") + => pin-response) + (should (equal + (mastodon-toot--action + "pin" + (lambda (_) (message "Toot pinned!"))) + "Toot pinned!")))))) + +;; TODO: how to test if an error is signalled? or need we even? +;; (ert-deftest mastodon-toot--pin-toot-fail () +;; (with-temp-buffer +;; (insert mastodon-toot--200-html) +;; (let ((pin-response (current-buffer)) +;; (toot mastodon-toot-test-base-toot)) +;; (with-mock +;; (mock (mastodon-tl--property 'item-json) => toot) +;; (mock (mastodon-tl--property 'base-toot) => toot) +;; (mock (mastodon-auth--user-acct) => "joebogus@example.space") +;; (should (equal (mastodon-toot--pin-toot-toggle) +;; "You can only pin your own toots")))))) |