Add a test for multi-line strings

Signed-off-by: Etienne Millon <[email protected]>
ocaml · Dec 4, 2018 · 6d9c0dd · 6d9c0dd
1 parent 356436a
commit 6d9c0dd
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 0 deletions.
diff --git a/test/blackbox-tests/test-cases/fmt/multi-line-strings b/test/blackbox-tests/test-cases/fmt/multi-line-strings
@@ -0,0 +1,10 @@
+(echo "\> multi
+      "\> line
+      "\> string
+)
+
+(echo "\
+multi
+line
+string
+")
diff --git a/test/blackbox-tests/test-cases/fmt/run.t b/test/blackbox-tests/test-cases/fmt/run.t
@@ -74,3 +74,9 @@ and files are not removed when there is an error:
     (action
      (run %{project_root}/src/let-syntax/pp.exe %{input-file}))))
 
+In multi-line strings, newlines are escape.
+
+  $ dune unstable-fmt < multi-line-strings
+  (echo "multi\nline\nstring\n")
+
+  (echo "multi\nline\nstring\n")