summaryrefslogtreecommitdiff
path: root/tests/graph.scm
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2016-10-20 08:47:03 +0200
committerRicardo Wurmus <rekado@elephly.net>2016-12-14 21:43:06 +0100
commit51377437a1e37c9d5f2e137528e9c278b252d781 (patch)
tree91c2e1b1e0935f53b8ec16d468f47eade1f74823 /tests/graph.scm
parent089f385a21806c00785fb0817e6ea590a5dd1412 (diff)
downloadpatches-51377437a1e37c9d5f2e137528e9c278b252d781.tar
patches-51377437a1e37c9d5f2e137528e9c278b252d781.tar.gz
graph: Backend must have name and description.
* guix/graph.scm (<graph-backend>): Add fields "name" and "description". (%graphviz-backend): Provide values for name and description. (export-graph): Ignore name and description when matching backends. (graph-backend-name, graph-backend-description): New procedures. * tests/graph.scm (make-recording-backend): Initialize name and description fields of test graph-backend.
Diffstat (limited to 'tests/graph.scm')
-rw-r--r--tests/graph.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/graph.scm b/tests/graph.scm
index f2e441cee6..bc4d62fe50 100644
--- a/tests/graph.scm
+++ b/tests/graph.scm
@@ -57,7 +57,8 @@ edges."
(define (return)
(values (reverse nodes) (reverse edges)))
- (values (graph-backend (const #t) (const #t)
+ (values (graph-backend "test" "This is the test backend."
+ (const #t) (const #t)
record-node record-edge)
return)))