diff options
author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-12-04 13:39:37 +0000 |
---|---|---|
committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-12-04 13:42:28 +0000 |
commit | 2651764450b76bd6573cfea2b98f54beeae4f0f1 (patch) | |
tree | 1b186eac19088927c8995bac8c207022f33177a3 /test | |
parent | 847e0a0b1c177d311f54905115bc77aa73c0adf0 (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.el | 11 |
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"))) |