[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/10: services: Export 'service-back-edges'.
From: |
Ludovic Courtès |
Subject: |
03/10: services: Export 'service-back-edges'. |
Date: |
Wed, 14 Oct 2015 19:46:07 +0000 |
civodul pushed a commit to branch master
in repository guix.
commit 5152d13b51a6418db52ce6dd572cc412e5addf44
Author: Ludovic Courtès <address@hidden>
Date: Wed Oct 14 14:58:25 2015 +0200
services: Export 'service-back-edges'.
* gnu/services.scm: Export 'service-back-edges' and <service-type>
accessors.
* tests/services.scm ("service-back-edges"): New test.
---
gnu/services.scm | 5 +++++
tests/services.scm | 19 +++++++++++++++++++
2 files changed, 24 insertions(+), 0 deletions(-)
diff --git a/gnu/services.scm b/gnu/services.scm
index fdfa569..d0fe0ad 100644
--- a/gnu/services.scm
+++ b/gnu/services.scm
@@ -38,12 +38,17 @@
service-type
service-type?
+ service-type-name
+ service-type-extensions
+ service-type-compose
+ service-type-extend
service
service?
service-kind
service-parameters
+ service-back-edges
fold-services
service-error?
diff --git a/tests/services.scm b/tests/services.scm
index b4e2cb0..ae2d999 100644
--- a/tests/services.scm
+++ b/tests/services.scm
@@ -25,6 +25,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,
- branch master updated (d9c44e9 -> 5f44ee4), Ludovic Courtès, 2015/10/14
- 08/10: services: Add 'dmd-service-back-edges'., Ludovic Courtès, 2015/10/14
- 06/10: guix system: Add 'extension-graph' command., Ludovic Courtès, 2015/10/14
- 09/10: guix system: Add 'dmd-graph' command., Ludovic Courtès, 2015/10/14
- 05/10: graph: 'export-graph' takes a #:reverse-edges? parameter., Ludovic Courtès, 2015/10/14
- 07/10: services: Prefix <dmd-service> accessors with 'dmd-'., Ludovic Courtès, 2015/10/14
- 10/10: services: Unmount user file systems after process termination., Ludovic Courtès, 2015/10/14
- 01/10: hydra: Add Graphviz and help2man as inputs to the Guix job set., Ludovic Courtès, 2015/10/15
- 02/10: build-system/gnu: dist-package: Use 'autoconf-wrapper'., Ludovic Courtès, 2015/10/15
- 04/10: services: 'dmd-service-type' takes a service name., Ludovic Courtès, 2015/10/15
- 03/10: services: Export 'service-back-edges'.,
Ludovic Courtès <=