git.iko.soy/typeable/pandoc
on 1.17.0.3 help sign in
typeable/pandoc/tests/test-pandoc.hs
67 lines 2.5 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.Writers.TEI
28import qualified Tests.Shared
29import qualified Tests.Walk
30import Text.Pandoc.Shared (inDirectory)
31import System.Environment (getArgs)
33tests :: [Test]
34tests = [ testGroup "Old" Tests.Old.tests
35 , testGroup "Shared" Tests.Shared.tests
36 , testGroup "Walk" Tests.Walk.tests
37 , testGroup "Writers"
38 [ testGroup "Native" Tests.Writers.Native.tests
39 , testGroup "ConTeXt" Tests.Writers.ConTeXt.tests
40 , testGroup "LaTeX" Tests.Writers.LaTeX.tests
41 , testGroup "HTML" Tests.Writers.HTML.tests
42 , testGroup "Docbook" Tests.Writers.Docbook.tests
43 , testGroup "Markdown" Tests.Writers.Markdown.tests
44 , testGroup "Plain" Tests.Writers.Plain.tests
45 , testGroup "AsciiDoc" Tests.Writers.AsciiDoc.tests
46 , testGroup "Docx" Tests.Writers.Docx.tests
47 , testGroup "RST" Tests.Writers.RST.tests
48 , testGroup "TEI" Tests.Writers.TEI.tests
49 ]
50 , testGroup "Readers"
51 [ testGroup "LaTeX" Tests.Readers.LaTeX.tests
52 , testGroup "Markdown" Tests.Readers.Markdown.tests
53 , testGroup "HTML" Tests.Readers.HTML.tests
54 , testGroup "Org" Tests.Readers.Org.tests
55 , testGroup "RST" Tests.Readers.RST.tests
56 , testGroup "Docx" Tests.Readers.Docx.tests
57 , testGroup "Odt" Tests.Readers.Odt.tests
58 , testGroup "Txt2Tags" Tests.Readers.Txt2Tags.tests
59 , testGroup "EPUB" Tests.Readers.EPUB.tests
60 ]
61 ]
63main :: IO ()
64main = do
65 setLocaleEncoding utf8
66 args <- getArgs
67 inDirectory "tests" $ defaultMainWithArgs tests args