summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-08-31 12:49:45 +0200
committerLudovic Courtès <ludo@gnu.org>2016-08-31 15:44:20 +0200
commitf20a7b869668b46a011d22e4c1dcb68f855a1c62 (patch)
tree4ff9bb0fc1a5f7c5340f131854bb7100a69d6ca5 /tests
parenta5d78eb64bcb87440a0b3ff25eec5568df0bc47c (diff)
guix system: Use 'shepherd-service-lookup-procedure' in 'service-upgrade'.
* guix/scripts/system.scm (service-upgrade)[essential?]: SERVICE is now a <live-service>. [lookup-target, lookup-live, running?, stopped, obsolete?]: New procedures. [to-load, to-unload]: Use them. TO-UNLOAD is now a list of <live-service>. (call-with-service-upgrade-info): Extract symbols from TO-UNLOAD. * tests/system.scm ("service-upgrade: one unchanged, one upgraded, one new"): Adjust accordingly.
Diffstat (limited to 'tests')
-rw-r--r--tests/system.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/system.scm b/tests/system.scm
index dee6feda2c..eff997062f 100644
--- a/tests/system.scm
+++ b/tests/system.scm
@@ -129,7 +129,7 @@
list))
(test-equal "service-upgrade: one unchanged, one upgraded, one new"
- '((bar) ;unload
+ '(((bar)) ;unload
((bar) (baz))) ;load
(call-with-values
(lambda ()
@@ -146,6 +146,7 @@
(shepherd-service (provision '(baz))
(start #t)))))
(lambda (unload load)
- (list unload (map shepherd-service-provision load)))))
+ (list (map live-service-provision unload)
+ (map shepherd-service-provision load)))))
(test-end)