Fix test preamble parsing conflict with local statement

2 files changed, 11 insertions, 0 deletions

diff --git a/src/Parser.hs b/src/Parser.hs
index 5ad1b1a..ed03f3f 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -62,6 +62,7 @@ parseTestDefinition = label "test definition" $ toplevel ToplevelTest $ do
         void $ L.indentGuard scn EQ ref
         off <- stateOffset <$> getParserState
         name <- try $ identifier <* osymbol ":"
+            <* ((eol >> mzero) <|> return ()) -- continue only if not on EOL
         case name of
             "tag" -> do
                 Just <$> typedExpr FunctionTerm <* eol <* scn
diff --git a/test/asset/parser/tags.et b/test/asset/parser/tags.et
index 178295f..3e06e44 100644
--- a/test/asset/parser/tags.et
+++ b/test/asset/parser/tags.et
@@ -8,3 +8,13 @@ test First:
     let x = 1
     local:
         let y = 1
+
+test Second:
+    tag: SomeTag
+
+    local:
+        let x = 1
+
+test Third:
+    local:
+        let x = 1