git.iko.soy/typeable/pandoc
on rc/2.9.1.1 help sign in
typeable/pandoc/test/test-pandoc.hs
102 lines 4.0 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.LaTeX
38import qualified Tests.Writers.Markdown
39import qualified Tests.Writers.Muse
40import qualified Tests.Writers.Native
41import qualified Tests.Writers.Org
42import qualified Tests.Writers.Plain
43import qualified Tests.Writers.Powerpoint
44import qualified Tests.Writers.RST
45import qualified Tests.Writers.TEI
46import Tests.Helpers (findPandoc)
47import Text.Pandoc.Shared (inDirectory)
49tests :: FilePath -> TestTree
50tests pandocPath = testGroup "pandoc tests"
51 [ Tests.Command.tests pandocPath
52 , testGroup "Old" (Tests.Old.tests pandocPath)
53 , testGroup "Shared" Tests.Shared.tests
54 , testGroup "Writers"
55 [ testGroup "Native" Tests.Writers.Native.tests
56 , testGroup "ConTeXt" Tests.Writers.ConTeXt.tests
57 , testGroup "LaTeX" Tests.Writers.LaTeX.tests
58 , testGroup "HTML" Tests.Writers.HTML.tests
59 , testGroup "JATS" Tests.Writers.JATS.tests
60 , testGroup "Docbook" Tests.Writers.Docbook.tests
61 , testGroup "Markdown" Tests.Writers.Markdown.tests
62 , testGroup "Org" Tests.Writers.Org.tests
63 , testGroup "Plain" Tests.Writers.Plain.tests
64 , testGroup "AsciiDoc" Tests.Writers.AsciiDoc.tests
65 , testGroup "Docx" Tests.Writers.Docx.tests
66 , testGroup "RST" Tests.Writers.RST.tests
67 , testGroup "TEI" Tests.Writers.TEI.tests
68 , testGroup "Muse" Tests.Writers.Muse.tests
69 , testGroup "FB2" Tests.Writers.FB2.tests
70 , testGroup "PowerPoint" Tests.Writers.Powerpoint.tests
71 ]
72 , testGroup "Readers"
73 [ testGroup "LaTeX" Tests.Readers.LaTeX.tests
74 , testGroup "Markdown" Tests.Readers.Markdown.tests
75 , testGroup "HTML" Tests.Readers.HTML.tests
76 , testGroup "JATS" Tests.Readers.JATS.tests
77 , testGroup "Jira" Tests.Readers.Jira.tests
78 , testGroup "Org" Tests.Readers.Org.tests
79 , testGroup "RST" Tests.Readers.RST.tests
80 , testGroup "Docx" Tests.Readers.Docx.tests
81 , testGroup "Odt" Tests.Readers.Odt.tests
82 , testGroup "Txt2Tags" Tests.Readers.Txt2Tags.tests
83 , testGroup "EPUB" Tests.Readers.EPUB.tests
84 , testGroup "Muse" Tests.Readers.Muse.tests
85 , testGroup "Creole" Tests.Readers.Creole.tests
86 , testGroup "Man" Tests.Readers.Man.tests
87 , testGroup "FB2" Tests.Readers.FB2.tests
88 , testGroup "DokuWiki" Tests.Readers.DokuWiki.tests
89 ]
90 , testGroup "Lua"
91 [ testGroup "Lua filters" Tests.Lua.tests
92 , testGroup "Lua modules" Tests.Lua.Module.tests
93 ]
94 ]
96main :: IO ()
97main = do
98 setLocaleEncoding utf8
99 inDirectory "test" $ do
100 fp <- findPandoc
101 putStrLn $ "Using pandoc executable at " ++ fp
102 defaultMain $ tests fp