test: Add tests against GLFM header ID disambiguation (#383)

Author: komar007

Tests/AstTests.fs

@@ -88,6 +88,60 @@ And this?
         "H2 {h22}"
     ]
 
+[<Fact>]
+let testSymsWhenRepeatedHeadingsGlfm () =
+    let doc =
+        """
+# X^
+# A
+# A
+# X
+# Z
+## A
+"""
+
+    let strukt =
+        Parser.parse { ParserSettings.Default with titleFromHeading = false } (Text.mkText doc)
+
+    Helpers.checkInlineSnapshot _.ToString() strukt.Symbols [
+        "Doc"
+        "H1 {a}"
+        "H1 {a-1}"
+        "H1 {x}"
+        "H1 {x-1}"
+        "H1 {z}"
+        "H2 {a-2}"
+    ]
+
+[<Fact>]
+let testSymsWhenRepeatedHeadingsNoGlfm () =
+    let doc =
+        """
+# X^
+# A
+# A
+# X
+# Z
+## A
+"""
+
+    let strukt =
+        Parser.parse
+            {
+                ParserSettings.Default with
+                    titleFromHeading = false
+                    glfmHeadingIds = false
+            }
+            (Text.mkText doc)
+
+    Helpers.checkInlineSnapshot _.ToString() strukt.Symbols [
+        "Doc"
+        "H1 {a}"
+        "H1 {x}"
+        "H1 {z}"
+        "H2 {a}"
+    ]
+
 [<Fact>]
 let testSymsWhenTitleFromHeadingIsOn () =
     let doc =

Tests/ConfigTests.fs

@@ -115,6 +115,20 @@ candidates = 100
 
     Assert.Equal(Some expected, actual)
 
+[<Fact>]
+let testParse_8 () =
+    let content =
+        """
+[core]
+markdown.glfm_heading_ids.enable = true
+"""
+
+    let actual = Config.tryParse content
+
+    let expected = { Config.Empty with coreMarkdownGlfmHeadingIdsEnable = Some true }
+
+    Assert.Equal(Some expected, actual)
+
 [<Fact>]
 let testParse_broken_0 () =
     let content =
@@ -180,6 +194,17 @@ candidates = -1
     let actual = Config.tryParse content
     Assert.Equal(None, actual)
 
+[<Fact>]
+let testParse_broken_6 () =
+    let content =
+        """
+[core]
+markdown.glfm_heading_ids.enable = -1
+"""
+
+    let actual = Config.tryParse content
+    Assert.Equal(None, actual)
+
 [<Fact>]
 let testDefault () =
     let content =