From 1e36c8bdc8c22dee68a3aa292c1d318bd8e0b982 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 13 Dec 2021 18:03:42 +0530
Subject: 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.
---
 tests/graphviz.scm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'tests')

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")
-- 
cgit v1.2.3