blob: 30590d7a39f792878f1782d25a6e8a3aa7ce0810 (
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
|
(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)))))
|
