From e06810499e69b23f08fc1f8fb7e774e7b11be713 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 13 May 2015 20:39:01 -0700 Subject: HTML reader: Support base tag. 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. --- tests/Tests/Readers/HTML.hs | 27 +++++++++++++++++++++++++++ tests/test-pandoc.hs | 2 ++ 2 files changed, 29 insertions(+) create mode 100644 tests/Tests/Readers/HTML.hs (limited to 'tests') diff --git a/tests/Tests/Readers/HTML.hs b/tests/Tests/Readers/HTML.hs new file mode 100644 index 000000000..2eb87a2f3 --- /dev/null +++ b/tests/Tests/Readers/HTML.hs @@ -0,0 +1,27 @@ +{-# LANGUAGE OverloadedStrings #-} +module Tests.Readers.HTML (tests) where + +import Text.Pandoc.Definition +import Test.Framework +import Tests.Helpers +import Tests.Arbitrary() +import Text.Pandoc.Builder +import Text.Pandoc +import Text.Pandoc.Error + +html :: String -> Pandoc +html = handleError . readHtml def + +tests :: [Test] +tests = [ testGroup "base tag" + [ test html "simple" $ + " $\"Stickman\"$ " =?> + plain (image "http://www.w3schools.com/images/stickman.gif" "" (text "Stickman")) + , test html "slash at end of base" $ + " $\"Stickman\"$ " =?> + plain (image "http://www.w3schools.com/images/stickman.gif" "" (text "Stickman")) + , test html "absolute URL" $ + " $\"Stickman\"$ " =?> + plain (image "http://example.com/stickman.gif" "" (text "Stickman")) + ] + ] diff --git a/tests/test-pandoc.hs b/tests/test-pandoc.hs index 805bad414..9bc26416f 100644 --- a/tests/test-pandoc.hs +++ b/tests/test-pandoc.hs @@ -8,6 +8,7 @@ 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 @@ -46,6 +47,7 @@ tests = [ testGroup "Old" Tests.Old.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 -- cgit v1.2.3