diff options
author | Albert Krewinkel <tarleb@moltkeplatz.de> | 2014-04-12 00:17:46 +0200 |
---|---|---|
committer | Albert Krewinkel <tarleb@moltkeplatz.de> | 2014-04-12 10:31:45 +0200 |
commit | ae4280fba528efe68c5955cb3ca0779e6910f43b (patch) | |
tree | ac2a3221f385294ac56b91ee9f4d0a823aac0f95 /tests/Tests/Readers | |
parent | 8bc09ce6c7ae118318241b0b0a31c946534259c6 (diff) | |
download | pandoc-ae4280fba528efe68c5955cb3ca0779e6910f43b.tar.gz |
Org reader: Add support for figures
Support for figures (images with name and caption) is added.
Diffstat (limited to 'tests/Tests/Readers')
-rw-r--r-- | tests/Tests/Readers/Org.hs | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/tests/Tests/Readers/Org.hs b/tests/Tests/Readers/Org.hs index 49130f0ab..99dadc0ac 100644 --- a/tests/Tests/Readers/Org.hs +++ b/tests/Tests/Readers/Org.hs @@ -377,6 +377,27 @@ tests = code' = "main = putStrLn greeting\n" ++ " where greeting = \"moin\"\n" in codeBlockWith attr' code' + + , "Figure" =: + unlines [ "#+caption: A very courageous man." + , "#+name: goodguy" + , "[[edward.jpg]]" + ] =?> + para (image "edward.jpg" "fig:goodguy" "A very courageous man.") + + , "Unnamed figure" =: + unlines [ "#+caption: A great whistleblower." + , "[[snowden.png]]" + ] =?> + para (image "snowden.png" "" "A great whistleblower.") + + , "Figure with `fig:` prefix in name" =: + unlines [ "#+caption: Used as a metapher in evolutionary biology." + , "#+name: fig:redqueen" + , "[[the-red-queen.jpg]]" + ] =?> + para (image "the-red-queen.jpg" "fig:redqueen" + "Used as a metapher in evolutionary biology.") ] , testGroup "Lists" $ |