diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2016-10-20 08:47:03 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2016-12-14 21:43:06 +0100 |
| commit | 51377437a1e37c9d5f2e137528e9c278b252d781 (patch) | |
| tree | 91c2e1b1e0935f53b8ec16d468f47eade1f74823 /tests | |
| parent | 089f385a21806c00785fb0817e6ea590a5dd1412 (diff) | |
| download | guix-51377437a1e37c9d5f2e137528e9c278b252d781.tar guix-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')
| -rw-r--r-- | tests/graph.scm | 3 |
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))) |