diff options
| author | marty hiatt <martianhiatus@riseup.net> | 2024-08-05 20:36:21 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus@riseup.net> | 2024-08-05 20:36:21 +0200 |
| commit | 57d7f0af0496dd926b4f03cc9af3a033c265eb8b (patch) | |
| tree | 4291d9b66e13872bcb6190dc54a386fc1bb8f870 | |
| parent | 1b6a3dedd9be2c0efc15074cd8d0ebdd53502f2e (diff) | |
fix user-action fun test
| -rw-r--r-- | test/mastodon-tl-tests.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/test/mastodon-tl-tests.el b/test/mastodon-tl-tests.el index f32d32f..7e8a9c2 100644 --- a/test/mastodon-tl-tests.el +++ b/test/mastodon-tl-tests.el @@ -1095,7 +1095,7 @@ correct value for following, as well as notifications enabled or disabled." (let ((response-buffer-true (current-buffer))) (insert mastodon-tl--follow-notify-true-response) (with-mock - (mock (mastodon-http--post url-follow-only nil) + (mock (mastodon-http--post url-follow-only nil nil nil nil) => response-buffer-true) (should (equal @@ -1108,7 +1108,7 @@ correct value for following, as well as notifications enabled or disabled." (let ((response-buffer-true (current-buffer))) (insert mastodon-tl--follow-notify-true-response) (with-mock - (mock (mastodon-http--post url-mute nil) + (mock (mastodon-http--post url-mute nil nil nil nil) => response-buffer-true) (should (equal @@ -1121,7 +1121,7 @@ correct value for following, as well as notifications enabled or disabled." (let ((response-buffer-true (current-buffer))) (insert mastodon-tl--follow-notify-true-response) (with-mock - (mock (mastodon-http--post url-block nil) + (mock (mastodon-http--post url-block nil nil nil nil) => response-buffer-true) (should (equal @@ -1135,7 +1135,8 @@ correct value for following, as well as notifications enabled or disabled." (insert mastodon-tl--follow-notify-true-response) (with-mock (with-mock - (mock (mastodon-http--post url-true nil) => response-buffer-true) + (mock (mastodon-http--post url-true nil nil nil nil) + => response-buffer-true) (should (equal (mastodon-tl--do-user-action-function url-true @@ -1148,7 +1149,8 @@ correct value for following, as well as notifications enabled or disabled." (let ((response-buffer-false (current-buffer))) (insert mastodon-tl--follow-notify-false-response) (with-mock - (mock (mastodon-http--post url-false nil) => response-buffer-false) + (mock (mastodon-http--post url-false nil nil nil nil) + => response-buffer-false) (should (equal (mastodon-tl--do-user-action-function url-false |