fix: restore parser tests

.gitignore

@@ -7,4 +7,4 @@
 _out
 *.olean
 /.verso/
-/src/tests/parser/*/*.output
+/src/tests/parser/**/*.output

src/tests/TestMain.lean

@@ -29,8 +29,40 @@ def testStemmer (_ : Config) : IO Unit := do
       IO.eprintln s!"{x} --> {s} (wanted '{y}')"
     throw <| IO.userError "Stemmer tests failed"
 
+def testParser (dir : System.FilePath) (fn : Lean.Parser.ParserFn) : Config → IO Unit := fun config =>
+  Verso.GoldenTest.runTests {
+    testDir := ("src/tests/parser" : System.FilePath) / dir,
+    runTest := fn.test,
+    updateExpected := config.updateExpected
+  }
+
+open Lean.Parser in
+open Verso.Parser in
 def tests := [
-  testStemmer
+  testStemmer,
+  testParser "metadataBlock" metadataBlock,
+  testParser "val" val,
+  testParser "arg" arg,
+  testParser "args" args,
+  testParser "nameAndArgs" nameAndArgs,
+  testParser "inlineTextChar" inlineTextChar,
+  testParser "manyInlineTextChar" (asStringFn (many1Fn inlineTextChar)),
+  testParser "inline/text" text,
+  testParser "inline/emph" (emph {}),
+  testParser "inline/code" code,
+  testParser "inline/role" (role {}),
+  testParser "inline" (inline {}),
+  testParser "block/code" (codeBlock {}),
+  testParser "block/header" (header {}),
+  testParser "block/blocks" (blocks {}),
+  testParser "block/recover" (recoverBlock (block {})),
+  testParser "blocks/recover" (recoverBlock (blocks {})),
+  testParser "block/directive" (directive {}),
+  testParser "block/opener" (ignoreFn blockOpener),
+  testParser "block/ulIndicator" (lookaheadUnorderedListIndicator {} (fun type => fakeAtom s! "{repr type}")),
+  testParser "block/olIndicator" (lookaheadOrderedListIndicator {} (fun type i => fakeAtom s! "{repr type} {i}")),
+  testParser "block/" (block {}),
+  testParser "document" document,
 ]
 
 def getConfig (config : Config) : List String → IO Config

src/tests/parser/arg/arg_0001.expected

