Add tests for `sx--thing-as-string'

1 files changed, 32 insertions, 0 deletions

diff --git a/test/tests.el b/test/tests.el
index 75238fe..43531b4 100644
--- a/test/tests.el
+++ b/test/tests.el
@@ -133,3 +133,35 @@
           (macroexpand
            '(sx-assoc-let data
               (cons .test-one .test-two))))))
+
+(ert-deftest thing-as-string ()
+  "Tests `sx--thing-as-string'"
+  (should
+   (string= (sx--thing-as-string
+             '(hello world (this is a test))
+             '(";" "+"))
+            "hello;world;this+is+a+test"))
+  (should
+   (string= (sx--thing-as-string
+             '(this is a test) '(";" "+"))
+            "this;is;a;test"))
+  (should
+   (string= (sx--thing-as-string
+             '(this is a test) "+")
+            "this+is+a+test"))
+  (should
+   (string= (sx--thing-as-string
+             '(this is a test))
+            "this;is;a;test"))
+  (should
+   (string= (sx--thing-as-string
+             'test)
+            "test"))
+  (should
+   (string= (sx--thing-as-string
+             'test&)
+            "test&"))
+  (should
+   (string= (sx--thing-as-string
+             'test& nil t)
+            "test%26")))