git.iko.soy/typeable/pandoc
on 1.15.2.1 help sign in
typeable/pandoc/tests/test-pandoc.hs
65 lines 2.4 kB history raw
1{-# OPTIONS_GHC -Wall #-}
3module Main where
5import Test.Framework
6import GHC.IO.Encoding
7import qualified Tests.Old
8import qualified Tests.Readers.LaTeX
9import qualified Tests.Readers.Markdown
10import qualified Tests.Readers.Org
11import qualified Tests.Readers.HTML
12import qualified Tests.Readers.RST
13import qualified Tests.Readers.Docx
14import qualified Tests.Readers.Odt
15import qualified Tests.Readers.Txt2Tags
16import qualified Tests.Readers.EPUB
17import qualified Tests.Writers.ConTeXt
18import qualified Tests.Writers.LaTeX
19import qualified Tests.Writers.HTML
20import qualified Tests.Writers.Docbook
21import qualified Tests.Writers.Native
22import qualified Tests.Writers.Markdown
23import qualified Tests.Writers.Plain
24import qualified Tests.Writers.AsciiDoc
25import qualified Tests.Writers.Docx
26import qualified Tests.Writers.RST
27import qualified Tests.Shared
28import qualified Tests.Walk
29import Text.Pandoc.Shared (inDirectory)
30import System.Environment (getArgs)
32tests :: [Test]
33tests = [ testGroup "Old" Tests.Old.tests
34 , testGroup "Shared" Tests.Shared.tests
35 , testGroup "Walk" Tests.Walk.tests
36 , testGroup "Writers"
37 [ testGroup "Native" Tests.Writers.Native.tests
38 , testGroup "ConTeXt" Tests.Writers.ConTeXt.tests
39 , testGroup "LaTeX" Tests.Writers.LaTeX.tests
40 , testGroup "HTML" Tests.Writers.HTML.tests
41 , testGroup "Docbook" Tests.Writers.Docbook.tests
42 , testGroup "Markdown" Tests.Writers.Markdown.tests
43 , testGroup "Plain" Tests.Writers.Plain.tests
44 , testGroup "AsciiDoc" Tests.Writers.AsciiDoc.tests
45 , testGroup "Docx" Tests.Writers.Docx.tests
46 , testGroup "RST" Tests.Writers.RST.tests
47 ]
48 , testGroup "Readers"
49 [ testGroup "LaTeX" Tests.Readers.LaTeX.tests
50 , testGroup "Markdown" Tests.Readers.Markdown.tests
51 , testGroup "HTML" Tests.Readers.HTML.tests
52 , testGroup "Org" Tests.Readers.Org.tests
53 , testGroup "RST" Tests.Readers.RST.tests
54 , testGroup "Docx" Tests.Readers.Docx.tests
55 , testGroup "Odt" Tests.Readers.Odt.tests
56 , testGroup "Txt2Tags" Tests.Readers.Txt2Tags.tests
57 , testGroup "EPUB" Tests.Readers.EPUB.tests
58 ]
59 ]
61main :: IO ()
62main = do
63 setLocaleEncoding utf8
64 args <- getArgs
65 inDirectory "tests" $ defaultMainWithArgs tests args