diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-05-31 23:31:27 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-05-31 23:31:27 +0300 |
| commit | 5fbc981fc24d24652de3061353f09d1912928fba (patch) | |
| tree | a02dafa22bc2013799e3b12ae2e090a046bfcc16 /test | |
| parent | 3181023ca11063569a01f123dd72898725c0950d (diff) | |
| download | pandoc-5fbc981fc24d24652de3061353f09d1912928fba.tar.gz | |
Muse reader: add support for floating images
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 6 |
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")) |