[elpa] externals/pq d6e3746c80 40/63: Skip encoding test unless supported by server.

[ELPA Syncer]

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

    Skip encoding test unless supported by server.
---
 test.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/test.el b/test.el
index 04750028b0..7cd7809f7d 100644
--- a/test.el
+++ b/test.el
@@ -18,9 +18,11 @@
                    '([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
+(ert-deftest pq-encoding-test ()
+  (let ((conn (pq:connectdb *conninfo*)))
+    (skip-unless (equal '("UTF8") (pq:query conn "show server_encoding")))
     (should (equal (pq:query conn "select length('(╯°□°)╯︵ ┻━┻')")
                    '(12)))
     (should (equal (pq:query conn "select '(╯°□°)╯' ||$1::text" "︵ ┻━┻")