Test sx-time-since

1 files changed, 12 insertions, 0 deletions

diff --git a/test/test-printing.el b/test/test-printing.el
index 6225bf6..60382b2 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