[elpa] externals/pq a70d1fe40d 37/63: Test encoding by using some high unicode codepoints.

[ELPA Syncer]

branch: externals/pq
commit a70d1fe40de7c37a0b65133dfd03703bc7afb244
Author: Andreas Seltenreich <seltenreich@gmx.de>
Commit: Andreas Seltenreich <seltenreich@gmx.de>

    Test encoding by using some high unicode codepoints.
---
 test.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/test.el b/test.el
index ee904e5db5..da12b5ba88 100644
--- a/test.el
+++ b/test.el
@@ -18,7 +18,13 @@
                    '([t nil nil 42])))
 
     ;; Multiple statements
-    (should (equal (pq:query conn "select 1; select 2; select 3;") '(3)))))
+    (should (equal (pq:query conn "select 1; select 2; select 3;") '(3)))
+
+    ;; Encoding
+    (should (equal (pq:query conn "select length('(╯°□°)╯︵ ┻━┻')")
+                   '(12)))
+    (should (equal (pq:query conn "select '(╯°□°)╯' ||$1::text" "︵ ┻━┻")
+                   '("(╯°□°)╯︵ ┻━┻")))))
 
 (ert-deftest pq-escape-test ()
   (let ((conn (pq:connectdb *conninfo*)))