diff options
| -rw-r--r-- | test/test-printing.el | 21 | ||||
| -rw-r--r-- | test/tests.el | 22 |
2 files changed, 42 insertions, 1 deletions
diff --git a/test/test-printing.el b/test/test-printing.el index 7384829..9512a5e 100644 --- a/test/test-printing.el +++ b/test/test-printing.el @@ -27,6 +27,18 @@ after being run through `sx-question--tag-format'." ;;; Tests +(ert-deftest time-since () + (cl-letf (((symbol-function #'float-time) + (lambda () 1420148997.))) + (should + (string= + "67m" + (sx-time-since 1420145000.))) + (should + (string= + "12h" + (sx-time-since 1420105000.))))) + (ert-deftest question-list-tag () "Test `sx-question--tag-format'." (should @@ -134,6 +146,14 @@ after being run through `sx-question--tag-format'." (should (equal object '((answers . [something "answer"])))))) + +;;; question-mode +(ert-deftest sx-display-question () + (should + (sx-display-question sx-test-data-questions)) + (should-error + (sx-display-question sx-test-data-questions nil 1))) + (ert-deftest sx-question-mode--fill-and-fontify () "Check complicated questions are filled correctly." (should @@ -190,3 +210,4 @@ if you used the Stack Exchange login method, you'd... [1]: http://i.stack.imgur.com/ktFTs.png [2]: http://i.stack.imgur.com/5l2AY.png [3]: http://i.stack.imgur.com/22myl.png"))) + diff --git a/test/tests.el b/test/tests.el index ce42a9f..be1552b 100644 --- a/test/tests.el +++ b/test/tests.el @@ -59,4 +59,24 @@ (apply #'message message args))) (mapc #'sx-load-test - '(api macros printing util search)) + '(api macros printing util search state)) + +(ert-deftest user-entry-functions () + "Ensures all entry functions are autoloaded." + (should + (cl-every + #'fboundp + '(sx-ask + sx-authenticate + sx-bug-report + sx-switchto-map + sx-tab-featured + sx-tab-frontpage + sx-tab-hot + sx-tab-month + sx-tab-newest + sx-tab-starred + sx-tab-topvoted + sx-tab-unanswered + sx-tab-week + sx-version)))) |