From: Siraaj Khandkar <siraaj@khandkar.net>
Date: Fri, 14 Sep 2018 19:23:34 +0000 (-0400)
Subject: Escape newline in strings
X-Git-Url: https://git.xandkar.net/?a=commitdiff_plain;h=4f2aaee3ef5f70f7769931032fd50af0403c51ae;p=tiger.ml.git

Escape newline in strings
---

diff --git a/compiler/src/lib/tiger/tiger_test_cases.ml b/compiler/src/lib/tiger/tiger_test_cases.ml
index bff7efc..788c3b7 100644
--- a/compiler/src/lib/tiger/tiger_test_cases.ml
+++ b/compiler/src/lib/tiger/tiger_test_cases.ml
@@ -231,15 +231,15 @@ let micro =
         ~is_error_expected_semant:Error.is_unknown_id
     )
   ; ( let code =
-        "let
-            type a = int
-            type b = a
-            type c = b
-            var i : a := 2
-            var j : c := 3
-        in
-            i := j
-        end
+        "let \
+            type a = int \
+            type b = a \
+            type c = b \
+            var i : a := 2 \
+            var j : c := 3 \
+        in \
+            i := j \
+        end \
         "
       in
       Test.case
@@ -247,14 +247,14 @@ let micro =
         ~code
     )
   ; ( let code =
-        "let
-            type a = {x:int, y:int}
-            type b = {x:int, y:int}  /* new type generated */
-            var foo : a := a {x = 1, y = 2}
-            var bar : b := b {x = 1, y = 2}
-        in
-            foo = bar  /* incompatible types */
-        end
+        "let \
+            type a = {x:int, y:int} \
+            type b = {x:int, y:int}  /* new type generated */ \
+            var foo : a := a {x = 1, y = 2} \
+            var bar : b := b {x = 1, y = 2} \
+        in \
+            foo = bar  /* incompatible types */ \
+        end \
         "
       in
       Test.case