From 1f78efff3b903158da557dbe83c2350954d40a2e Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Thu, 31 May 2018 00:57:58 +0300 Subject: Muse reader: add support for images with specified width --- test/Tests/Readers/Muse.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'test') 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")) -- cgit v1.2.3