diff options
Diffstat (limited to 'tests/Tests/Old.hs')
| -rw-r--r-- | tests/Tests/Old.hs | 20 |
1 files changed, 1 insertions, 19 deletions
diff --git a/tests/Tests/Old.hs b/tests/Tests/Old.hs index 7321308de..cb1417ffa 100644 --- a/tests/Tests/Old.hs +++ b/tests/Tests/Old.hs @@ -10,7 +10,7 @@ import System.FilePath ( (</>), (<.>) ) import System.Directory import System.Exit import Data.Algorithm.Diff -import Text.Pandoc.Shared ( substitute, normalize, defaultWriterOptions ) +import Text.Pandoc.Shared ( normalize, defaultWriterOptions ) import Text.Pandoc.Writers.Native ( writeNative ) import Text.Pandoc.Readers.Native ( readNative ) import Text.Pandoc.Highlighting ( languages ) @@ -80,7 +80,6 @@ tests = [ testGroup "markdown" "latex-reader.latex" "latex-reader.native" , lhsReaderTest "latex+lhs" ] - , latexCitationTests "biblatex" ] , testGroup "html" [ testGroup "writer" (writerTests "html" ++ lhsWriterTests "html") @@ -133,23 +132,6 @@ lhsReaderTest format = ("lhs-test" <.> format) "lhs-test.native" where normalizer = writeNative defaultWriterOptions . normalize . readNative -latexCitationTests :: String -> Test -latexCitationTests n - = testGroup (n ++ " citations") - [ t ("latex reader (" ++ n ++ " citations)") - (["-r", "latex", "-w", "markdown", "-s", "--no-wrap"] ++ o) - f "markdown-citations.txt" - , t ("latex writer (" ++ n ++ " citations)") - (["-r", "markdown", "-w", "latex", "-s", "--no-wrap"] ++ o) - "markdown-citations.txt" f - ] - where - o = ["--bibliography", "biblio.bib", "--csl", "chicago-author-date.csl", - "--natbib", "--" ++ n] - f = n ++ "-citations.latex" - normalizer = substitute "\160" " " . substitute "\8211" "-" - t = testWithNormalize normalizer - writerTests :: String -> [Test] writerTests format = [ test "basic" (opts ++ ["-s"]) "testsuite.native" ("writer" <.> format) |