Add failing test

stil4m · Aug 2, 2024 · 1b2124d · 1b2124d
1 parent 6039934
commit 1b2124d
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/tests/Elm/Parser/FileTests.elm b/tests/Elm/Parser/FileTests.elm
@@ -468,4 +468,17 @@ port sendResponse : String -> Cmd msg
                             , comments = [ Node { start = { row = 6, column = 1 }, end = { row = 7, column = 3 } } "{-| foo\n-}" ]
                             }
                         )
+        , test "A file with a large number of comments should not create a stack overflow" <|
+            \() ->
+                let
+                    comments : String
+                    comments =
+                        String.repeat 3000 "-- a\n"
+                in
+                ("""module Foo exposing (..)
+a = 1
+""" ++ comments)
+                    |> Elm.Parser.parseToFile
+                    |> Result.map (\ast -> List.length ast.comments)
+                    |> Expect.equal (Ok 3000)
         ]