+
+ , (parseWiki "<div>foo</div>"
+ ~?=
+ (Right [ BlockCmd (BlockCommand "div" []
+ [ Paragraph [Text "foo"] ]) ]))
+
+ , (parseWiki "<div>\nbar\n</div>"
+ ~?=
+ (Right [ BlockCmd (BlockCommand "div" []
+ [ Paragraph [Text "bar"] ]) ]))
+
+ , (parseWiki "<div><!-- comment --></div>"
+ ~?=
+ (Right [ BlockCmd (BlockCommand "div" [] []) ]))
+
+ , (parseWiki "foo<div id=\"bar\"/>"
+ ~?=
+ (Right [ Paragraph [Text "foo"]
+ , BlockCmd (BlockCommand "div" [("id", "bar")] [])
+ ]))
+
+ , (parseWiki "[http://example.org/]"
+ ~?=
+ (Right [ Paragraph [ExternalLink (fromJust $ parseURI "http://example.org/") Nothing] ]))
+
+ , (parseWiki "[http://example.org/ example.org]"
+ ~?=
+ (Right [ Paragraph [ExternalLink
+ (fromJust $ parseURI "http://example.org/")
+ (Just "example.org")
+ ]
+ ]))