pandoc/test/test-pandoc.hs

66 lines
2.4 KiB
Haskell
Raw Normal View History

{-# OPTIONS_GHC -Wall #-}
module Main where
import Test.Framework
import GHC.IO.Encoding
2011-01-12 19:10:56 +01:00
import qualified Tests.Old
import qualified Tests.Readers.LaTeX
2011-01-27 07:09:09 +01:00
import qualified Tests.Readers.Markdown
import qualified Tests.Readers.Org
import qualified Tests.Readers.HTML
2011-01-26 18:10:39 +01:00
import qualified Tests.Readers.RST
import qualified Tests.Readers.Docx
import qualified Tests.Readers.Odt
2014-07-25 21:39:13 +02:00
import qualified Tests.Readers.Txt2Tags
import qualified Tests.Readers.EPUB
import qualified Tests.Writers.ConTeXt
import qualified Tests.Writers.LaTeX
import qualified Tests.Writers.HTML
import qualified Tests.Writers.Docbook
2011-01-22 21:28:30 +01:00
import qualified Tests.Writers.Native
import qualified Tests.Writers.Markdown
import qualified Tests.Writers.Plain
import qualified Tests.Writers.AsciiDoc
2015-03-03 12:37:02 +01:00
import qualified Tests.Writers.Docx
import qualified Tests.Writers.RST
2015-12-24 17:36:58 +01:00
import qualified Tests.Writers.TEI
import qualified Tests.Shared
import Text.Pandoc.Shared (inDirectory)
2014-08-13 21:19:42 +02:00
import System.Environment (getArgs)
tests :: [Test]
2011-01-12 19:10:56 +01:00
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
, 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