diff options
Diffstat (limited to 'test/Tests')
| -rw-r--r-- | test/Tests/Readers/Org/Inline.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/Tests/Readers/Org/Inline.hs b/test/Tests/Readers/Org/Inline.hs index 111d74879..3b7dcac72 100644 --- a/test/Tests/Readers/Org/Inline.hs +++ b/test/Tests/Readers/Org/Inline.hs @@ -213,6 +213,14 @@ tests = ] =?> para (imageWith ("", [], [("width", "50%")]) "guinea-pig.gif" "" "") + , "HTML attributes can have trailing spaces" =: + T.unlines [ "#+attr_html: :width 100% :height 360px " + , "[[file:fireworks.jpg]]" + ] =?> + let kv = [("width", "100%"), ("height", "360px")] + in para (imageWith (mempty, mempty, kv) "fireworks.jpg" mempty mempty) + + , "Uppercase extension" =: "[[file:test.PNG]]" =?> para (image "test.PNG" "" "") |