From 2651764450b76bd6573cfea2b98f54beeae4f0f1 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Thu, 4 Dec 2014 13:39:37 +0000
Subject: Define test for sx--user-@name

Source of the replacements: http://stackapps.com/a/5022/3776
---
 test/tests.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'test')

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")))
-- 
cgit v1.2.3