summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/graphviz.scm13
1 files changed, 13 insertions, 0 deletions
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")