diff options
author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-12-09 16:42:06 +0000 |
---|---|---|
committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-12-09 16:42:06 +0000 |
commit | 804e18ee0246709475aa6a500191f143a193b5b8 (patch) | |
tree | 00fc5da4031932315956e79952aa4cce2e68e6db /test | |
parent | a983476a59701f1cc01580b16fc5235360054adf (diff) | |
parent | db82dc546b528eef2487820381884c7c67e3683a (diff) |
Merge pull request #136 from vermiculus/fix-@highligthing
Fix @highligthing
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 43531b4..b997c6e 100644 --- a/test/tests.el +++ b/test/tests.el @@ -134,6 +134,17 @@ '(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"))) + (ert-deftest thing-as-string () "Tests `sx--thing-as-string'" (should |