diff options
Diffstat (limited to 'gnu/tests/virtualization.scm')
| -rw-r--r-- | gnu/tests/virtualization.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gnu/tests/virtualization.scm b/gnu/tests/virtualization.scm index ed8d6b1c85..a3c9c4014b 100644 --- a/gnu/tests/virtualization.scm +++ b/gnu/tests/virtualization.scm @@ -91,7 +91,7 @@ (#f #f) (('service response-parts ...) (match (assq-ref response-parts 'running) - ((pid) (number? pid)))))) + ((pid) pid))))) marionette)) ;; Give the libvirtd service time to start up. @@ -206,7 +206,7 @@ (#f #f) (('service response-parts ...) (match (assq-ref response-parts 'running) - ((pid) (number? pid)))))) + ((pid) pid))))) marionette)) (test-equal "ping guest" @@ -322,7 +322,7 @@ output." (#f #f) (('service response-parts ...) (match (assq-ref response-parts 'running) - ((pid) (number? pid)))))) + ((pid) pid))))) marionette)) (test-equal "childhurd SSH server replies" |