diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-01-24 00:52:03 -0200 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-01-24 00:56:08 -0200 |
| commit | a7a83411ccf68114847112bf27dced3d833cd524 (patch) | |
| tree | b2b54b828fd27cba117cb080535ec3ad7c505e0f /test | |
| parent | f54ab739c432af99356fd57d5abb6bd63a39e667 (diff) | |
Test downloading image.
Diffstat (limited to 'test')
| -rw-r--r-- | test/test-api.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/test/test-api.el b/test/test-api.el index 30590d7..f7f54c1 100644 --- a/test/test-api.el +++ b/test/test-api.el @@ -21,4 +21,10 @@ (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 (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))))) |