(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" [] []) ]))