git.iko.soy/typeable/pandoc
on 1.15.0.3 help sign in
typeable/pandoc/tests/test-pandoc.hs
63 lines 2.3 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.Txt2Tags
15import qualified Tests.Readers.EPUB
16import qualified Tests.Writers.ConTeXt
17import qualified Tests.Writers.LaTeX
18import qualified Tests.Writers.HTML
19import qualified Tests.Writers.Docbook
20import qualified Tests.Writers.Native
21import qualified Tests.Writers.Markdown
22import qualified Tests.Writers.Plain
23import qualified Tests.Writers.AsciiDoc
24import qualified Tests.Writers.Docx
25import qualified Tests.Writers.RST
26import qualified Tests.Shared
27import qualified Tests.Walk
28import Text.Pandoc.Shared (inDirectory)
29import System.Environment (getArgs)
31tests :: [Test]
32tests = [ testGroup "Old" Tests.Old.tests
33 , testGroup "Shared" Tests.Shared.tests
34 , testGroup "Walk" Tests.Walk.tests
35 , testGroup "Writers"
36 [ testGroup "Native" Tests.Writers.Native.tests
37 , testGroup "ConTeXt" Tests.Writers.ConTeXt.tests
38 , testGroup "LaTeX" Tests.Writers.LaTeX.tests
39 , testGroup "HTML" Tests.Writers.HTML.tests
40 , testGroup "Docbook" Tests.Writers.Docbook.tests
41 , testGroup "Markdown" Tests.Writers.Markdown.tests
42 , testGroup "Plain" Tests.Writers.Plain.tests
43 , testGroup "AsciiDoc" Tests.Writers.AsciiDoc.tests
44 , testGroup "Docx" Tests.Writers.Docx.tests
45 , testGroup "RST" Tests.Writers.RST.tests
46 ]
47 , testGroup "Readers"
48 [ testGroup "LaTeX" Tests.Readers.LaTeX.tests
49 , testGroup "Markdown" Tests.Readers.Markdown.tests
50 , testGroup "HTML" Tests.Readers.HTML.tests
51 , testGroup "Org" Tests.Readers.Org.tests
52 , testGroup "RST" Tests.Readers.RST.tests
53 , testGroup "Docx" Tests.Readers.Docx.tests
54 , testGroup "Txt2Tags" Tests.Readers.Txt2Tags.tests
55 , testGroup "EPUB" Tests.Readers.EPUB.tests
56 ]
57 ]
59main :: IO ()
60main = do
61 setLocaleEncoding utf8
62 args <- getArgs
63 inDirectory "tests" $ defaultMainWithArgs tests args