diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/graphviz.scm | 13 |
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") |