aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-05-31 23:31:27 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-05-31 23:31:27 +0300
commit5fbc981fc24d24652de3061353f09d1912928fba (patch)
treea02dafa22bc2013799e3b12ae2e090a046bfcc16 /test
parent3181023ca11063569a01f123dd72898725c0950d (diff)
downloadpandoc-5fbc981fc24d24652de3061353f09d1912928fba.tar.gz
Muse reader: add support for floating images
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 1146aa6d2..fe25e9c5d 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -209,6 +209,12 @@ tests =
, "At least one space is required between image filename and width" =:
"[[image.jpg60]]" =?>
para (link "image.jpg60" mempty (str "image.jpg60"))
+ , "Left-aligned image with width" =:
+ "[[image.png 60 l][Image]]" =?>
+ para (imageWith ("", ["align-left"], [("width", "60%")]) "image.png" "" (str "Image"))
+ , "Right-aligned image with width" =:
+ "[[image.png 60 r][Image]]" =?>
+ para (imageWith ("", ["align-right"], [("width", "60%")]) "image.png" "" (str "Image"))
, "Image link" =:
"[[URL:image.jpg]]" =?>
para (link "image.jpg" "" (str "image.jpg"))