branch: elpa/pg
commit e2a593ad5d68ca3b6e19b9c9c2c12be0cb2fe152
Author: Eric Marsden <eric.mars...@risk-engineering.org>
Commit: Eric Marsden <eric.mars...@risk-engineering.org>
Tests: additional workarounds for Google Spanner variant
---
test/test-pg.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/test/test-pg.el b/test/test-pg.el
index c227cdc479d..bd4df106fd0 100755
--- a/test/test-pg.el
+++ b/test/test-pg.el
@@ -649,14 +649,14 @@
(should (eql -6 (scalar "SELECT -(6)")))
(should (eql ?Z (scalar "SELECT 'Z'::char")))
(should (eql ?@ (scalar "SELECT '@'::char(1)")))
- (unless (member (pgcon-server-variant con) '(cratedb cockroachdb cedardb))
+ (unless (member (pgcon-server-variant con) '(cratedb cockroachdb cedardb
spanner))
(should (eql ?! (scalar "SELECT '!'::bpchar(1)"))))
(should (string= "Z" (scalar "SELECT 'Z'::varchar")))
(should (string= "É" (scalar "SELECT 'É'::varchar(1)")))
(should (string= "AB" (scalar "SELECT 'AB'::char(2)")))
(should (string= "ÁÔ" (scalar "SELECT 'ÁÔ'::char(2)")))
(should (string= "ÁÔ" (scalar "SELECT 'ÁÔ'::varchar(2)")))
- (unless (member (pgcon-server-variant con) '(cratedb cockroachdb cedardb))
+ (unless (member (pgcon-server-variant con) '(cratedb cockroachdb cedardb
spanner))
(should (string= "12" (scalar "SELECT '12'::bpchar(2)"))))
(should (string= "£Öí" (scalar "SELECT '£Öí'::text")))
(should (string= "Albert" (scalar "SELECT 'Albert'::name")))
@@ -666,7 +666,7 @@
;; '{' || 'A'::character(10) || '}' only returns a TEXT string of length
3, rather than of
;; length 12.
(should (string= "AB " (scalar "SELECT 'AB'::character(5)")))
- (unless (member (pgcon-server-variant con) '(cratedb cockroachdb cedardb))
+ (unless (member (pgcon-server-variant con) '(cratedb cockroachdb cedardb
spanner))
(should (string= "AB " (scalar "SELECT 'AB'::bpchar(6)"))))
;; Just to note that the space padding is stripped before "semantic
comparison", as per
;; https://www.postgresql.org/docs/current/datatype-character.html
@@ -1503,7 +1503,7 @@ bar$$"))))
(should (equal (vector) (scalar "SELECT '{}'::bool[]")))
(should (equal (vector) (scalar "SELECT '{}'::float4[]")))
(should (equal (vector) (scalar "SELECT '{}'::float8[]")))
- (unless (member (pgcon-server-variant con) '(cratedb cockroachdb cedardb))
+ (unless (member (pgcon-server-variant con) '(cratedb cockroachdb cedardb
spanner))
(should (equal (vector "AB1234" "4321BA") (scalar "SELECT
'{\"AB1234\",\"4321BA\"}'::bpchar[]"))))
(let ((vec (scalar "SELECT ARRAY[3.14::float]")))
(should (floatp (aref vec 0)))
