diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-05-07 14:54:20 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-05-07 14:54:20 +0300 |
| commit | 58799234227200b480b21a8f6611bdf3b6e2528a (patch) | |
| tree | 65ff8e0a6280cddd6550a4a687237212345b0c54 /test/Tests/Writers | |
| parent | 621e86402339209ea340dd36dfbd3d9eefc28e85 (diff) | |
| download | pandoc-58799234227200b480b21a8f6611bdf3b6e2528a.tar.gz | |
Muse writer: add support for left-align and right-align classes
Address issue #4542
Diffstat (limited to 'test/Tests/Writers')
| -rw-r--r-- | test/Tests/Writers/Muse.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs index ff66d1d65..50c0e78eb 100644 --- a/test/Tests/Writers/Muse.hs +++ b/test/Tests/Writers/Muse.hs @@ -425,6 +425,12 @@ tests = [ testGroup "block elements" , "image with width" =: imageWith ("", [], [("width", "60%")]) "image.png" "Image" (str "") =?> "[[image.png 60][Image]]" + , "left-aligned image with width" =: + imageWith ("", ["align-left"], [("width", "60%")]) "image.png" "Image" (str "") =?> + "[[image.png 60 l][Image]]" + , "right-aligned image with width" =: + imageWith ("", ["align-right"], [("width", "60%")]) "image.png" "Image" (str "") =?> + "[[image.png 60 r][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]" |