diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-05-13 20:39:01 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-05-13 20:53:19 -0700 |
| commit | e06810499e69b23f08fc1f8fb7e774e7b11be713 (patch) | |
| tree | 917f1d47d7b0f3f6ee8987455273dce4ed7ca2c4 /tests/Tests/Readers | |
| parent | 75cfa7b4624bfbf06c8a47761620bd756ddab254 (diff) | |
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.
Diffstat (limited to 'tests/Tests/Readers')
| -rw-r--r-- | tests/Tests/Readers/HTML.hs | 27 |
1 files changed, 27 insertions, 0 deletions
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" $ + "<head><base href=\"http://www.w3schools.com/images\" ></head><body><img src=\"stickman.gif\" alt=\"Stickman\"></head>" =?> + plain (image "http://www.w3schools.com/images/stickman.gif" "" (text "Stickman")) + , test html "slash at end of base" $ + "<head><base href=\"http://www.w3schools.com/images/\" ></head><body><img src=\"stickman.gif\" alt=\"Stickman\"></head>" =?> + plain (image "http://www.w3schools.com/images/stickman.gif" "" (text "Stickman")) + , test html "absolute URL" $ + "<head><base href=\"http://www.w3schools.com/images/\" ></head><body><img src=\"http://example.com/stickman.gif\" alt=\"Stickman\"></head>" =?> + plain (image "http://example.com/stickman.gif" "" (text "Stickman")) + ] + ] |