aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/ert-helper.el1
-rw-r--r--test/mastodon-tl-tests.el7
2 files changed, 8 insertions, 0 deletions
diff --git a/test/ert-helper.el b/test/ert-helper.el
index 53111d7..517eb35 100644
--- a/test/ert-helper.el
+++ b/test/ert-helper.el
@@ -3,4 +3,5 @@
(load-file "lisp/mastodon-auth.el")
(load-file "lisp/mastodon-toot.el")
(load-file "lisp/mastodon-tl.el")
+(load-file "lisp/mastodon.el")
diff --git a/test/mastodon-tl-tests.el b/test/mastodon-tl-tests.el
index 9c45abd..384f46c 100644
--- a/test/mastodon-tl-tests.el
+++ b/test/mastodon-tl-tests.el
@@ -9,3 +9,10 @@
"Should replace <\p> tags with two new lines."
(let ((input "foobar</p>"))
(should (string= (mastodon-tl--remove-html input) "foobar\n\n"))))
+
+(ert-deftest more-json ()
+ "Should request toots older than max_id."
+ (let ((mastodon-instance-url "https://instance.url"))
+ (with-mock
+ (mock (mastodon-http--get-json "https://instance.url/api/v1/timelines/foo?max_id=12345"))
+ (mastodon-tl--more-json "foo" 12345))))