summaryrefslogtreecommitdiff
path: root/gnu/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-06-05 23:02:20 +0200
committerLudovic Courtès <ludo@gnu.org>2022-06-05 23:35:30 +0200
commitf697dd94c4e9fe501e686146ee4c250173392565 (patch)
tree69e3348d82c2c103809eb9adcad6bed162375f55 /gnu/tests
parent1fc4d821eb3b34e06b217e94f400e13d8030e7b9 (diff)
tests: childhurd: Make sure "guix build -d" works.
* gnu/tests/virtualization.scm (run-childhurd-test) ["guix-daemon up and running"]: New test.
Diffstat (limited to 'gnu/tests')
-rw-r--r--gnu/tests/virtualization.scm20
1 files changed, 19 insertions, 1 deletions
diff --git a/gnu/tests/virtualization.scm b/gnu/tests/virtualization.scm
index 0453f38e5e..299acc4945 100644
--- a/gnu/tests/virtualization.scm
+++ b/gnu/tests/virtualization.scm
@@ -31,8 +31,8 @@
#:use-module (gnu services dbus)
#:use-module (gnu services networking)
#:use-module (gnu services virtualization)
- #:use-module (gnu packages virtualization)
#:use-module (gnu packages ssh)
+ #:use-module (gnu packages virtualization)
#:use-module (guix gexp)
#:use-module (guix records)
#:use-module (guix store)
@@ -245,6 +245,24 @@
(open-input-pipe #$(run-command-over-ssh "uname" "-on"))))
marionette))
+ (test-assert "guix-daemon up and running"
+ (let ((drv (marionette-eval
+ '(begin
+ (use-modules (ice-9 popen))
+
+ (get-string-all
+ (open-input-pipe
+ #$(run-command-over-ssh "guix" "build" "coreutils"
+ "--no-grafts" "-d"))))
+ marionette)))
+ ;; We cannot compare the .drv with (raw-derivation-file
+ ;; coreutils) on the host: they may differ due to fixed-output
+ ;; derivations and changes introduced compared to the 'guix'
+ ;; package snapshot.
+ (and (string-suffix? ".drv"
+ (pk 'drv (string-trim-right drv)))
+ drv)))
+
(test-end))))
(gexp->derivation "childhurd-test" test))