diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/guix-system.sh | 4 | ||||
| -rw-r--r-- | tests/services.scm | 14 |
2 files changed, 11 insertions, 7 deletions
diff --git a/tests/guix-system.sh b/tests/guix-system.sh index cd135b9a88..d9e1679ae7 100644 --- a/tests/guix-system.sh +++ b/tests/guix-system.sh @@ -121,10 +121,10 @@ cat > "$tmpfile" <<EOF (use-service-modules networking) (define buggy-service-type - (dmd-service-type + (shepherd-service-type 'buggy (lambda _ - (dmd-service + (shepherd-service (provision '(buggy!)) (requirement '(does-not-exist)) (start #t))))) 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))))) |