test/mastodon-http-tests.el


1
2
3
4
5
6
7
8
9
10

(require 'el-mock)

(load-file "../lisp/mastodon-http.el")

(ert-deftest mastodon-http:get:retrieves-endpoint ()
  "Should make a `url-retrieve' of the given URL."
  (let ((callback-double (lambda () "double")))
    (with-mock
      (mock (url-retrieve "https://foo.bar/baz" 'callback-double))
      (mastodon-http--get "https://foo.bar/baz" 'callback-double))))