{-# LANGUAGE OverloadedStrings #-}
module Tests.Readers.HTML (tests) where
import Test.Tasty
import Tests.Helpers
import Text.Pandoc
import Text.Pandoc.Arbitrary ()
import Text.Pandoc.Builder
import Data.Text (Text)
html :: Text -> Pandoc
html = purely $ readHtml def
tests :: [TestTree]
tests = [ testGroup "base tag"
[ test html "simple" $
"![\"Stickman\"](\"stickman.gif\")
" =?>
plain (image "http://www.w3schools.com/images/stickman.gif" "" (text "Stickman"))
, test html "slash at end of base" $
"" =?>
plain (image "http://www.w3schools.com/images/stickman.gif" "" (text "Stickman"))
, test html "slash at beginning of href" $
"![\"Stickman\"](\"/stickman.gif\")
" =?>
plain (image "http://www.w3schools.com/stickman.gif" "" (text "Stickman"))
, test html "absolute URL" $
"![\"Stickman\"](\"http://example.com/stickman.gif\")
" =?>
plain (image "http://example.com/stickman.gif" "" (text "Stickman"))
]
, testGroup "anchors"
[ test html "anchor without href" $ "" =?>
plain (spanWith ("anchor",[],[]) mempty)
]
, testGroup "lang"
[ test html "lang on " $ "hola" =?>
setMeta "lang" (text "es") (doc (plain (text "hola")))
, test html "xml:lang on " $ "hola" =?>
setMeta "lang" (text "es") (doc (plain (text "hola")))
]
]