pandoc/test/test-pandoc.hs

70 lines
2.5 KiB
Haskell
Raw Normal View History

{-# OPTIONS_GHC -Wall #-}
module Main where
import GHC.IO.Encoding
import System.Environment (getArgs)
import Test.Framework
2017-02-04 17:38:03 +01:00
import qualified Tests.Command
import qualified Tests.Old
import qualified Tests.Readers.Docx
import qualified Tests.Readers.EPUB
import qualified Tests.Readers.HTML
2011-01-12 19:10:56 +01:00
import qualified Tests.Readers.LaTeX
2011-01-27 07:09:09 +01:00
import qualified Tests.Readers.Markdown
import qualified Tests.Readers.Odt
import qualified Tests.Readers.Org
2011-01-26 18:10:39 +01:00
import qualified Tests.Readers.RST
2014-07-25 21:39:13 +02:00
import qualified Tests.Readers.Txt2Tags
import qualified Tests.Shared
import qualified Tests.Writers.AsciiDoc
import qualified Tests.Writers.ConTeXt
import qualified Tests.Writers.Docbook
import qualified Tests.Writers.Docx
import qualified Tests.Writers.HTML
import qualified Tests.Writers.LaTeX
import qualified Tests.Writers.Markdown
import qualified Tests.Writers.Native
2017-02-12 15:09:07 +01:00
import qualified Tests.Writers.Org
import qualified Tests.Writers.Plain
import qualified Tests.Writers.RST
2015-12-24 17:36:58 +01:00
import qualified Tests.Writers.TEI
import Text.Pandoc.Shared (inDirectory)
tests :: [Test]
tests = [ Tests.Command.tests
, testGroup "Old" Tests.Old.tests
, testGroup "Shared" Tests.Shared.tests
, testGroup "Writers"
[ testGroup "Native" Tests.Writers.Native.tests
, testGroup "ConTeXt" Tests.Writers.ConTeXt.tests
, testGroup "LaTeX" Tests.Writers.LaTeX.tests
, testGroup "HTML" Tests.Writers.HTML.tests
, testGroup "Docbook" Tests.Writers.Docbook.tests
, testGroup "Markdown" Tests.Writers.Markdown.tests
2017-02-12 15:09:07 +01:00
, testGroup "Org" Tests.Writers.Org.tests
, testGroup "Plain" Tests.Writers.Plain.tests
, testGroup "AsciiDoc" Tests.Writers.AsciiDoc.tests
2015-03-03 12:37:02 +01:00
, testGroup "Docx" Tests.Writers.Docx.tests
, testGroup "RST" Tests.Writers.RST.tests
2015-12-24 17:36:58 +01:00
, testGroup "TEI" Tests.Writers.TEI.tests
]
, testGroup "Readers"
[ testGroup "LaTeX" Tests.Readers.LaTeX.tests
2011-01-27 07:09:09 +01:00
, testGroup "Markdown" Tests.Readers.Markdown.tests
, testGroup "HTML" Tests.Readers.HTML.tests
, testGroup "Org" Tests.Readers.Org.tests
2011-01-26 18:10:39 +01:00
, testGroup "RST" Tests.Readers.RST.tests
, testGroup "Docx" Tests.Readers.Docx.tests
, testGroup "Odt" Tests.Readers.Odt.tests
2014-07-25 21:39:13 +02:00
, testGroup "Txt2Tags" Tests.Readers.Txt2Tags.tests
, testGroup "EPUB" Tests.Readers.EPUB.tests
]
]
main :: IO ()
main = do
setLocaleEncoding utf8
2014-08-13 21:19:42 +02:00
args <- getArgs
2017-02-04 12:56:30 +01:00
inDirectory "test" $ defaultMainWithArgs tests args