aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorArtur Malabarba <bruce.connor.am@gmail.com>2014-12-04 13:39:37 +0000
committerArtur Malabarba <bruce.connor.am@gmail.com>2014-12-04 13:42:28 +0000
commit2651764450b76bd6573cfea2b98f54beeae4f0f1 (patch)
tree1b186eac19088927c8995bac8c207022f33177a3 /test
parent847e0a0b1c177d311f54905115bc77aa73c0adf0 (diff)
Define test for sx--user-@name
Source of the replacements: http://stackapps.com/a/5022/3776
Diffstat (limited to 'test')
-rw-r--r--test/tests.el11
1 files changed, 11 insertions, 0 deletions
diff --git a/test/tests.el b/test/tests.el
index 75238fe..56a5501 100644
--- a/test/tests.el
+++ b/test/tests.el
@@ -133,3 +133,14 @@
(macroexpand
'(sx-assoc-let data
(cons .test-one .test-two))))))
+
+(ert-deftest sx--user-@name ()
+ "Tests macro expansion for `sx-assoc-let'"
+ (should
+ (string=
+ (sx--user-@name '((display_name . "ĥÞßđłřğĝýÿñńśşšŝżźžçćčĉùúûüŭůòóôõöøőðìíîïıèéêëęàåáâäãåąĵ★")))
+ "@hTHssdlrggyynnsssszzzccccuuuuuuooooooooiiiiieeeeeaaaaaaaaj"))
+ (should
+ (string=
+ (sx--user-@name '((display_name . "ĤÞßĐŁŘĞĜÝŸÑŃŚŞŠŜŻŹŽÇĆČĈÙÚÛÜŬŮÒÓÔÕÖØŐÐÌÍÎÏıÈÉÊËĘÀÅÁÂÄÃÅĄĴ")))
+ "@HTHssDLRGGYYNNSSSSZZZCCCCUUUUUUOOOOOOOOIIIIiEEEEEAAAAAAAAJ")))