From 64ed9fb4581b290c6c64152e577ee166ff1d4dd7 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 13 Dec 2021 17:41:19 +0530
Subject: ccwl: Escape only the double quote character in graphviz output.

* ccwl/graphviz.scm: Import (ice-9 string-fun).
(serialize): When quoting strings, escape only the double quote
character.
* tests/graphviz.scm ("do not escape backslashes"): New test case.
---
 tests/graphviz.scm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'tests')

diff --git a/tests/graphviz.scm b/tests/graphviz.scm
index 5853616..bb99edc 100644
--- a/tests/graphviz.scm
+++ b/tests/graphviz.scm
@@ -45,4 +45,17 @@
                                         `((label . ,(html-string "<table><tr><td>bar</td></tr></table>"))))))
        port))))
 
+(test-equal "do not escape backslashes"
+  "digraph foo {
+  bar [label=\"foo\\lbar\"];
+}
+"
+  (call-with-output-string
+    (lambda (port)
+      (graph->dot
+       (graph 'foo
+              #:nodes (list (graph-node 'bar
+                                        `((label . "foo\\lbar")))))
+       port))))
+
 (test-end "graphviz")
-- 
cgit v1.2.3