04/10: tests: childhurd: Make sure "guix build -d" works.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit f697dd94c4e9fe501e686146ee4c250173392565
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Jun 5 23:02:20 2022 +0200

    tests: childhurd: Make sure "guix build -d" works.
    
    * gnu/tests/virtualization.scm (run-childhurd-test)
    ["guix-daemon up and running"]: New test.
---
 gnu/tests/virtualization.scm | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

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))