Clean up tests and update DOCSTRINGs

1 files changed, 8 insertions, 12 deletions

diff --git a/test/mastodon-tl-tests.el b/test/mastodon-tl-tests.el
index 19d7e55..9c45abd 100644
--- a/test/mastodon-tl-tests.el
+++ b/test/mastodon-tl-tests.el
@@ -1,15 +1,11 @@
 (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 remove-html-1 ()
+  "Should remove all <span> tags."
+  (let ((input "<span class=\"h-card\">foobar</span> <span>foobaz</span>"))
+    (should (string= (mastodon-tl--remove-html input) "foobar foobaz"))))
 
-(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"))))
+(ert-deftest remove-html-2 ()
+  "Should replace <\p> tags with two new lines."
+  (let ((input "foobar</p>"))
+    (should (string= (mastodon-tl--remove-html input) "foobar\n\n"))))