diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-04-13 14:03:15 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-04-13 14:03:15 -0700 |
| commit | d5d4227ea5144d7c9da2ffdd44fbbd8131d4d86d (patch) | |
| tree | d359b454ff5d0cb201a84089c02d1458deb0530a /tests | |
| parent | d4c1cd456c16298069b05e1da328e70dc87ea547 (diff) | |
| parent | ae4280fba528efe68c5955cb3ca0779e6910f43b (diff) | |
| download | pandoc-d5d4227ea5144d7c9da2ffdd44fbbd8131d4d86d.tar.gz | |
Merge pull request #1238 from tarleb/org-figures
Org reader: Add support for figures
Diffstat (limited to 'tests')
| -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" $ |