ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-26 04:29:25 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: xvnc: Do not use specification->package in OS definition.

Browse source 
Doing so would cause the extra package dependencies to not be
correctly registered as dependencies, which would lead to a silent
failure when attempting to load or byte compile the module at the time
guix build itself (e.g., when running 'guix pull').

* gnu/tests/vnc.scm (%xvnc-os) [packages]: Turn the the
specification->package declaration into a list of package objects.
This commit is contained in:
Maxim Cournoyer 2022-10-07 15:07:36 -04:00
parent 00e8430500
commit 0169aee33e
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 13 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
gnu/tests/vnc.scm
View file

@ -22,6 +22,10 @@ (define-module (gnu tests vnc)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages ocr) #:use-module (gnu packages ocr)
#:use-module (gnu packages glib) #:use-module (gnu packages glib)
#:use-module (gnu packages gnome)
#:use-module (gnu packages ratpoison)
#:use-module (gnu packages vnc)
#:use-module (gnu packages xorg)
#:use-module (gnu services) #:use-module (gnu services)
#:use-module (gnu services dbus) #:use-module (gnu services dbus)
#:use-module (gnu services desktop) #:use-module (gnu services desktop)
@ -59,16 +63,15 @@ (define %xvnc-os
(supplementary-groups '("wheel" "netdev" (supplementary-groups '("wheel" "netdev"
"audio" "video"))) "audio" "video")))
%base-user-accounts)) %base-user-accounts))
(packages (append (map specification->package (packages (cons* dbus ;for dbus-run-session
'("dbus" ;for dbus-run-session dconf
"dconf" `(,glib "bin")
"gnome-settings-daemon" ;for schemas glib
"ratpoison" gnome-settings-daemon ;for schemas
"tigervnc-client" ratpoison
"xterm")) tigervnc-client
%base-packages xterm
(list `(,glib "bin") %base-packages))
glib)))
(services (cons* (services (cons*
(service openssh-service-type (openssh-configuration (service openssh-service-type (openssh-configuration
(permit-root-login #t) (permit-root-login #t)