{-# 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|