diff options
author | John MacFarlane <jgm@berkeley.edu> | 2018-05-11 16:51:55 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2018-05-11 17:10:32 -0700 |
commit | a00ca6f0d8e83821d9be910f1eebf3d3cdd1170f (patch) | |
tree | 3445409e6a4c854dfdd6ab8c6fdae7f3d30b3de3 /test/Tests/Readers/Org/Block/Figure.hs.orig | |
parent | 9b92993a0adab2eefb07aa63b4104437f9c709c1 (diff) | |
download | pandoc-a00ca6f0d8e83821d9be910f1eebf3d3cdd1170f.tar.gz |
Removed inadvertently added .orig files from repository.
These were added by
https://github.com/schrieveslaach/pandoc/commit/96d10c72cc95e56c9e49db3e6db7118e89d1f1e0
Closes #4648.
Diffstat (limited to 'test/Tests/Readers/Org/Block/Figure.hs.orig')
-rw-r--r-- | test/Tests/Readers/Org/Block/Figure.hs.orig | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/test/Tests/Readers/Org/Block/Figure.hs.orig b/test/Tests/Readers/Org/Block/Figure.hs.orig deleted file mode 100644 index cae6ef179..000000000 --- a/test/Tests/Readers/Org/Block/Figure.hs.orig +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -module Tests.Readers.Org.Block.Figure (tests) where - -import Test.Tasty (TestTree) -import Tests.Helpers ((=?>)) -import Tests.Readers.Org.Shared ((=:)) -import Text.Pandoc.Builder (image, imageWith, para) -import qualified Data.Text as T - -tests :: [TestTree] -tests = - [ "Figure" =: - T.unlines [ "#+caption: A very courageous man." - , "#+name: goodguy" - , "[[file:edward.jpg]]" - ] =?> - para (image "edward.jpg" "fig:goodguy" "A very courageous man.") - - , "Figure with no name" =: - T.unlines [ "#+caption: I've been through the desert on this" - , "[[file:horse.png]]" - ] =?> - para (image "horse.png" "fig:" "I've been through the desert on this") - - , "Figure with `fig:` prefix in name" =: - T.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.") - - , "Figure with HTML attributes" =: - T.unlines [ "#+CAPTION: mah brain just explodid" - , "#+NAME: lambdacat" - , "#+ATTR_HTML: :style color: blue :role button" - , "[[file:lambdacat.jpg]]" - ] =?> - let kv = [("style", "color: blue"), ("role", "button")] - name = "fig:lambdacat" - caption = "mah brain just explodid" - in para (imageWith (mempty, mempty, kv) "lambdacat.jpg" name caption) - - , "Labelled figure" =: - T.unlines [ "#+CAPTION: My figure" - , "#+LABEL: fig:myfig" - , "[[file:blub.png]]" - ] =?> - let attr = ("fig:myfig", mempty, mempty) - in para (imageWith attr "blub.png" "fig:" "My figure") - - , "Figure with empty caption" =: - T.unlines [ "#+CAPTION:" - , "[[file:guess.jpg]]" - ] =?> - para (image "guess.jpg" "fig:" "") - ] |