[nongnu] elpa/emacsql d440b44778 076/427: Add escape vector test.

[ELPA Syncer]

branch: elpa/emacsql
commit d440b447788b2b3d615ada91d6a836448c244125
Author: Christopher Wellons <well...@nullprogram.com>
Commit: Christopher Wellons <well...@nullprogram.com>

    Add escape vector test.
---
 emacsql-tests.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/emacsql-tests.el b/emacsql-tests.el
index 38fc5e0300..42adb83255 100644
--- a/emacsql-tests.el
+++ b/emacsql-tests.el
@@ -22,6 +22,12 @@
   (should (string= (emacsql-escape-value '(a b c)) "'(a b c)'"))
   (should (string= (emacsql-escape-value nil) "NULL")))
 
+(ert-deftest emacsql-escape-vector ()
+  (should (string= (emacsql-escape-vector [1 2 3]) "(1, 2, 3)"))
+  (should (string= (emacsql-escape-vector '([1 2 3])) "(1, 2, 3)"))
+  (should (string= (emacsql-escape-vector '([1 2 3] [4 5 6]))
+                   "(1, 2, 3), (4, 5, 6)")))
+
 (ert-deftest emacsql-schema ()
   (should (string= (emacsql--schema-to-string [a]) "a"))
   (should (string= (emacsql--schema-to-string [a b c]) "a, b, c"))