ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: Adjust services tests to new 'shepherd-service-upgrade'.

Browse source 
This is a followup to 4245ddcbc9.

* tests/services.scm ("shepherd-service-upgrade: one unchanged, one upgraded, one new")
("shepherd-service-upgrade: service depended on is not unloaded")
("shepherd-service-upgrade: obsolete services that depend on each
other"): Adjust to changes in 'shepherd-service-upgrade'.
This commit is contained in:
Ludovic Courtès 2018-09-27 23:58:05 +02:00
parent d4e9317b9d
commit 7fed9353ec
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 16 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
tests/services.scm
View file

@ -207,13 +207,14 @@ (define live-service
list))
(test-equal "shepherd-service-upgrade: one unchanged, one upgraded, one new"
'(((bar)) ;unload
((bar) (baz))) ;load
'(() ;unload
((foo))) ;restart
(call-with-values
(lambda ()
;; Here 'foo' is not upgraded because it is still running, whereas
;; 'bar' is upgraded because it is not currently running. 'baz' is
;; loaded because it's a new service.
;; Here 'foo' is replaced and must be explicitly restarted later
;; because it is still running, whereas 'bar' is upgraded right away
;; because it is not currently running. 'baz' is loaded because it's
;; a new service.
(shepherd-service-upgrade
(list (live-service '(foo) '() #t)
(live-service '(bar) '() #f)
@ -224,30 +225,31 @@ (define live-service
(start #t))
(shepherd-service (provision '(baz))
(start #t)))))
(lambda (unload load)
(lambda (unload restart)
(list (map live-service-provision unload)
(map shepherd-service-provision load)))))
(map shepherd-service-provision restart)))))
(test-equal "shepherd-service-upgrade: service depended on is not unloaded"
'(((baz)) ;unload
()) ;load
((foo))) ;restart
(call-with-values
(lambda ()
;; Service 'bar' is not among the target services; yet, it must not be
;; unloaded because 'foo' depends on it.
;; unloaded because 'foo' depends on it. 'foo' gets replaced but it
;; must be restarted manually.
(shepherd-service-upgrade
(list (live-service '(foo) '(bar) #t)
(live-service '(bar) '() #t) ;still used!
(live-service '(baz) '() #t))
(list (shepherd-service (provision '(foo))
(start #t)))))
(lambda (unload load)
(lambda (unload restart)
(list (map live-service-provision unload)
(map shepherd-service-provision load)))))
(map shepherd-service-provision restart)))))
(test-equal "shepherd-service-upgrade: obsolete services that depend on each other"
'(((foo) (bar) (baz)) ;unload
((qux))) ;load
()) ;restart
(call-with-values
(lambda ()
;; 'foo', 'bar', and 'baz' depend on each other, but all of them are
@ -258,9 +260,9 @@ (define live-service
(live-service '(baz) '() #t)) ;obsolete
(list (shepherd-service (provision '(qux))
(start #t)))))
(lambda (unload load)
(lambda (unload restart)
(list (map live-service-provision unload)
(map shepherd-service-provision load)))))
(map shepherd-service-provision restart)))))
(test-eq "lookup-service-types"
system-service-type