Fix the tests.
This commit is contained in:
parent
0001c87589
commit
0b38259979
|
@ -70,9 +70,10 @@
|
||||||
|
|
||||||
(test-case "1 Generic Graph Interface"
|
(test-case "1 Generic Graph Interface"
|
||||||
(define g (directed-graph '((a b) (b c))))
|
(define g (directed-graph '((a b) (b c))))
|
||||||
(check-true (has-edge? g 'a 'c))
|
(check-false (has-edge? g 'a 'c))
|
||||||
(check-true (has-vertex? g 'a)))
|
(check-true (has-vertex? g 'a)))
|
||||||
|
|
||||||
(test-case "10 Graphviz"
|
(test-case "10 Graphviz"
|
||||||
(define g (directed-graph '((a b) (b c))))
|
(define g (directed-graph '((a b) (b c))))
|
||||||
(graphviz g)))
|
(check-equal? (graphviz g)
|
||||||
|
"digraph G {\n\tnode0 [label=\"c\"];\n\tnode1 [label=\"b\"];\n\tnode2 [label=\"a\"];\n\tsubgraph U {\n\t\tedge [dir=none];\n\t}\n\tsubgraph D {\n\t\tnode1 -> node0;\n\t\tnode2 -> node1;\n\t}\n}\n")))
|
||||||
|
|
Loading…
Reference in New Issue