From 93c89e42829f2570a529e58440fe7613853f4cce Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?R=C3=A9mi=20Lef=C3=A8vre?= <rlefevre@gmail.com>
Date: Fri, 22 Nov 2019 23:30:54 +0100
Subject: [PATCH] Add consecutive comments tests for `case` expressions

---
 .../good/Elm-0.19/AllSyntax/Expressions.elm   | 77 +++++++++++++++----
 1 file changed, 63 insertions(+), 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
index 7d8e5b3ae..1a761dca7 100644
--- a/tests/test-files/good/Elm-0.19/AllSyntax/Expressions.elm
+++ b/tests/test-files/good/Elm-0.19/AllSyntax/Expressions.elm
@@ -349,6 +349,11 @@ 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
@@ -356,13 +361,13 @@ caseStatement =
                 _ ->
                     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
     {}