branch: externals/pq
commit a70d1fe40de7c37a0b65133dfd03703bc7afb244
Author: Andreas Seltenreich <[email protected]>
Commit: Andreas Seltenreich <[email protected]>
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*)))
