Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1
pandoc/test/Tests/Readers/HTML.hs

40 lines
2 KiB
Haskell
Raw Normal View History

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.
2015-05-13 20:39:01 -07:00
{-# LANGUAGE OverloadedStrings #-}
module Tests.Readers.HTML (tests) where
Use tasty for tests rather than test-framework.
2017-03-14 17:05:36 +01:00
import Test.Tasty
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.
2015-05-13 20:39:01 -07:00
import Tests.Helpers
import Text.Pandoc
Stylish-haskell automatic formatting changes.
2017-03-04 13:03:41 +01:00
import Text.Pandoc.Arbitrary ()
import Text.Pandoc.Builder
Changed all readers to take Text instead of String. Readers: Renamed StringReader -> TextReader. Updated tests. API change.
2017-06-10 18:26:44 +02:00
import Data.Text (Text)
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.
2015-05-13 20:39:01 -07:00
Changed all readers to take Text instead of String. Readers: Renamed StringReader -> TextReader. Updated tests. API change.
2017-06-10 18:26:44 +02:00
html :: Text -> Pandoc
Update all tests to use new readers and error structure.
2016-12-01 12:47:05 -05:00
html = purely $ readHtml def
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.
2015-05-13 20:39:01 -07:00
Use tasty for tests rather than test-framework.
2017-03-14 17:05:36 +01:00
tests :: [TestTree]
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.
2015-05-13 20:39:01 -07:00
tests = [ testGroup "base tag"
[ test html "simple" $
Fixed behavior of base tag. + If the base path does not end with slash, the last component will be replaced. E.g. base = `http://example.com/foo` combines with `bar.html` to give `http://example.com/bar.html`. + If the href begins with a slash, the whole path of the base is replaced. E.g. base = `http://example.com/foo/` combines with `/bar.html` to give `http://example.com/bar.html`. Closes #2777.
2016-03-10 19:59:55 -08:00
"<head><base href=\"http://www.w3schools.com/images/foo\" ></head><body><img src=\"stickman.gif\" alt=\"Stickman\"></head>" =?>
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.
2015-05-13 20:39:01 -07:00
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"))
Fixed behavior of base tag. + If the base path does not end with slash, the last component will be replaced. E.g. base = `http://example.com/foo` combines with `bar.html` to give `http://example.com/bar.html`. + If the href begins with a slash, the whole path of the base is replaced. E.g. base = `http://example.com/foo/` combines with `/bar.html` to give `http://example.com/bar.html`. Closes #2777.
2016-03-10 19:59:55 -08:00
, test html "slash at beginning of href" $
"<head><base href=\"http://www.w3schools.com/images/\" ></head><body><img src=\"/stickman.gif\" alt=\"Stickman\"></head>" =?>
plain (image "http://www.w3schools.com/stickman.gif" "" (text "Stickman"))
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.
2015-05-13 20:39:01 -07:00
, 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"))
]
HTML reader: only treat "a" element as link if it has href. Otherwise treat as span. Closes #3226.
2016-11-13 22:41:11 +01:00
, testGroup "anchors"
[ test html "anchor without href" $ "<a name=\"anchor\"/>" =?>
plain (spanWith ("anchor",[],[]) mempty)
]
HTML reader: Use the lang value of <html> to set the lang meta value. (#3765) * HTML reader: Use the lang value of <html> to set the lang meta value. * Fix for pre-AMP environments.
2017-06-27 09:19:37 +01:00
, testGroup "lang"
[ test html "lang on <html>" $ "<html lang=\"es\">hola" =?>
setMeta "lang" (text "es") (doc (plain (text "hola")))
, test html "xml:lang on <html>" $ "<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"es\"><head></head><body>hola</body></html>" =?>
setMeta "lang" (text "es") (doc (plain (text "hola")))
]
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.
2015-05-13 20:39:01 -07:00
]
Reference in a new issue Copy permalink