@@ -0,0 +1,4 @@
+Success! Final stack:
+  (Lean.Doc.Syntax.anon
+   (Lean.Doc.Syntax.arg_ident `x))
+All input consumed.

src/tests/parser/arg/arg_0001.input

@@ -0,0 +1 @@
+x

src/tests/parser/arg/arg_0002.expected

@@ -0,0 +1,6 @@
+Success! Final stack:
+  (Lean.Doc.Syntax.named_no_paren
+   `x
+   ":="
+   (Lean.Doc.Syntax.arg_num (num "1")))
+All input consumed.

src/tests/parser/arg/arg_0002.input

@@ -0,0 +1 @@
+x:=1

src/tests/parser/arg/arg_0003.expected

@@ -0,0 +1,8 @@
+Success! Final stack:
+  (Lean.Doc.Syntax.named
+   "("
+   `x
+   ":="
+   (Lean.Doc.Syntax.arg_num (num "1"))
+   ")")
+All input consumed.

src/tests/parser/arg/arg_0003.input

@@ -0,0 +1 @@
+(x:=1)

src/tests/parser/arg/arg_0004.expected

@@ -0,0 +1,5 @@
+Failure @0 (⟨1, 0⟩): '
+'; expected '(', '+', '-', identifier or numeral
+Final stack:
+  (Lean.Doc.Syntax.arg_str <missing>)
+Remaining: "\n(x:=1)"

src/tests/parser/arg/arg_0004.input

@@ -0,0 +1,2 @@
+
+(x:=1)

src/tests/parser/arg/arg_0005.expected

@@ -0,0 +1,3 @@
+Success! Final stack:
+  (Lean.Doc.Syntax.flag_on "+" `foo)
+All input consumed.

src/tests/parser/arg/arg_0005.input

@@ -0,0 +1 @@
++foo

src/tests/parser/arg/arg_0006.expected

@@ -0,0 +1,3 @@
+Success! Final stack:
+  (Lean.Doc.Syntax.flag_off "-" `other)
+All input consumed.

src/tests/parser/arg/arg_0006.input

@@ -0,0 +1 @@
+-other

src/tests/parser/arg/arg_0007.expected

@@ -0,0 +1,4 @@
+Failure @2 (⟨1, 2⟩): expected no space before
+Final stack:
+  (Lean.Doc.Syntax.flag_off "-" `other)
+Remaining: "other"

src/tests/parser/arg/arg_0007.input

@@ -0,0 +1 @@
+- other

src/tests/parser/arg/arg_0008.expected

@@ -0,0 +1,9 @@
+Success! Final stack:
+  (Lean.Doc.Syntax.named
+   "("
+   `x
+   ":="
+   (Lean.Doc.Syntax.arg_num (num "1"))
+   ")")
+Remaining:
+"\n"

src/tests/parser/arg/arg_0008.input

@@ -0,0 +1 @@
+(x:=1)

src/tests/parser/arg/arg_0009.expected

@@ -0,0 +1,6 @@
+Success! Final stack:
+  (Lean.Doc.Syntax.named_no_paren
+   `x
+   ":="
+   (Lean.Doc.Syntax.arg_ident `y))
+All input consumed.

src/tests/parser/arg/arg_0009.input

@@ -0,0 +1 @@
+x:=y

src/tests/parser/arg/arg_0010.expected

@@ -0,0 +1,8 @@
+Success! Final stack:
+  (Lean.Doc.Syntax.named
+   "("
+   `x
+   ":="
+   (Lean.Doc.Syntax.arg_ident `y)
+   ")")
+All input consumed.

src/tests/parser/arg/arg_0010.input

@@ -0,0 +1 @@
+(x:=y)

src/tests/parser/arg/arg_0011.expected

@@ -0,0 +1,6 @@
+Success! Final stack:
+  (Lean.Doc.Syntax.named_no_paren
+   `x
+   ":="
+   (Lean.Doc.Syntax.arg_str (str "\"y\"")))
+All input consumed.

src/tests/parser/arg/arg_0011.input

@@ -0,0 +1 @@
+x:="y"

src/tests/parser/arg/arg_0012.expected

@@ -0,0 +1,7 @@
+Failure @3 (⟨1, 3⟩): unterminated string literal; expected identifier or numeral
+Final stack:
+ • `x
+ • ":="
+ • (Lean.Doc.Syntax.arg_str <missing>)
+
+Remaining: "\"y"

src/tests/parser/arg/arg_0012.input

@@ -0,0 +1 @@
+x:="y

src/tests/parser/arg/arg_0013.expected

@@ -0,0 +1,13 @@
+2 failures:
+  @7 (⟨1, 7⟩): expected ')'
+    ""
+  @7 (⟨1, 7⟩): unterminated string literal; expected identifier or numeral
+    ""
+
+Final stack:
+  (Lean.Doc.Syntax.named
+   "("
+   `x
+   ":="
+   (Lean.Doc.Syntax.arg_str <missing>)
+   <missing>)

src/tests/parser/arg/arg_0013.input

@@ -0,0 +1 @@
+(x:="y)

src/tests/parser/arg/arg_0014.expected

@@ -0,0 +1,4 @@
+Success! Final stack:
+  (Lean.Doc.Syntax.anon
+   (Lean.Doc.Syntax.arg_num (num "42")))
+All input consumed.

src/tests/parser/arg/arg_0014.input

@@ -0,0 +1 @@
+42

src/tests/parser/arg/arg_0015.expected

@@ -0,0 +1,17 @@
+4 failures:
+  @4 (⟨1, 4⟩): expected ')'
+    ""
+  @4 (⟨1, 4⟩): expected ':='
+    ""
+  @4 (⟨1, 4⟩): expected argument name
+    ""
+  @4 (⟨1, 4⟩): unexpected end of input; expected identifier, numeral or string literal
+    ""
+
+Final stack:
+  (Lean.Doc.Syntax.named
+   "("
+   <missing>
+   <missing>
+   (Lean.Doc.Syntax.arg_str <missing>)
+   <missing>)

src/tests/parser/arg/arg_0015.input

@@ -0,0 +1 @@
+(42)

src/tests/parser/arg/arg_0016.expected

@@ -0,0 +1,15 @@
+3 failures:
+  @6 (⟨1, 6⟩): expected ')'
+    ""
+  @6 (⟨1, 6⟩): expected ':='
+    ""
+  @6 (⟨1, 6⟩): unexpected end of input; expected identifier, numeral or string literal
+    ""
+
+Final stack:
+  (Lean.Doc.Syntax.named
+   "("
+   `x
+   <missing>
+   (Lean.Doc.Syntax.arg_str <missing>)
+   <missing>)

src/tests/parser/arg/arg_0016.input

@@ -0,0 +1 @@
+(x 42)

src/tests/parser/arg/arg_0017.expected

@@ -0,0 +1,9 @@
+Failure @8 (⟨1, 8⟩): expected ')'
+Final stack:
+  (Lean.Doc.Syntax.named
+   "("
+   `x
+   ":="
+   (Lean.Doc.Syntax.arg_num (num "42"))
+   <missing>)
+Remaining: "\n)"

src/tests/parser/arg/arg_0017.input

@@ -0,0 +1,2 @@
+(x := 42
+)

src/tests/parser/arg/arg_0018.expected

@@ -0,0 +1,9 @@
+Failure @8 (⟨1, 8⟩): expected ')'
+Final stack:
+  (Lean.Doc.Syntax.named
+   "("
+   `x
+   ":="
+   (Lean.Doc.Syntax.arg_num (num "42"))
+   <missing>)
+Remaining: "\na"

src/tests/parser/arg/arg_0018.input

@@ -0,0 +1,2 @@
+(x := 42
+a

src/tests/parser/args/args_0001.expected

@@ -0,0 +1,5 @@
+Success! Final stack:
+  [(Lean.Doc.Syntax.anon
+    (Lean.Doc.Syntax.arg_num (num "43")))]
+Remaining:
+"\n\"foo\""

src/tests/parser/args/args_0001.input

@@ -0,0 +1,2 @@
+43
+"foo"

src/tests/parser/args/args_0002.expected

@@ -0,0 +1,9 @@
+Success! Final stack:
+  [(Lean.Doc.Syntax.named_no_paren
+    `dialect
+    ":="
+    (Lean.Doc.Syntax.arg_str (str "\"chicken\"")))
+   (Lean.Doc.Syntax.anon
+    (Lean.Doc.Syntax.arg_num (num "43")))]
+Remaining:
+"\nfoo"

src/tests/parser/args/args_0002.input

@@ -0,0 +1,2 @@
+dialect:="chicken" 43
+foo

src/tests/parser/args/args_0003.expected

@@ -0,0 +1,9 @@
+Success! Final stack:
+  [(Lean.Doc.Syntax.named_no_paren
+    `dialect
+    ":="
+    (Lean.Doc.Syntax.arg_str (str "\"chicken\"")))
+   (Lean.Doc.Syntax.anon
+    (Lean.Doc.Syntax.arg_num (num "43")))]
+Remaining:
+"\n(foo)"

src/tests/parser/args/args_0003.input

@@ -0,0 +1,2 @@
+dialect:="chicken" 43
+(foo)

src/tests/parser/block/block_0001.expected

@@ -0,0 +1,36 @@
+Success! Final stack:
+  (Lean.Doc.Syntax.ul
+   "ul{"
+   [(Lean.Doc.Syntax.li
+     "*"
+     [(Lean.Doc.Syntax.para
+       "para{"
+       [(Lean.Doc.Syntax.text
+         (str "\"Here's a bullet\""))]
+       "}")])
+    (Lean.Doc.Syntax.li
+     "*"
+     [(Lean.Doc.Syntax.para
+       "para{"
+       [(Lean.Doc.Syntax.text
+         (str
+          "\"and another with some code in it\""))]
+       "}")
+      (Lean.Doc.Syntax.codeblock
+       "````"
+       [`lean []]
+       "\n"
+       (str "\"hey\\n\\nthere\\n\"")
+       "````")])
+    (Lean.Doc.Syntax.li
+     "*"
+     [(Lean.Doc.Syntax.para
+       "para{"
+       [(Lean.Doc.Syntax.text
+         (str "\"and another one\""))
+        (Lean.Doc.Syntax.linebreak
+         "line!"
+         (str "\"\\n\""))]
+       "}")])]
+   "}")
+All input consumed.

