From ded8b4c0e8d186a6f4b844ff270672e4c2e94e6d Mon Sep 17 00:00:00 2001 From: Sergiu Ivanov Date: Sat, 8 May 2021 08:07:48 +0200 Subject: [PATCH] Update some tests in Generic Graph Interface. --- graph.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/graph.rkt b/graph.rkt index c6db45f..832513a 100644 --- a/graph.rkt +++ b/graph.rkt @@ -152,9 +152,9 @@ (check-equal? (edge-weight g 'a 'c) +inf.0) (check-equal? (edge-weight g 'a 'c #:default 'none) 'none) (check-equal? (graphviz (transpose 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\tnode0 -> node1;\n\t}\n}\n") + "digraph G {\n\tnode0 [label=\"c\"];\n\tnode1 [label=\"a\"];\n\tnode2 [label=\"b\"];\n\tsubgraph U {\n\t\tedge [dir=none];\n\t}\n\tsubgraph D {\n\t\tnode0 -> node2;\n\t}\n}\n") (check-equal? (graphviz (graph-copy 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}\n}\n") + "digraph G {\n\tnode0 [label=\"c\"];\n\tnode1 [label=\"a\"];\n\tnode2 [label=\"b\"];\n\tsubgraph U {\n\t\tedge [dir=none];\n\t}\n\tsubgraph D {\n\t\tnode2 -> node0;\n\t}\n}\n") (graph-union! g (transpose g))) (test-case "10 Graphviz"