aboutsummaryrefslogtreecommitdiff
path: root/tests/services.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/services.scm')
-rw-r--r--tests/services.scm14
1 files changed, 9 insertions, 5 deletions
diff --git a/tests/services.scm b/tests/services.scm
index ab8f293c43..3635549077 100644
--- a/tests/services.scm
+++ b/tests/services.scm
@@ -105,11 +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))))
+(test-assert "shepherd-service-back-edges"
+ (let* ((s1 (shepherd-service (provision '(s1)) (start #f)))
+ (s2 (shepherd-service (provision '(s2))
+ (requirement '(s1))
+ (start #f)))
+ (s3 (shepherd-service (provision '(s3))
+ (requirement '(s1 s2))
+ (start #f)))
+ (e (shepherd-service-back-edges (list s1 s2 s3))))
(and (lset= eq? (e s1) (list s2 s3))
(lset= eq? (e s2) (list s3))
(null? (e s3)))))