microformats2-parser-1.0.0: test-suite/Data/Microformats2/Parser/HtmlUtilSpec.hs

{-# LANGUAGE OverloadedStrings, UnicodeSyntax, QuasiQuotes #-}

module Data.Microformats2.Parser.HtmlUtilSpec (spec) where

import           Test.Hspec
import           TestCommon
import           Data.Microformats2.Parser.HtmlUtil

spec ∷ Spec
spec = do
  describe "getInnerTextRaw" $ do
    it "returns textContent without handling imgs" $ do
      let txtraw = getInnerTextRaw . documentRoot . parseLBS
      txtraw [xml|<div>This is <a href="">text content</a> <img src="/yo" alt="NOPE"> without any stuff.
  	</div>|] `shouldBe` Just "This is text content  without any stuff."

  describe "getInnerTextWithImgs" $ do
    it "returns textContent with handling imgs" $ do
      let txtraw = getInnerTextWithImgs . documentRoot . parseLBS
      txtraw [xml|<div>This is <a href="">text content</a> <img src="/yo" alt="with an alt"> <img src="and-src">.
    </div>|] `shouldBe` Just "This is text content with an alt and-src."