+
+ , (parseWiki "<![CDATA[foo [[bar]] baz]]>"
+ ~?=
+ (Right [ Paragraph [ Text "foo [[bar]] baz" ] ]))
+
+ , (parseWiki "<![PDATA[foo [[bar]] baz]]>"
+ ~?=
+ (Right [ Preformatted [ Text "foo [[bar]] baz" ] ]))
+
+ , (parseWiki "<![PDATA[\nfoo [[bar]] baz\n]]>"
+ ~?=
+ (Right [ Preformatted [ Text "foo [[bar]] baz" ] ]))
+
+ , (parseWiki "foo' bar"
+ ~?=
+ (Right [ Paragraph [ Text "foo"
+ , Text "'"
+ , Text " bar" ]
+ ]))
+
+ , (parseWiki "''foo''"
+ ~?=
+ (Right [ Paragraph [ Italic [Text "foo"] ] ]))
+
+ , (parseWiki "'''foo'''"
+ ~?=
+ (Right [ Paragraph [ Bold [Text "foo"] ] ]))
+
+ , (parseWiki "foo''''"
+ ~?=
+ (Right [ Paragraph [ Text "foo"
+ , Text "'"
+ ]
+ ]))
+
+ , (parseWiki "'''''foo'''''"
+ ~?=
+ (Right [ Paragraph [ Italic [Bold [Text "foo"]] ] ]))