Add tests for link-to-data

1 files changed, 26 insertions, 0 deletions

diff --git a/test/test-util.el b/test/test-util.el
index 1e3dc2b..b466c08 100644
--- a/test/test-util.el
+++ b/test/test-util.el
@@ -43,3 +43,29 @@
      (lambda (path) (intern (mapconcat #'symbol-name path "/")))
      '(a b (c d (e f g) h i (j k) l) m (n o) p))
     '(a b c/d c/e/f c/e/g c/h c/i c/j/k c/l m n/o p))))
+
+(ert-deftest link-to-data ()
+  (should
+   (equal
+    (sx--link-to-data "http://meta.emacs.stackexchange.com/posts/comments/510?noredirect=1")
+    '((id . 510) (type . comment) (site_par . "meta.emacs"))))
+  (should
+   (equal
+    (sx--link-to-data "http://emacs.stackexchange.com/questions/7409/is-there-a-generic-toggle-previous-window-function#comment10965_7409")
+    '((id . 10965) (type . comment) (site_par . "emacs"))))
+  (should
+   (equal
+    (sx--link-to-data "http://emacs.stackexchange.com/q/7409/50")
+    '((id . 7409) (type . question) (site_par . "emacs"))))
+  (should
+   (equal
+    (sx--link-to-data "http://emacs.stackexchange.com/a/7410/50")
+    '((id . 7410) (type . answer) (site_par . "emacs"))))
+  (should
+   (equal
+    (sx--link-to-data "http://emacs.stackexchange.com/questions/7409/is-there-a-generic-toggle-previous-window-function/9999#7410")
+    '((id . 7410) (type . answer) (site_par . "emacs"))))
+  (should
+   (equal
+    (sx--link-to-data "http://emacs.stackexchange.com/questions/7409/is-there-a-generic-toggle-previous-window-function/7410")
+    '((id . 7410) (type . answer) (site_par . "emacs")))))