aboutsummaryrefslogtreecommitdiff
path: root/test/Tests/Writers/Muse.hs
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-03-20 15:01:53 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-03-20 15:01:53 +0300
commit81afcdfaf808d345cc94facdcf927f87325dfa4e (patch)
tree5e6d0c094a5522bfcd0ee300133c55f0bc829851 /test/Tests/Writers/Muse.hs
parentbc0025d944d936ab4f311e10992b7c5802424446 (diff)
downloadpandoc-81afcdfaf808d345cc94facdcf927f87325dfa4e.tar.gz
Muse writer: escape "]" in image title
Diffstat (limited to 'test/Tests/Writers/Muse.hs')
-rw-r--r--test/Tests/Writers/Muse.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index 04f6de449..ad7e4f1c4 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -393,6 +393,7 @@ tests = [ testGroup "block elements"
, "image with width" =:
imageWith ("", [], [("width", "60%")]) "image.png" "Image" (str "") =?>
"[[image.png 60][Image]]"
+ , "escape brackets in image title" =: image "image.png" "Foo]bar" (str "") =?> "[[image.png][<verbatim>Foo]bar</verbatim>]]"
, "note" =: note (plain (text "Foo"))
=?> unlines [ "[1]"
, ""