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