f22ce4ff28
These are primarily aimed at testing the new treatment of line breaks, but hopefully other tests can be added more easily now as features and changes are implemented in the writer. Adapted from Tests.Writers.HTML.tests.
48 lines
1.6 KiB
Haskell
48 lines
1.6 KiB
Haskell
{-# OPTIONS_GHC -Wall #-}
|
|
|
|
module Main where
|
|
|
|
import Test.Framework
|
|
import GHC.IO.Encoding
|
|
import qualified Tests.Old
|
|
import qualified Tests.Readers.LaTeX
|
|
import qualified Tests.Readers.Markdown
|
|
import qualified Tests.Readers.Org
|
|
import qualified Tests.Readers.RST
|
|
import qualified Tests.Writers.ConTeXt
|
|
import qualified Tests.Writers.LaTeX
|
|
import qualified Tests.Writers.HTML
|
|
import qualified Tests.Writers.Docbook
|
|
import qualified Tests.Writers.Native
|
|
import qualified Tests.Writers.Markdown
|
|
import qualified Tests.Shared
|
|
import qualified Tests.Walk
|
|
import Text.Pandoc.Shared (inDirectory)
|
|
|
|
tests :: [Test]
|
|
tests = [ testGroup "Old" Tests.Old.tests
|
|
, testGroup "Shared" Tests.Shared.tests
|
|
, testGroup "Walk" Tests.Walk.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 "Readers"
|
|
[ testGroup "LaTeX" Tests.Readers.LaTeX.tests
|
|
, testGroup "Markdown" Tests.Readers.Markdown.tests
|
|
, testGroup "Org" Tests.Readers.Org.tests
|
|
, testGroup "RST" Tests.Readers.RST.tests
|
|
]
|
|
]
|
|
|
|
main :: IO ()
|
|
main = do
|
|
setLocaleEncoding utf8
|
|
-- we ignore command-line arguments, since we're having cabal pass
|
|
-- the build directory as first argument, and we don't want test-framework
|
|
-- to choke on that.
|
|
inDirectory "tests" $ defaultMainWithArgs tests []
|