Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1
pandoc/test/Tests/Readers/Org/Inline/Citation.hs

214 lines
7.5 KiB
Haskell
Raw Normal View History

Org reader tests: move citation tests to separate module
2018-02-26 21:09:51 +01:00
{-# LANGUAGE OverloadedStrings #-}
Add missing copyright notices and remove license boilerplate (#5112) Quite a few modules were missing copyright notices. This commit adds copyright notices everywhere via haddock module headers. The old license boilerplate comment is redundant with this and has been removed. Update copyright years to 2019. Closes #4592.
2019-02-04 22:52:31 +01:00
{- |
Module : Tests.Readers.Org.Inline.Citation
Update copyright notices for 2021 (#7012)
2021-01-08 18:38:20 +01:00
Copyright : © 2014-2021 Albert Krewinkel
Add missing copyright notices and remove license boilerplate (#5112) Quite a few modules were missing copyright notices. This commit adds copyright notices everywhere via haddock module headers. The old license boilerplate comment is redundant with this and has been removed. Update copyright years to 2019. Closes #4592.
2019-02-04 22:52:31 +01:00
License : GNU GPL, version 2 or above
Maintainer : Albert Krewinkel <albert@zeitkraut.de>
Stability : alpha
Portability : portable
Test parsing of citations in org input.
-}
Org reader tests: move citation tests to separate module
2018-02-26 21:09:51 +01:00
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 =
Org reader: parse official org-cite citations. We also support the older org-ref style as a fallback. We no longer support the "markdown-style" citations. See #7329.
2021-12-14 10:40:24 -08:00
[ testGroup "Org-cite citations"
Org reader tests: move citation tests to separate module
2018-02-26 21:09:51 +01:00
[ "Citation" =:
Org reader: parse official org-cite citations. We also support the older org-ref style as a fallback. We no longer support the "markdown-style" citations. See #7329.
2021-12-14 10:40:24 -08:00
"[cite:@nonexistent]" =?>
Org reader tests: move citation tests to separate module
2018-02-26 21:09:51 +01:00
let citation = Citation
{ citationId = "nonexistent"
, citationPrefix = []
, citationSuffix = []
, citationMode = NormalCitation
, citationNoteNum = 0
, citationHash = 0}
Org reader: parse official org-cite citations. We also support the older org-ref style as a fallback. We no longer support the "markdown-style" citations. See #7329.
2021-12-14 10:40:24 -08:00
in (para $ cite [citation] "[cite:@nonexistent]")
Org reader tests: move citation tests to separate module
2018-02-26 21:09:51 +01:00
, "Citation containing text" =:
Org reader: parse official org-cite citations. We also support the older org-ref style as a fallback. We no longer support the "markdown-style" citations. See #7329.
2021-12-14 10:40:24 -08:00
"[cite:see @item1 p. 34-35]" =?>
Org reader tests: move citation tests to separate module
2018-02-26 21:09:51 +01:00
let citation = Citation
{ citationId = "item1"
, citationPrefix = [Str "see"]
, citationSuffix = [Space ,Str "p.",Space,Str "34-35"]
, citationMode = NormalCitation
, citationNoteNum = 0
, citationHash = 0}
Org reader: parse official org-cite citations. We also support the older org-ref style as a fallback. We no longer support the "markdown-style" citations. See #7329.
2021-12-14 10:40:24 -08:00
in (para $ cite [citation] "[cite:see @item1 p. 34-35]")
, "Author-in-text citation with locator and suffix" =:
"[cite/t:see @item1 p. 34-35 and *passim*; @item2]" =?>
let citations =
[ Citation
{ citationId = "item1"
, citationPrefix = [ Str "see" ]
, citationSuffix =
[ Str "p."
, Space
, Str "34-35"
, Space
, Str "and"
, Space
, Strong [ Str "passim" ]
]
, citationMode = AuthorInText
, citationNoteNum = 0
, citationHash = 0
}
, Citation
{ citationId = "item2"
, citationPrefix = []
, citationSuffix = []
, citationMode = NormalCitation
, citationNoteNum = 0
, citationHash = 0
}
]
in (para $ cite citations "[cite/t:see @item1 p. 34-35 and *passim*; @item2]")
Org reader tests: move citation tests to separate module
2018-02-26 21:09:51 +01:00
]
, 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")
Org reader: fix bug in org-ref citation parsing. The org-ref syntax allows to list multiple citations separated by comma. This fixes a bug that accepted commas as part of the citation id, so all citation lists were parsed as one single citation. Fixes: #7101
2021-02-18 21:53:19 +01:00
, "multiple simple citations" =:
"citep:picard,riker" =?>
let picard = Citation
{ citationId = "picard"
, citationPrefix = mempty
, citationSuffix = mempty
, citationMode = NormalCitation
, citationNoteNum = 0
, citationHash = 0
}
riker = Citation
{ citationId = "riker"
, citationPrefix = mempty
, citationSuffix = mempty
, citationMode = NormalCitation
, citationNoteNum = 0
, citationHash = 0
}
in (para $ cite [picard,riker] "citep:picard,riker")
, "multiple simple citations succeeded by comma" =:
"citep:picard,riker," =?>
let picard = Citation
{ citationId = "picard"
, citationPrefix = mempty
, citationSuffix = mempty
, citationMode = NormalCitation
, citationNoteNum = 0
, citationHash = 0
}
riker = Citation
{ citationId = "riker"
, citationPrefix = mempty
, citationSuffix = mempty
, citationMode = NormalCitation
, citationNoteNum = 0
, citationHash = 0
}
in (para $ cite [picard,riker] "citep:picard,riker" <> str ",")
Org reader tests: move citation tests to separate module
2018-02-26 21:09:51 +01:00
, "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]]")
]
, "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}")
]
Reference in a new issue Copy permalink