{-# LANGUAGE NoImplicitPrelude, OverloadedStrings, UnicodeSyntax, QuasiQuotes #-} module Data.Microformats2.Parser.HtmlUtilSpec (spec) where import Prelude.Compat 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|