Wrote more

[Rakka.git] / tests / WikiParserTest.hs

diff --git a/tests/WikiParserTest.hs b/tests/WikiParserTest.hs
index 4b47e26c58052d5bcb4b50409c36757658bd7ede..f6f642cd06651049f11bd175f6842e6ced75d370 100644 (file)
--- a/tests/WikiParserTest.hs
+++ b/tests/WikiParserTest.hs
@@ -119,6 +119,14 @@ testData = [ (parseWiki ""
               ~?=
               (Right []))
 
+           , (parseWiki "[[[Page]]]"
+              ~?=
+              (Right [ Paragraph [ ObjectLink "Page" Nothing ] ]))
+
+           , (parseWiki "[[[Page|foo]]]"
+              ~?=
+              (Right [ Paragraph [ ObjectLink "Page" (Just "foo") ] ]))
+
            , (parseWiki "[[Page]]"
               ~?= 
               (Right [ Paragraph [ PageLink (Just "Page") Nothing Nothing ]