Fix typo and add failing test

stil4m · Mar 25, 2021 · 4ac9684 · 4ac9684
1 parent cc065e1
commit 4ac9684
Show file tree

Hide file tree

Showing 2 changed files with 41 additions and 1 deletion.
diff --git a/src/Elm/Syntax/Expression.elm b/src/Elm/Syntax/Expression.elm
@@ -150,7 +150,7 @@ type alias LetBlock =
     }
 
 
-{-| Union type for all possible declations in a let block
+{-| Union type for all possible declarations in a let block
 -}
 type LetDeclaration
     = LetFunction Function

diff --git a/tests/tests/Elm/Parser/DeclarationsTests.elm b/tests/tests/Elm/Parser/DeclarationsTests.elm
@@ -272,6 +272,46 @@ all =
                                         }
                                 }
                         )
+        , test "let destructuring with no spaces around '='" <|
+            \() ->
+                parseFullStringWithNullState "foo =\n let\n  (b, c)=(1, 2)\n in\n  b" Parser.function
+                    |> Maybe.map Node.value
+                    |> Maybe.map noRangeDeclaration
+                    |> Expect.equal
+                        (Just <|
+                            FunctionDeclaration
+                                { signature = Nothing
+                                , documentation = Nothing
+                                , declaration =
+                                    Node emptyRange <|
+                                        { name = Node emptyRange "foo"
+                                        , arguments = []
+                                        , expression =
+                                            Node emptyRange <|
+                                                LetExpression
+                                                    { declarations =
+                                                        [ Node emptyRange <|
+                                                            LetDestructuring
+                                                                (Node emptyRange
+                                                                    (TuplePattern
+                                                                        [ Node emptyRange (VarPattern "b")
+                                                                        , Node emptyRange (VarPattern "c")
+                                                                        ]
+                                                                    )
+                                                                )
+                                                                (Node emptyRange
+                                                                    (TupledExpression
+                                                                        [ Node emptyRange (Integer 1)
+                                                                        , Node emptyRange (Integer 2)
+                                                                        ]
+                                                                    )
+                                                                )
+                                                        ]
+                                                    , expression = Node emptyRange <| FunctionOrValue [] "b"
+                                                    }
+                                        }
+                                }
+                        )
         , test "declaration with record" <|
             \() ->
                 parseFullStringWithNullState "main =\n  beginnerProgram { model = 0, view = view, update = update }" Parser.function