From ec6a585ee2fd91c857276479411eedd0756e0093 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Sun, 10 Apr 2022 01:24:30 +0200
Subject: 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(+)

(limited to 'tests/services.scm')

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 @@
       (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))
-- 
cgit 1.4.1