e06810499e
We only support the href attribute, as there's no place for "target" in the Pandoc document model for links. Added HTML reader test module, with tests for this feature. Closes #1751.
63 lines
2.3 KiB
Haskell
63 lines
2.3 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.HTML
|
|
import qualified Tests.Readers.RST
|
|
import qualified Tests.Readers.Docx
|
|
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
|
|
import qualified Tests.Writers.Native
|
|
import qualified Tests.Writers.Markdown
|
|
import qualified Tests.Writers.Plain
|
|
import qualified Tests.Writers.AsciiDoc
|
|
import qualified Tests.Writers.Docx
|
|
import qualified Tests.Writers.RST
|
|
import qualified Tests.Shared
|
|
import qualified Tests.Walk
|
|
import Text.Pandoc.Shared (inDirectory)
|
|
import System.Environment (getArgs)
|
|
|
|
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 "Plain" Tests.Writers.Plain.tests
|
|
, testGroup "AsciiDoc" Tests.Writers.AsciiDoc.tests
|
|
, testGroup "Docx" Tests.Writers.Docx.tests
|
|
, testGroup "RST" Tests.Writers.RST.tests
|
|
]
|
|
, testGroup "Readers"
|
|
[ testGroup "LaTeX" Tests.Readers.LaTeX.tests
|
|
, testGroup "Markdown" Tests.Readers.Markdown.tests
|
|
, testGroup "HTML" Tests.Readers.HTML.tests
|
|
, testGroup "Org" Tests.Readers.Org.tests
|
|
, testGroup "RST" Tests.Readers.RST.tests
|
|
, testGroup "Docx" Tests.Readers.Docx.tests
|
|
, testGroup "Txt2Tags" Tests.Readers.Txt2Tags.tests
|
|
, testGroup "EPUB" Tests.Readers.EPUB.tests
|
|
]
|
|
]
|
|
|
|
main :: IO ()
|
|
main = do
|
|
setLocaleEncoding utf8
|
|
args <- getArgs
|
|
inDirectory "tests" $ defaultMainWithArgs tests args
|