diff options
Diffstat (limited to 'tests/services.scm')
| -rw-r--r-- | tests/services.scm | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/tests/services.scm b/tests/services.scm index b4e2cb0b30..7d2e31b3a9 100644 --- a/tests/services.scm +++ b/tests/services.scm @@ -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) @@ -25,6 +26,25 @@ (test-begin "services") +(test-assert "service-back-edges" + (let* ((t1 (service-type (name 't1) (extensions '()) + (compose +) (extend *))) + (t2 (service-type (name 't2) + (extensions + (list (service-extension t1 (const '())))) + (compose +) (extend *))) + (t3 (service-type (name 't3) + (extensions + (list (service-extension t2 identity) + (service-extension t1 list))))) + (s1 (service t1 #t)) + (s2 (service t2 #t)) + (s3 (service t3 #t)) + (e (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-equal "fold-services" ;; Make sure 'fold-services' returns the right result. The numbers come ;; from services of type T3; 'xyz 60' comes from the service of type T2, @@ -85,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) |