aboutsummaryrefslogtreecommitdiff
path: root/test/test-util.el
diff options
context:
space:
mode:
Diffstat (limited to 'test/test-util.el')
-rw-r--r--test/test-util.el26
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")))))