From ec6a585ee2fd91c857276479411eedd0756e0093 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 10 Apr 2022 01:24:30 +0200 Subject: [PATCH] services: Test 'shepherd-service-upgrade' with transient services. This is a followup to eeb8ac43c8c0b0cc69422766070dbefc55f5c5c1. * tests/services.scm ("shepherd-service-upgrade: transient service"): New test. --- tests/services.scm | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/tests/services.scm b/tests/services.scm index 03c490100b..e64b3e8de8 100644 --- a/tests/services.scm +++ b/tests/services.scm @@ -260,6 +260,23 @@ (define-module (test-services) (list (map live-service-provision unload) (map shepherd-service-provision restart))))) +(test-equal "shepherd-service-upgrade: transient service" + ;; Transient service must not be unloaded: + ;; . + '(((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))