From 574c17c4bdfe43a3081ddcbde4452dd477929c02 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Sun, 15 Oct 2023 11:54:28 +0200
Subject: toot-id>item-id, toot-json>item-json, item-type for nav, byline still
 needed

---
 test/mastodon-tl-tests.el | 66 +++++++++++++++++++++++------------------------
 1 file changed, 33 insertions(+), 33 deletions(-)

(limited to 'test/mastodon-tl-tests.el')

diff --git a/test/mastodon-tl-tests.el b/test/mastodon-tl-tests.el
index 899960e..be72f66 100644
--- a/test/mastodon-tl-tests.el
+++ b/test/mastodon-tl-tests.el
@@ -168,16 +168,16 @@ Strict-Transport-Security: max-age=31536000
   (let ((input "foobar</p>"))
     (should (string= (mastodon-tl--remove-html input) "foobar\n\n"))))
 
-(ert-deftest mastodon-tl--toot-id-boosted ()
+(ert-deftest mastodon-tl--item-id-boosted ()
   "If a toot is boostedm, return the reblog id."
   (should (string= (mastodon-tl--as-string
-                    (mastodon-tl--toot-id mastodon-tl-test-base-boosted-toot))
+                    (mastodon-tl--item-id mastodon-tl-test-base-boosted-toot))
                    "4543919")))
 
-(ert-deftest mastodon-tl--toot-id ()
+(ert-deftest mastodon-tl--item-id ()
   "If a toot is boostedm, return the reblog id."
   (should (string= (mastodon-tl--as-string
-                    (mastodon-tl--toot-id mastodon-tl-test-base-toot))
+                    (mastodon-tl--item-id mastodon-tl-test-base-toot))
                    "61208")))
 
 (ert-deftest mastodon-tl--as-string-1 ()
@@ -926,19 +926,19 @@ constant."
       (insert "some text before\n")
       (setq toot-start (point))
       (with-mock
-        (mock (mastodon-profile--get-preferences-pref
-               'reading:expand:spoilers)
-              => :json-false)
-        (stub create-image => '(image "fake data"))
-        (stub shr-render-region => nil) ;; Travis's Emacs doesn't have libxml
-        (insert
-         (mastodon-tl--spoiler normal-toot-with-spoiler)))
+       (mock (mastodon-profile--get-preferences-pref
+              'reading:expand:spoilers)
+             => :json-false)
+       (stub create-image => '(image "fake data"))
+       (stub shr-render-region => nil) ;; Travis's Emacs doesn't have libxml
+       (insert
+        (mastodon-tl--spoiler normal-toot-with-spoiler)))
       (setq toot-end (point))
       (insert "\nsome more text.")
       (add-text-properties
        toot-start toot-end
-       (list 'toot-json normal-toot-with-spoiler
-	         'toot-id (cdr (assoc 'id normal-toot-with-spoiler))))
+       (list 'item-json normal-toot-with-spoiler
+	     'item-id (cdr (assoc 'id normal-toot-with-spoiler))))
 
       (goto-char toot-start)
       ;; (should (eq t (looking-at "This is the spoiler warning text")))
@@ -1147,28 +1147,28 @@ correct value for following, as well as notifications enabled or disabled."
     (let* ((toot mastodon-tl-test-base-toot)
            (account (alist-get 'account toot)))
       (with-mock
-        ;; no longer needed after our refactor
-        ;; (mock (mastodon-http--api "reports") => "https://instance.url/api/v1/reports")
-        ;; (mock (mastodon-tl--toot-or-base
-        ;; (mastodon-tl--property 'toot-json :no-move))
-        ;; => mastodon-tl-test-base-toot)
-        (mock (read-string "Add comment [optional]: ") => "Dummy complaint")
-        (stub y-or-n-p => nil) ; no to all
+       ;; no longer needed after our refactor
+       ;; (mock (mastodon-http--api "reports") => "https://instance.url/api/v1/reports")
+       ;; (mock (mastodon-tl--toot-or-base
+       ;; (mastodon-tl--property 'item-json :no-move))
+       ;; => mastodon-tl-test-base-toot)
+       (mock (read-string "Add comment [optional]: ") => "Dummy complaint")
+       (stub y-or-n-p => nil) ; no to all
+       (should (equal (mastodon-tl--report-params account toot)
+                      '(("account_id" . 42)
+                        ("comment" . "Dummy complaint")
+                        ("category" . "other"))))
+       (with-mock
+        (stub y-or-n-p => t) ; yes to all
+        (mock (mastodon-tl--read-rules-ids) => '(1 2 3))
         (should (equal (mastodon-tl--report-params account toot)
-                       '(("account_id" . 42)
+                       '(("rule_ids[]" . 3)
+                         ("rule_ids[]" . 2)
+                         ("rule_ids[]" . 1)
+                         ("account_id" . 42)
                          ("comment" . "Dummy complaint")
-                         ("category" . "other"))))
-        (with-mock
-          (stub y-or-n-p => t) ; yes to all
-          (mock (mastodon-tl--read-rules-ids) => '(1 2 3))
-          (should (equal (mastodon-tl--report-params account toot)
-                         '(("rule_ids[]" . 3)
-                           ("rule_ids[]" . 2)
-                           ("rule_ids[]" . 1)
-                           ("account_id" . 42)
-                           ("comment" . "Dummy complaint")
-                           ("status_ids[]" . 61208)
-                           ("forward" . "true")))))))))
+                         ("status_ids[]" . 61208)
+                         ("forward" . "true")))))))))
 
 (ert-deftest mastodon-tl--report-build-params ()
   ""
-- 
cgit v1.2.3