Add consecutive comments tests for case expressions

avh4 · Nov 26, 2019 · efbecb9 · efbecb9
1 parent ed45631
commit efbecb9
Showing 1 changed file with 63 additions and 14 deletions.
diff --git a/tests/test-files/good/Elm-0.19/AllSyntax/Expressions.elm b/tests/test-files/good/Elm-0.19/AllSyntax/Expressions.elm
@@ -349,20 +349,25 @@ caseStatement =
                 _ {- E -} -> {- F -} 2
 
         c =
+            case {- A -} {- B -} Just 1 {- C -} {- D -} of
+                Just x {- E -} {- F -} -> {- G -} {- H -} x
+                _ {- I -} {- J -} -> {- K -} {- L -} 2
+
+        d =
             case Just 1 of
                 Just x ->
                     x
 
                 _ ->
                     2
 
-        d =
-            case {- M -} Just 1 {- N -} of
-                {- O -}
+        e =
+            case {- A -} Just 1 {- B -} of
+                {- C -}
                 Just x
-                {- P -}
+                {- D -}
                 ->
-                    {- Q -}
+                    {- E -}
                     x
 
                 {- R -}
@@ -372,24 +377,68 @@ caseStatement =
                     {- T -}
                     2
 
-        e =
+        f =
             case
-                --M
+                --A
                 Just 1
-                --N
+                --B
             of
-                --O
+                --C
+                Just x
+                --D
+                ->
+                    --E
+                    x
+
+                --F
+                _
+                --G
+                ->
+                    --H
+                    2
+
+        g =
+            case {- A -} {- B -} Just 1 {- C -} {- D -} of
+                {- E -} {- F -}
                 Just x
-                --P
+                {- G -} {- H -}
                 ->
-                    --Q
+                    {- I -} {- J -}
                     x
 
-                --R
+                {- K -} {- L -}
                 _
-                --S
+                {- M -} {- N -}
+                ->
+                    {- O -} {- P -}
+                    2
+
+        h =
+            case
+                --A
+                --B
+                Just 1
+                --C
+                --D
+            of
+                --E
+                --F
+                Just x
+                --G
+                --H
+                ->
+                    --I
+                    --J
+                    x
+
+                --K
+                --L
+                _
+                --M
+                --N
                 ->
-                    --T
+                    --O
+                    --P
                     2
     in
     {}