git.iko.soy/typeable/pandoc
on rc/test4 help sign in
typeable/pandoc/test/test-pandoc.hs
108 lines 4.3 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.Lua.Module
12import qualified Tests.Old
13import qualified Tests.Readers.Creole
14import qualified Tests.Readers.Docx
15import qualified Tests.Readers.DokuWiki
16import qualified Tests.Readers.EPUB
17import qualified Tests.Readers.FB2
18import qualified Tests.Readers.HTML
19import qualified Tests.Readers.JATS
20import qualified Tests.Readers.Jira
21import qualified Tests.Readers.LaTeX
22import qualified Tests.Readers.Markdown
23import qualified Tests.Readers.Muse
24import qualified Tests.Readers.Odt
25import qualified Tests.Readers.Org
26import qualified Tests.Readers.RST
27import qualified Tests.Readers.Txt2Tags
28import qualified Tests.Readers.Man
29import qualified Tests.Shared
30import qualified Tests.Writers.AsciiDoc
31import qualified Tests.Writers.ConTeXt
32import qualified Tests.Writers.Docbook
33import qualified Tests.Writers.Docx
34import qualified Tests.Writers.FB2
35import qualified Tests.Writers.HTML
36import qualified Tests.Writers.JATS
37import qualified Tests.Writers.Jira
38import qualified Tests.Writers.LaTeX
39import qualified Tests.Writers.Markdown
40import qualified Tests.Writers.Ms
41import qualified Tests.Writers.Muse
42import qualified Tests.Writers.Native
43import qualified Tests.Writers.Org
44import qualified Tests.Writers.Plain
45import qualified Tests.Writers.Powerpoint
46import qualified Tests.Writers.RST
47import qualified Tests.Writers.AnnotatedTable
48import qualified Tests.Writers.TEI
49import Tests.Helpers (findPandoc)
50import Text.Pandoc.Shared (inDirectory)
52tests :: FilePath -> TestTree
53tests pandocPath = testGroup "pandoc tests"
54 [ Tests.Command.tests pandocPath
55 , testGroup "Old" (Tests.Old.tests pandocPath)
56 , testGroup "Shared" Tests.Shared.tests
57 , testGroup "Writers"
58 [ testGroup "Native" Tests.Writers.Native.tests
59 , testGroup "ConTeXt" Tests.Writers.ConTeXt.tests
60 , testGroup "LaTeX" Tests.Writers.LaTeX.tests
61 , testGroup "HTML" Tests.Writers.HTML.tests
62 , testGroup "JATS" Tests.Writers.JATS.tests
63 , testGroup "Jira" Tests.Writers.Jira.tests
64 , testGroup "Docbook" Tests.Writers.Docbook.tests
65 , testGroup "Markdown" Tests.Writers.Markdown.tests
66 , testGroup "Org" Tests.Writers.Org.tests
67 , testGroup "Plain" Tests.Writers.Plain.tests
68 , testGroup "AsciiDoc" Tests.Writers.AsciiDoc.tests
69 , testGroup "Docx" Tests.Writers.Docx.tests
70 , testGroup "RST" Tests.Writers.RST.tests
71 , testGroup "TEI" Tests.Writers.TEI.tests
72 , testGroup "Muse" Tests.Writers.Muse.tests
73 , testGroup "FB2" Tests.Writers.FB2.tests
74 , testGroup "PowerPoint" Tests.Writers.Powerpoint.tests
75 , testGroup "Ms" Tests.Writers.Ms.tests
76 , testGroup "AnnotatedTable" Tests.Writers.AnnotatedTable.tests
77 ]
78 , testGroup "Readers"
79 [ testGroup "LaTeX" Tests.Readers.LaTeX.tests
80 , testGroup "Markdown" Tests.Readers.Markdown.tests
81 , testGroup "HTML" Tests.Readers.HTML.tests
82 , testGroup "JATS" Tests.Readers.JATS.tests
83 , testGroup "Jira" Tests.Readers.Jira.tests
84 , testGroup "Org" Tests.Readers.Org.tests
85 , testGroup "RST" Tests.Readers.RST.tests
86 , testGroup "Docx" Tests.Readers.Docx.tests
87 , testGroup "Odt" Tests.Readers.Odt.tests
88 , testGroup "Txt2Tags" Tests.Readers.Txt2Tags.tests
89 , testGroup "EPUB" Tests.Readers.EPUB.tests
90 , testGroup "Muse" Tests.Readers.Muse.tests
91 , testGroup "Creole" Tests.Readers.Creole.tests
92 , testGroup "Man" Tests.Readers.Man.tests
93 , testGroup "FB2" Tests.Readers.FB2.tests
94 , testGroup "DokuWiki" Tests.Readers.DokuWiki.tests
95 ]
96 , testGroup "Lua"
97 [ testGroup "Lua filters" Tests.Lua.tests
98 , testGroup "Lua modules" Tests.Lua.Module.tests
99 ]
100 ]
102main :: IO ()
103main = do
104 setLocaleEncoding utf8
105 inDirectory "test" $ do
106 fp <- findPandoc
107 putStrLn $ "Using pandoc executable at " ++ fp
108 defaultMain $ tests fp