diff options
author | Ludovic Courtès <ludo@gnu.org> | 2022-06-05 23:02:20 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2022-06-05 23:35:30 +0200 |
commit | f697dd94c4e9fe501e686146ee4c250173392565 (patch) | |
tree | 69e3348d82c2c103809eb9adcad6bed162375f55 /gnu/tests | |
parent | 1fc4d821eb3b34e06b217e94f400e13d8030e7b9 (diff) | |
download | guix-f697dd94c4e9fe501e686146ee4c250173392565.tar.gz guix-f697dd94c4e9fe501e686146ee4c250173392565.zip |
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.scm | 20 |
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)) |