src/tests/parser/block/block_0001.input

@@ -0,0 +1,8 @@
+ * Here's a bullet
+ * and another with some code in it
+    ````lean
+    hey
+
+    there
+    ````
+ * and another one

src/tests/parser/block/block_0002.expected

@@ -0,0 +1,4 @@
+Success! Final stack:
+  (Lean.Doc.Syntax.command "{" `test [] "}")
+Remaining:
+"Here's a paragraph."

src/tests/parser/block/block_0002.input

@@ -0,0 +1,2 @@
+{test}
+Here's a paragraph.

src/tests/parser/block/block_0003.expected

@@ -0,0 +1,4 @@
+Success! Final stack:
+  (Lean.Doc.Syntax.command "{" `test [] "}")
+Remaining:
+" Here's a paragraph."

src/tests/parser/block/block_0003.input

@@ -0,0 +1,2 @@
+{test}
+ Here's a paragraph.

src/tests/parser/block/block_0004.expected

@@ -0,0 +1,4 @@
+Success! Final stack:
+  (Lean.Doc.Syntax.command "{" `test [] "}")
+Remaining:
+" Here's a paragraph."

src/tests/parser/block/block_0004.input

@@ -0,0 +1,2 @@
+{test}
+ Here's a paragraph.

src/tests/parser/block/block_0005.expected

@@ -0,0 +1,4 @@
+Success! Final stack:
+  (Lean.Doc.Syntax.command "{" `test [] "}")
+Remaining:
+"Here's a paragraph."