aboutsummaryrefslogtreecommitdiff
path: root/tests/Tests
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2016-01-08 17:33:37 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2016-01-08 17:33:37 -0800
commitd5f67829dc2d60ba558d9136ab31f0ca74f5339a (patch)
treecd47865a30f90e9fdbe171fb292f226cb0ecd45b /tests/Tests
parent5884ff6994e739bd46be4914adcb7fc9cc093056 (diff)
downloadpandoc-d5f67829dc2d60ba558d9136ab31f0ca74f5339a.tar.gz
Added some entity tests in Markdown reader tests.
Diffstat (limited to 'tests/Tests')
-rw-r--r--tests/Tests/Readers/Markdown.hs9
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/Tests/Readers/Markdown.hs b/tests/Tests/Readers/Markdown.hs
index 0661b4642..20602afe1 100644
--- a/tests/Tests/Readers/Markdown.hs
+++ b/tests/Tests/Readers/Markdown.hs
@@ -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 [