CommentSpec.hs

{-# LANGUAGE OverloadedStrings #-}

module Text.MMark.Extension.CommentSpec (spec) where

import Test.Hspec
import Text.MMark.Extension.Comment
import Text.MMark.Extension.TestUtils

spec :: Spec
spec =
  describe "commentParagraph" $ do
    let to = withExt (commentParagraph "$$$")
    context "when it is the only content in document" $
      it "is removed" $
        "$$$ Here we go." `to` ""
    context "when it is intermixed with other paragraphs" $
      it "is removed" $
        "First.\n\n$$$Second.\n\nThird.\n" `to` "<p>First.</p>\n<p>Third.</p>\n"
    context "when it is not in plain text" $
      it "has no special effect" $
        "[$$$ link](/url) foo." `to` "<p><a href=\"/url\">$$$ link</a> foo.</p>\n"