{-# LANGUAGE OverloadedStrings #-}
module Tests.Readers.HTML (tests) where
import Test.Framework
import Tests.Helpers
import Text.Pandoc
import Text.Pandoc.Arbitrary ()
import Text.Pandoc.Builder
html :: String -> Pandoc
html = purely $ readHtml def
tests :: [Test]
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)
]
]