From 57d7f0af0496dd926b4f03cc9af3a033c265eb8b Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus@riseup.net>
Date: Mon, 5 Aug 2024 20:36:21 +0200
Subject: fix user-action fun test

---
 test/mastodon-tl-tests.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 'test')

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
-- 
cgit v1.2.3