me
/
guix
Archived
1
0
Fork 0
Code

tests: Check for service existence in MODIFY-SERVICES 

* tests/services.scm ("modify-services: delete non-existing service")
("modify-services: change value for non-existing service"): New tests.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
master
Brian Cully 2023-05-26 18:30:16 -04:00 committed by Ludovic Courtès
parent 09fcf261c1
commit ae707b62e7
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 35 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
tests/services.scm
View File

@ -303,7 +303,7 @@
<)))
(test-equal "modify-services: delete service"
'(1 3)
'(1)
(let* ((t1 (service-type (name 't1)
(extensions '())
(description "")))
@ -316,11 +316,27 @@
(services (list (service t1 1) (service t2 2) (service t3 3))))
(sort (map service-value
(modify-services services
(delete t3)
(delete t2)))
<)))
(test-error "modify-services: delete non-existing service"
#t
(let* ((t1 (service-type (name 't1)
(extensions '())
(description "")))
(t2 (service-type (name 't2)
(extensions '())
(description "")))
(t3 (service-type (name 't2)
(extensions '())
(description "")))
(services (list (service t1 1) (service t2 2))))
(modify-services services
(delete t3))))
(test-equal "modify-services: change value"
'(1 2 33)
'(2 11 33)
(let* ((t1 (service-type (name 't1)
(extensions '())
(description "")))
@ -333,7 +349,24 @@
(services (list (service t1 1) (service t2 2) (service t3 3))))
(sort (map service-value
(modify-services services
(t1 value => 11)
(t3 value => 33)))
<)))
(test-error "modify-services: change value for non-existing service"
#t
(let* ((t1 (service-type (name 't1)
(extensions '())
(description "")))
(t2 (service-type (name 't2)
(extensions '())
(description "")))
(t3 (service-type (name 't3)
(extensions '())
(description "")))
(services (list (service t1 1) (service t3 3))))
(map service-value
(modify-services services
(t2 value => 22)))))
(test-end)