ccwl: Support graphviz node ports.

* ccwl/graphviz.scm (<graph-port>): New type.
(serialize): Support <graph-port> objects.
* tests/graphviz.scm (graph-port): New function.
("serialize ports correctly"): New test case.

1 files changed, 15 insertions, 0 deletions

diff --git a/tests/graphviz.scm b/tests/graphviz.scm
index bb99edc..b61cc61 100644
--- a/tests/graphviz.scm
+++ b/tests/graphviz.scm
@@ -27,6 +27,9 @@
 (define graph-node
   (@@ (ccwl graphviz) graph-node))
 
+(define graph-port
+  (@@ (ccwl graphviz) graph-port))
+
 (define html-string
   (@@ (ccwl graphviz) html-string))
 
@@ -58,4 +61,16 @@
                                         `((label . "foo\\lbar")))))
        port))))
 
+(test-equal "serialize ports correctly"
+  "digraph foo {
+  foo:p1 -> bar:p2;
+}
+"
+  (call-with-output-string
+    (lambda (port)
+      (graph->dot
+       (graph 'foo
+              #:edges `((,(graph-port "foo" "p1") . ,(graph-port "bar" "p2"))))
+       port))))
+
 (test-end "graphviz")