aboutsummaryrefslogtreecommitdiff
path: root/test/mastodon-tl-tests.el
blob: 19d7e55cd4fcc2744091e4c731f55653181a8495 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
(require 'el-mock)

(ert-deftest mastodon-tl:from-toot ()
  "Should return the value for KEY in a list."
  (should (string= (mastodon-tl--from-toot "foo" '(("foo" . "bar"))) "bar")))

(ert-deftest mastodon-tl:remove-html:remove-p-and-span ()
  "Should remove <p> and <span> tags that are not parsed by `html2text'."
  (let ((input "<p>foo<span>bar</span></p>"))
    (should (string= (mastodon-tl--remove-html input) "foobar\n"))))

(ert-deftest mastodon-tl:remove-html:remove-hcard-span ()
  "Should remove <span> tags with a class of 'h-card'."
  (let ((input "<span class=\"h-card\">foobar</span>"))
    (should (string= (mastodon-tl--remove-html input) "foobar"))))