- (Right [ Paragraph [Text "foo"]
- , BlockCmd (BlockCommand "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")
+ ]
+ ])