tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

services: Test 'shepherd-service-upgrade' with transient services.

Browse Source 
This is a followup to eeb8ac43c8.

* tests/services.scm ("shepherd-service-upgrade: transient service"):
New test.
This commit is contained in:
Ludovic Courtès
2022-04-10 01:24:30 +02:00
parent e25eca35ff
commit ec6a585ee2
1 changed files with 17 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
tests/services.scm
View File

@@ -260,6 +260,23 @@
(list (map live-service-provision unload)
(map shepherd-service-provision restart)))))
(test-equal "shepherd-service-upgrade: transient service"
;; Transient service must not be unloaded:
;; <https://issues.guix.gnu.org/54812>.
'(((foo)) ;unload
((qux))) ;restart
(call-with-values
(lambda ()
(shepherd-service-upgrade
(list (live-service '(sshd-42) '() #t 42) ;transient
(live-service '(foo) '() #f #t) ;obsolete
(live-service '(qux) '() #f #t)) ;running
(list (shepherd-service (provision '(qux))
(start #t)))))
(lambda (unload restart)
(list (map live-service-provision unload)
(map shepherd-service-provision restart)))))
(test-eq "lookup-service-types"
system-service-type
(and (null? (lookup-service-types 'does-not-exist-at-all))