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/Inline | |
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/Inline')
-rw-r--r-- | test/Tests/Readers/Org/Inline/Citation.hs.orig | 179 | ||||
-rw-r--r-- | test/Tests/Readers/Org/Inline/Note.hs.orig | 86 | ||||
-rw-r--r-- | test/Tests/Readers/Org/Inline/Smart.hs.orig | 46 |
3 files changed, 0 insertions, 311 deletions
diff --git a/test/Tests/Readers/Org/Inline/Citation.hs.orig b/test/Tests/Readers/Org/Inline/Citation.hs.orig deleted file mode 100644 index d7e38a6b0..000000000 --- a/test/Tests/Readers/Org/Inline/Citation.hs.orig +++ /dev/null @@ -1,179 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -module Tests.Readers.Org.Inline.Citation (tests) where - -import Test.Tasty (TestTree, testGroup) -import Tests.Helpers ((=?>)) -import Tests.Readers.Org.Shared ((=:)) -import Text.Pandoc.Builder - -tests :: [TestTree] -tests = - [ testGroup "Markdown-style citations" - [ "Citation" =: - "[@nonexistent]" =?> - let citation = Citation - { citationId = "nonexistent" - , citationPrefix = [] - , citationSuffix = [] - , citationMode = NormalCitation - , citationNoteNum = 0 - , citationHash = 0} - in (para $ cite [citation] "[@nonexistent]") - - , "Citation containing text" =: - "[see @item1 p. 34-35]" =?> - let citation = Citation - { citationId = "item1" - , citationPrefix = [Str "see"] - , citationSuffix = [Space ,Str "p.",Space,Str "34-35"] - , citationMode = NormalCitation - , citationNoteNum = 0 - , citationHash = 0} - in (para $ cite [citation] "[see @item1 p. 34-35]") - ] - - , testGroup "org-ref citations" - [ "simple citation" =: - "cite:pandoc" =?> - let citation = Citation - { citationId = "pandoc" - , citationPrefix = mempty - , citationSuffix = mempty - , citationMode = AuthorInText - , citationNoteNum = 0 - , citationHash = 0 - } - in (para $ cite [citation] "cite:pandoc") - - , "simple citation with underscores" =: - "cite:pandoc_org_ref" =?> - let citation = Citation - { citationId = "pandoc_org_ref" - , citationPrefix = mempty - , citationSuffix = mempty - , citationMode = AuthorInText - , citationNoteNum = 0 - , citationHash = 0 - } - in (para $ cite [citation] "cite:pandoc_org_ref") - - , "simple citation succeeded by comma" =: - "cite:pandoc," =?> - let citation = Citation - { citationId = "pandoc" - , citationPrefix = mempty - , citationSuffix = mempty - , citationMode = AuthorInText - , citationNoteNum = 0 - , citationHash = 0 - } - in (para $ cite [citation] "cite:pandoc" <> str ",") - - , "simple citation succeeded by dot" =: - "cite:pandoc." =?> - let citation = Citation - { citationId = "pandoc" - , citationPrefix = mempty - , citationSuffix = mempty - , citationMode = AuthorInText - , citationNoteNum = 0 - , citationHash = 0 - } - in (para $ cite [citation] "cite:pandoc" <> str ".") - - , "simple citation succeeded by colon" =: - "cite:pandoc:" =?> - let citation = Citation - { citationId = "pandoc" - , citationPrefix = mempty - , citationSuffix = mempty - , citationMode = AuthorInText - , citationNoteNum = 0 - , citationHash = 0 - } - in (para $ cite [citation] "cite:pandoc" <> str ":") - - , "simple citep citation" =: - "citep:pandoc" =?> - let citation = Citation - { citationId = "pandoc" - , citationPrefix = mempty - , citationSuffix = mempty - , citationMode = NormalCitation - , citationNoteNum = 0 - , citationHash = 0 - } - in (para $ cite [citation] "citep:pandoc") - - , "extended citation" =: - "[[citep:Dominik201408][See page 20::, for example]]" =?> - let citation = Citation - { citationId = "Dominik201408" - , citationPrefix = toList "See page 20" - , citationSuffix = toList ", for example" - , citationMode = NormalCitation - , citationNoteNum = 0 - , citationHash = 0 - } - in (para $ cite [citation] "[[citep:Dominik201408][See page 20::, for example]]") - ] - - , testGroup "Berkeley-style citations" $ - let pandocCite = Citation - { citationId = "Pandoc" - , citationPrefix = mempty - , citationSuffix = mempty - , citationMode = NormalCitation - , citationNoteNum = 0 - , citationHash = 0 - } - pandocInText = pandocCite { citationMode = AuthorInText } - dominikCite = Citation - { citationId = "Dominik201408" - , citationPrefix = mempty - , citationSuffix = mempty - , citationMode = NormalCitation - , citationNoteNum = 0 - , citationHash = 0 - } - dominikInText = dominikCite { citationMode = AuthorInText } - in - [ "Berkeley-style in-text citation" =: - "See @Dominik201408." =?> - para ("See " - <> cite [dominikInText] "@Dominik201408" - <> ".") - - , "Berkeley-style parenthetical citation list" =: - "[(cite): see; @Dominik201408;also @Pandoc; and others]" =?> - let pandocCite' = pandocCite { - citationPrefix = toList "also" - , citationSuffix = toList "and others" - } - dominikCite' = dominikCite { - citationPrefix = toList "see" - } - in (para $ cite [dominikCite', pandocCite'] "") - - , "Berkeley-style plain citation list" =: - "[cite: See; @Dominik201408; and @Pandoc; and others]" =?> - let pandocCite' = pandocInText { citationPrefix = toList "and" } - in (para $ "See " - <> cite [dominikInText] "" - <> "," <> space - <> cite [pandocCite'] "" - <> "," <> space <> "and others") - ] - - , "LaTeX citation" =: - "\\cite{Coffee}" =?> - let citation = Citation - { citationId = "Coffee" - , citationPrefix = [] - , citationSuffix = [] - , citationMode = NormalCitation - , citationNoteNum = 0 - , citationHash = 0} - in (para . cite [citation] $ rawInline "latex" "\\cite{Coffee}") - - ] diff --git a/test/Tests/Readers/Org/Inline/Note.hs.orig b/test/Tests/Readers/Org/Inline/Note.hs.orig deleted file mode 100644 index 9eb1d02d6..000000000 --- a/test/Tests/Readers/Org/Inline/Note.hs.orig +++ /dev/null @@ -1,86 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -module Tests.Readers.Org.Inline.Note (tests) where - -import Test.Tasty (TestTree) -import Tests.Helpers ((=?>)) -import Tests.Readers.Org.Shared ((=:)) -import Text.Pandoc.Builder -import qualified Data.Text as T - -tests :: [TestTree] -tests = - [ "Footnote" =: - T.unlines [ "A footnote[1]" - , "" - , "[1] First paragraph" - , "" - , "second paragraph" - ] =?> - para (mconcat - [ "A", space, "footnote" - , note $ mconcat [ para ("First" <> space <> "paragraph") - , para ("second" <> space <> "paragraph") - ] - ]) - - , "Two footnotes" =: - T.unlines [ "Footnotes[fn:1][fn:2]" - , "" - , "[fn:1] First note." - , "" - , "[fn:2] Second note." - ] =?> - para (mconcat - [ "Footnotes" - , note $ para ("First" <> space <> "note.") - , note $ para ("Second" <> space <> "note.") - ]) - - , "Emphasized text before footnote" =: - T.unlines [ "/text/[fn:1]" - , "" - , "[fn:1] unicorn" - ] =?> - para (mconcat - [ emph "text" - , note . para $ "unicorn" - ]) - - , "Footnote that starts with emphasized text" =: - T.unlines [ "text[fn:1]" - , "" - , "[fn:1] /emphasized/" - ] =?> - para (mconcat - [ "text" - , note . para $ emph "emphasized" - ]) - - , "Footnote followed by header" =: - T.unlines [ "Another note[fn:yay]" - , "" - , "[fn:yay] This is great!" - , "" - , "** Headline" - ] =?> - mconcat - [ para (mconcat - [ "Another", space, "note" - , note $ para ("This" <> space <> "is" <> space <> "great!") - ]) - , headerWith ("headline", [], []) 2 "Headline" - ] - - , "Footnote followed by two blank lines" =: - T.unlines [ "footnote[fn:blanklines]" - , "" - , "[fn:blanklines] followed by blank lines" - , "" - , "" - , "next" - ] =?> - mconcat - [ para ("footnote" <> note (para "followed by blank lines")) - , para "next" - ] - ] diff --git a/test/Tests/Readers/Org/Inline/Smart.hs.orig b/test/Tests/Readers/Org/Inline/Smart.hs.orig deleted file mode 100644 index 77f10699d..000000000 --- a/test/Tests/Readers/Org/Inline/Smart.hs.orig +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -module Tests.Readers.Org.Inline.Smart (tests) where - -import Data.Text (Text) -import Test.Tasty (TestTree) -import Tests.Helpers ((=?>), purely, test) -import Text.Pandoc (ReaderOptions (readerExtensions), - Extension (Ext_smart), def, enableExtension, - getDefaultExtensions, readOrg) -import Text.Pandoc.Builder - -orgSmart :: Text -> Pandoc -orgSmart = purely $ - let extensionsSmart = enableExtension Ext_smart (getDefaultExtensions "org") - in readOrg def{ readerExtensions = extensionsSmart } - -tests :: [TestTree] -tests = - [ test orgSmart "quote before ellipses" - ("'...hi'" - =?> para (singleQuoted "…hi")) - - , test orgSmart "apostrophe before emph" - ("D'oh! A l'/aide/!" - =?> para ("D’oh! A l’" <> emph "aide" <> "!")) - - , test orgSmart "apostrophe in French" - ("À l'arrivée de la guerre, le thème de l'«impossibilité du socialisme»" - =?> para "À l’arrivée de la guerre, le thème de l’«impossibilité du socialisme»") - - , test orgSmart "Quotes cannot occur at the end of emphasized text" - ("/say \"yes\"/" =?> - para ("/say" <> space <> doubleQuoted "yes" <> "/")) - - , test orgSmart "Dashes are allowed at the borders of emphasis'" - ("/foo---/" =?> - para (emph "foo—")) - - , test orgSmart "Single quotes can be followed by emphasized text" - ("Singles on the '/meat market/'" =?> - para ("Singles on the " <> singleQuoted (emph "meat market"))) - - , test orgSmart "Double quotes can be followed by emphasized text" - ("Double income, no kids: \"/DINK/\"" =?> - para ("Double income, no kids: " <> doubleQuoted (emph "DINK"))) - ] |