TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

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

Browse source 
* gnu/tests/virtualization.scm (run-childhurd-test)
["guix-daemon up and running"]: New test.
This commit is contained in:
Ludovic Courtès 2022-06-05 23:02:20 +02:00
parent 1fc4d821eb
commit f697dd94c4
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 19 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
gnu/tests/virtualization.scm
View file

@ -31,8 +31,8 @@ (define-module (gnu tests virtualization)
#: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 @@ (define marionette
(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))