aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-05-31 00:57:58 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-05-31 01:07:51 +0300
commit1f78efff3b903158da557dbe83c2350954d40a2e (patch)
tree65a69547d978da7c1d3a59c0c8df5a2f9353a326 /test
parentf4b71d94f7ddf6d98e4e5f0b3e44051a9d972693 (diff)
downloadpandoc-1f78efff3b903158da557dbe83c2350954d40a2e.tar.gz
Muse reader: add support for images with specified width
Diffstat (limited to 'test')
-rw-r--r--test/Tests/Readers/Muse.hs6
1 files changed, 6 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index 6b4e0fdbd..1146aa6d2 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -203,6 +203,12 @@ tests =
, "Image with space in filename" =:
"[[image name.jpg]]" =?>
para (image "image name.jpg" "" mempty)
+ , "Image with width" =:
+ "[[image.jpg 60]]" =?>
+ para (imageWith ("", [], [("width", "60%")]) "image.jpg" mempty mempty)
+ , "At least one space is required between image filename and width" =:
+ "[[image.jpg60]]" =?>
+ para (link "image.jpg60" mempty (str "image.jpg60"))
, "Image link" =:
"[[URL:image.jpg]]" =?>
para (link "image.jpg" "" (str "image.jpg"))