(ert-deftest test-basic-request ()
  "Test basic request functionality"
  (should (sx-request-make "sites")))

(ert-deftest test-question-retrieve ()
  "Test the ability to receive a list of questions."
  (should (sx-question-get-questions 'emacs)))

(ert-deftest test-bad-request ()
  "Test a method given a bad set of keywords"
  (should-error
   (sx-request-make "questions" '(()))))

(ert-deftest test-method-get-all ()
  "Tests sx-method interface to `sx-request-all-items'"
  (should (< 250 (length (sx-method-call 'sites :get-all t)))))

(ert-deftest request-get ()
  (should (sx-request-get-url "http://google.com"))
  (should-error (sx-request-get-url "http://github.com/Bruce-Connor/does-not-exist"))
  (should-error (sx-request-get-data "tags/emacs-does-not-exist"))
  (let ((emacs-tags (length (sx-request-get-data 'tags/emacs))))
    (should (> emacs-tags 450))
    (should (not (cl-remove-if #'stringp emacs-tags))))
  (should
   ;; If image is not recognized, this returns nil.
   (create-image (sx-request-get-url "https://raw.githubusercontent.com/vermiculus/sx.el/master/list-and-question.png")
                 'imagemagick t
                 :width (min sx-question-mode-image-max-width
                             (window-body-width nil 'pixel)))))