Added some entity tests in Markdown reader tests.

This commit is contained in:
John MacFarlane 2016-01-08 17:33:37 -08:00
parent 5884ff6994
commit d5f67829dc

View file

@ -371,6 +371,15 @@ tests = [ testGroup "inline code"
, plain "b"
, plain "c" <> bulletList [plain "d"] ]
]
, testGroup "entities"
[ "character references" =:
"&lang; &ouml;" =?> para (text "\10216 ö")
, "numeric" =:
"&#44;&#x44;&#X44;" =?> para (text ",DD")
, "in link title" =:
"[link](/url \"title &lang; &ouml; &#44;\")" =?>
para (link "/url" "title \10216 ö ," (text "link"))
]
, testGroup "citations"
[ "simple" =:
"@item1" =?> para (cite [