diff options
Diffstat (limited to 'gnu/tests/databases.scm')
| -rw-r--r-- | gnu/tests/databases.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/tests/databases.scm b/gnu/tests/databases.scm index 7c8b87942f..fd5041344b 100644 --- a/gnu/tests/databases.scm +++ b/gnu/tests/databases.scm @@ -79,7 +79,7 @@ (#f #f) (('service response-parts ...) (match (assq-ref response-parts 'running) - ((pid) (number? pid)))))) + ((pid) pid))))) marionette)) (let* ((ai (car (getaddrinfo "localhost" @@ -433,7 +433,7 @@ data double PRECISION NULL (#f #f) (('service response-parts ...) (match (assq-ref response-parts 'running) - ((pid) (number? pid)))))) + ((pid) pid))))) marionette)) (test-assert "mysql_upgrade completed" |