summaryrefslogtreecommitdiff
path: root/tests/run.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/run.scm')
-rw-r--r--tests/run.scm13
1 files changed, 8 insertions, 5 deletions
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"