aboutsummaryrefslogtreecommitdiff
path: root/gnu/tests/virtualization.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/tests/virtualization.scm')
-rw-r--r--gnu/tests/virtualization.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/gnu/tests/virtualization.scm b/gnu/tests/virtualization.scm
index 9f9d3a5e26..73f19db4e5 100644
--- a/gnu/tests/virtualization.scm
+++ b/gnu/tests/virtualization.scm
@@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Christopher Baines <mail@cbaines.net>
-;;; Copyright © 2020 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2020, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2021 Pierre Langlois <pierre.langlois@gmx.com>
;;;
@@ -76,6 +76,7 @@
(mkdir #$output)
(chdir #$output)
+ (test-runner-current (system-test-runner))
(test-begin "libvirt")
(test-assert "service running"
@@ -107,8 +108,7 @@
"-c" "qemu:///system" "connect"))
marionette))
- (test-end)
- (exit (= (test-runner-fail-count (test-runner-current)) 0)))))
+ (test-end))))
(gexp->derivation "libvirt-test" test))
@@ -196,6 +196,7 @@
(mkdir #$output)
(chdir #$output)
+ (test-runner-current (system-test-runner))
(test-begin "childhurd")
(test-assert "service running"
@@ -250,8 +251,7 @@
(open-input-pipe #$run-uname-over-ssh)))
marionette))
- (test-end)
- (exit (= (test-runner-fail-count (test-runner-current)) 0)))))
+ (test-end))))
(gexp->derivation "childhurd-test" test))