{-# LANGUAGE CPP #-} {-# LANGUAGE LambdaCase #-} {-# LANGUAGE OverloadedStrings #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Text.MMark.ExtensionSpec (spec) where import Data.List.NonEmpty (NonEmpty (..)) import Data.Text (Text) import Test.Hspec import Test.QuickCheck import Text.MMark.Extension (Block (..), Inline (..)) import Text.MMark.TestUtils import qualified Data.Text as T import qualified Lucid as L import qualified Text.MMark as MMark import qualified Text.MMark.Extension as Ext import qualified Text.URI as URI spec :: Spec spec = parallel $ do describe "blockTrans" $ it "works" $ do doc <- mkDoc "# My heading" toText (MMark.useExtension h1_to_h2 doc) `shouldBe` "