Added anchors

2025-09-21 21:20:35 +02:00 · 2025-09-21 21:20:35 +02:00 · fe930b2fec
commit fe930b2fec
parent 7c4603528d
2 changed files with 27 additions and 0 deletions
--- a/test/Spec.hs
+++ b/test/Spec.hs
@ -81,6 +81,14 @@ labeledLink =
                  , (1, 35, LabeledLinkClose)
                  ]

+anchors :: Expectation
+anchors =
+  "#myAnchor#"
+    `shouldLexTo` [ (1, 1, Anchor)
+                  , (1, 2, Token "myAnchor")
+                  , (1, 10, Anchor)
+                  ]
+
 maths :: IO ()
 maths = do
  "\\[some math\\]"