blob: 0715a2e3085919dd2b4d269f19ebf40dabe6d9b5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
(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-url ()
(should (sx-request-get-url "http://google.com"))
(should-error (sx-request-get-url "http://github.com/Bruce-Connor/does-not-exist"))
(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)))))
(ert-deftest request-get-data ()
(should-error (sx-request-get-data "tags/emacs-does-not-exist"))
(let ((emacs-tags (sx-request-get-data 'tags/emacs)))
(should (> (length emacs-tags) 450))
(should (not (cl-remove-if #'stringp emacs-tags)))))
|
