The parser of frightening definition list has now been written!

[Rakka.git] / test / WikiParserTest.hs

diff --git a/test/WikiParserTest.hs b/test/WikiParserTest.hs
index 7e18741b11761c01013f6fa0ba8687572889fd16..543401597cbc5b85ce733d7db72b9a2f94369188 100644 (file)
--- a/test/WikiParserTest.hs
+++ b/test/WikiParserTest.hs
@@ -215,4 +215,28 @@ testData = [ (parseWiki ""
               (Right [ List (ListElement Bullet   [ [Right (Text "a")] ])
                      , List (ListElement Numbered [ [Right (Text "b")] ])
                      ]))
+
+           , (parseWiki "foo:bar"
+              ~?=
+              (Right [ Paragraph [ Text "foo"
+                                 , Text ":bar"
+                                 ]
+                     ]))
+
+           , (parseWiki "; foo: bar"
+              ~?=
+              (Right [ DefinitionList [Definition [Text "foo"] [Text "bar"]] ]))
+
+           , (parseWiki "; foo: bar\n"
+              ~?=
+              (Right [ DefinitionList [Definition [Text "foo"] [Text "bar"]] ]))
+
+           , (parseWiki "; foo\n: bar\n; bar\n: baz\n: baz"
+              ~?=
+              (Right [ DefinitionList [ Definition [Text "foo"] [ Text "bar" ]
+                                      , Definition [Text "bar"] [ Text "baz"
+                                                                , Text "\n"
+                                                                , Text "baz" ]
+                                      ]
+                     ]))
            ]