git.iko.soy/typeable/pandoc
on 2.7 help sign in
typeable/pandoc/test/test-pandoc.hs
96 lines 3.7 kB history raw
1{-# LANGUAGE NoImplicitPrelude #-}
2{-# OPTIONS_GHC -Wall #-}
4module Main where
6import Prelude
7import GHC.IO.Encoding
8import Test.Tasty
9import qualified Tests.Command
10import qualified Tests.Lua
11import qualified Tests.Old
12import qualified Tests.Readers.Creole
13import qualified Tests.Readers.Docx
14import qualified Tests.Readers.DokuWiki
15import qualified Tests.Readers.EPUB
16import qualified Tests.Readers.FB2
17import qualified Tests.Readers.HTML
18import qualified Tests.Readers.JATS
19import qualified Tests.Readers.LaTeX
20import qualified Tests.Readers.Markdown
21import qualified Tests.Readers.Muse
22import qualified Tests.Readers.Odt
23import qualified Tests.Readers.Org
24import qualified Tests.Readers.RST
25import qualified Tests.Readers.Txt2Tags
26import qualified Tests.Readers.Man
27import qualified Tests.Shared
28import qualified Tests.Writers.AsciiDoc
29import qualified Tests.Writers.ConTeXt
30import qualified Tests.Writers.Docbook
31import qualified Tests.Writers.Docx
32import qualified Tests.Writers.FB2
33import qualified Tests.Writers.HTML
34import qualified Tests.Writers.JATS
35import qualified Tests.Writers.LaTeX
36import qualified Tests.Writers.Markdown
37import qualified Tests.Writers.Muse
38import qualified Tests.Writers.Native
39import qualified Tests.Writers.Org
40import qualified Tests.Writers.Plain
41import qualified Tests.Writers.Powerpoint
42import qualified Tests.Writers.RST
43import qualified Tests.Writers.TEI
44import Tests.Helpers (findPandoc)
45import Text.Pandoc.Shared (inDirectory)
47tests :: FilePath -> TestTree
48tests pandocPath = testGroup "pandoc tests"
49 [ Tests.Command.tests pandocPath
50 , testGroup "Old" (Tests.Old.tests pandocPath)
51 , testGroup "Shared" Tests.Shared.tests
52 , testGroup "Writers"
53 [ testGroup "Native" Tests.Writers.Native.tests
54 , testGroup "ConTeXt" Tests.Writers.ConTeXt.tests
55 , testGroup "LaTeX" Tests.Writers.LaTeX.tests
56 , testGroup "HTML" Tests.Writers.HTML.tests
57 , testGroup "JATS" Tests.Writers.JATS.tests
58 , testGroup "Docbook" Tests.Writers.Docbook.tests
59 , testGroup "Markdown" Tests.Writers.Markdown.tests
60 , testGroup "Org" Tests.Writers.Org.tests
61 , testGroup "Plain" Tests.Writers.Plain.tests
62 , testGroup "AsciiDoc" Tests.Writers.AsciiDoc.tests
63 , testGroup "Docx" Tests.Writers.Docx.tests
64 , testGroup "RST" Tests.Writers.RST.tests
65 , testGroup "TEI" Tests.Writers.TEI.tests
66 , testGroup "Muse" Tests.Writers.Muse.tests
67 , testGroup "FB2" Tests.Writers.FB2.tests
68 , testGroup "PowerPoint" Tests.Writers.Powerpoint.tests
69 ]
70 , testGroup "Readers"
71 [ testGroup "LaTeX" Tests.Readers.LaTeX.tests
72 , testGroup "Markdown" Tests.Readers.Markdown.tests
73 , testGroup "HTML" Tests.Readers.HTML.tests
74 , testGroup "JATS" Tests.Readers.JATS.tests
75 , testGroup "Org" Tests.Readers.Org.tests
76 , testGroup "RST" Tests.Readers.RST.tests
77 , testGroup "Docx" Tests.Readers.Docx.tests
78 , testGroup "Odt" Tests.Readers.Odt.tests
79 , testGroup "Txt2Tags" Tests.Readers.Txt2Tags.tests
80 , testGroup "EPUB" Tests.Readers.EPUB.tests
81 , testGroup "Muse" Tests.Readers.Muse.tests
82 , testGroup "Creole" Tests.Readers.Creole.tests
83 , testGroup "Man" Tests.Readers.Man.tests
84 , testGroup "FB2" Tests.Readers.FB2.tests
85 , testGroup "DokuWiki" Tests.Readers.DokuWiki.tests
86 ]
87 , testGroup "Lua filters" Tests.Lua.tests
88 ]
90main :: IO ()
91main = do
92 setLocaleEncoding utf8
93 inDirectory "test" $ do
94 fp <- findPandoc
95 putStrLn $ "Using pandoc executable at " ++ fp
96 defaultMain $ tests fp