tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

services: Add 'dmd-service-back-edges'.

Browse Source 
* gnu/services/dmd.scm (dmd-service-back-edges): New procedure.
* tests/services.scm ("dmd-service-back-edges"): New test.
This commit is contained in:
Ludovic Courtès
2015-10-14 18:40:33 +02:00
parent c5d735f798
commit 80a6773483
2 changed files with 43 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
tests/services.scm
View File

@@ -18,6 +18,7 @@
(define-module (test-services)
#:use-module (gnu services)
#:use-module (gnu services dmd)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26)
#:use-module (srfi srfi-34)
@@ -104,6 +105,15 @@
(fold-services (list s) #:target-type t1)
#f)))
(test-assert "dmd-service-back-edges"
(let* ((s1 (dmd-service (provision '(s1)) (start #f)))
(s2 (dmd-service (provision '(s2)) (requirement '(s1)) (start #f)))
(s3 (dmd-service (provision '(s3)) (requirement '(s1 s2)) (start #f)))
(e (dmd-service-back-edges (list s1 s2 s3))))
(and (lset= eq? (e s1) (list s2 s3))
(lset= eq? (e s2) (list s3))
(null? (e s3)))))
(test-end)