diff options
-rw-r--r-- | postgresql.release-info | 2 | ||||
-rw-r--r-- | tests/run.scm | 13 |
2 files changed, 10 insertions, 5 deletions
diff --git a/postgresql.release-info b/postgresql.release-info index 2762f4f..9f167c1 100644 --- a/postgresql.release-info +++ b/postgresql.release-info @@ -4,3 +4,5 @@ (release "4.1.0") (release "4.1.1") (release "4.1.2") +(release "4.1.3") +(release "4.1.4") diff --git a/tests/run.scm b/tests/run.scm index c370cbe..21daa09 100644 --- a/tests/run.scm +++ b/tests/run.scm @@ -62,11 +62,14 @@ ;; In the tests, we assume that the client lib is at least equal to ;; the server's version. -(define-values (major-version minor-version micro-version) - (apply values - (map string->number - (string-split - (value-at (query conn "SHOW server_version")) ".")))) +(define-values (major-version minor-version) + (let ((versions (map string->number + (string-split + (value-at (query conn "SHOW server_version")) ".")))) + ;; NOTE: Sometimes there are two, sometimes three values. + ;; We don't really care about the "micro" version here, + ;; so just return the first two and treat them as major/minor. + (values (car versions) (cadr versions)))) (test-group "low-level interface" (test-assert "query returns result" |