git.iko.soy/typeable/pandoc
on lowmem help sign in
typeable/pandoc/test/test-pandoc.hs
119 lines 4.7 kB history raw
1{-# OPTIONS_GHC -Wall #-}
3module Main where
5import System.Environment (getArgs)
6import qualified Control.Exception as E
7import Text.Pandoc.App (convertWithOpts, defaultOpts, options,
8 parseOptionsFromArgs)
9import Text.Pandoc.Error (handleError)
10import System.Environment.Executable (getExecutablePath)
11import GHC.IO.Encoding
12import Test.Tasty
13import qualified Tests.Command
14import qualified Tests.Lua
15import qualified Tests.Lua.Module
16import qualified Tests.Old
17import qualified Tests.Readers.Creole
18import qualified Tests.Readers.Docx
19import qualified Tests.Readers.DokuWiki
20import qualified Tests.Readers.EPUB
21import qualified Tests.Readers.FB2
22import qualified Tests.Readers.HTML
23import qualified Tests.Readers.JATS
24import qualified Tests.Readers.Jira
25import qualified Tests.Readers.LaTeX
26import qualified Tests.Readers.Markdown
27import qualified Tests.Readers.Muse
28import qualified Tests.Readers.Odt
29import qualified Tests.Readers.Org
30import qualified Tests.Readers.RST
31import qualified Tests.Readers.Txt2Tags
32import qualified Tests.Readers.Man
33import qualified Tests.Shared
34import qualified Tests.Writers.AsciiDoc
35import qualified Tests.Writers.ConTeXt
36import qualified Tests.Writers.Docbook
37import qualified Tests.Writers.Docx
38import qualified Tests.Writers.FB2
39import qualified Tests.Writers.HTML
40import qualified Tests.Writers.JATS
41import qualified Tests.Writers.Jira
42import qualified Tests.Writers.LaTeX
43import qualified Tests.Writers.Markdown
44import qualified Tests.Writers.Ms
45import qualified Tests.Writers.Muse
46import qualified Tests.Writers.Native
47import qualified Tests.Writers.Org
48import qualified Tests.Writers.Plain
49import qualified Tests.Writers.Powerpoint
50import qualified Tests.Writers.RST
51import qualified Tests.Writers.AnnotatedTable
52import qualified Tests.Writers.TEI
53import Text.Pandoc.Shared (inDirectory)
55tests :: FilePath -> TestTree
56tests pandocPath = testGroup "pandoc tests"
57 [ Tests.Command.tests
58 , testGroup "Old" (Tests.Old.tests pandocPath)
59 , testGroup "Shared" Tests.Shared.tests
60 , testGroup "Writers"
61 [ testGroup "Native" Tests.Writers.Native.tests
62 , testGroup "ConTeXt" Tests.Writers.ConTeXt.tests
63 , testGroup "LaTeX" Tests.Writers.LaTeX.tests
64 , testGroup "HTML" Tests.Writers.HTML.tests
65 , testGroup "JATS" Tests.Writers.JATS.tests
66 , testGroup "Jira" Tests.Writers.Jira.tests
67 , testGroup "Docbook" Tests.Writers.Docbook.tests
68 , testGroup "Markdown" Tests.Writers.Markdown.tests
69 , testGroup "Org" Tests.Writers.Org.tests
70 , testGroup "Plain" Tests.Writers.Plain.tests
71 , testGroup "AsciiDoc" Tests.Writers.AsciiDoc.tests
72 , testGroup "Docx" Tests.Writers.Docx.tests
73 , testGroup "RST" Tests.Writers.RST.tests
74 , testGroup "TEI" Tests.Writers.TEI.tests
75 , testGroup "Muse" Tests.Writers.Muse.tests
76 , testGroup "FB2" Tests.Writers.FB2.tests
77 , testGroup "PowerPoint" Tests.Writers.Powerpoint.tests
78 , testGroup "Ms" Tests.Writers.Ms.tests
79 , testGroup "AnnotatedTable" Tests.Writers.AnnotatedTable.tests
80 ]
81 , testGroup "Readers"
82 [ testGroup "LaTeX" Tests.Readers.LaTeX.tests
83 , testGroup "Markdown" Tests.Readers.Markdown.tests
84 , testGroup "HTML" Tests.Readers.HTML.tests
85 , testGroup "JATS" Tests.Readers.JATS.tests
86 , testGroup "Jira" Tests.Readers.Jira.tests
87 , testGroup "Org" Tests.Readers.Org.tests
88 , testGroup "RST" Tests.Readers.RST.tests
89 , testGroup "Docx" Tests.Readers.Docx.tests
90 , testGroup "Odt" Tests.Readers.Odt.tests
91 , testGroup "Txt2Tags" Tests.Readers.Txt2Tags.tests
92 , testGroup "EPUB" Tests.Readers.EPUB.tests
93 , testGroup "Muse" Tests.Readers.Muse.tests
94 , testGroup "Creole" Tests.Readers.Creole.tests
95 , testGroup "Man" Tests.Readers.Man.tests
96 , testGroup "FB2" Tests.Readers.FB2.tests
97 , testGroup "DokuWiki" Tests.Readers.DokuWiki.tests
98 ]
99 , testGroup "Lua"
100 [ testGroup "Lua filters" Tests.Lua.tests
101 , testGroup "Lua modules" Tests.Lua.Module.tests
102 ]
103 ]
105main :: IO ()
106main = do
107 setLocaleEncoding utf8
108 args <- getArgs
109 case args of
110 "--emulate":args' -> -- emulate pandoc executable
111 E.catch
112 (parseOptionsFromArgs options defaultOpts "pandoc" args' >>=
113 convertWithOpts)
114 (handleError . Left)
115 _ -> inDirectory "test" $ do
116 fp <- getExecutablePath
117 -- putStrLn $ "Using pandoc executable at " ++ fp
118 defaultMain $ tests fp