PunctuationPrettifierSpec.hs

{-# LANGUAGE OverloadedStrings #-}

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

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

spec :: Spec
spec =
  describe "punctuationPrettifier" $ do
    let to = withExt punctuationPrettifier
    context "on plain inlines" $ do
      it "replaces ... with ellipsis" $
        "He forgot where he came from..." `to` "<p>He forgot where he came from…</p>\n"
      it "replaces --- with em dash" $
        "Here we go---at last." `to` "<p>Here we go—at last.</p>\n"
      it "replaces -- with en dash" $
        "Here we go -- at last." `to` "<p>Here we go – at last.</p>\n"
      it "replaces double quotes intelligently" $
        "\"Something\"" `to` "<p>“Something”</p>\n"
      it "replaces double quotes intelligently (empty)" $
        "\"\"" `to` "<p>“”</p>\n"
      it "replaces single quotes intelligently" $ do
        "'Something'" `to` "<p>‘Something’</p>\n"
        "I'm doin' well, 'cause I care 'bout 'Big Jim'."
          `to` "<p>I’m doin’ well, ‘cause I care ‘bout ‘Big Jim’.</p>\n"
      it "replaces single quotes intelligently (empty)" $
        "''" `to` "<p>‘’</p>\n"
      it "a tricky test 1" $
        "Something-\"foo\"." `to` "<p>Something-”foo”.</p>\n"
      it "a tricky test 2" $
        "Something.--" `to` "<p>Something.–</p>\n"
    context "on other inlines" $
      it "has no effect" $
        "`code -- span`" `to` "<p><code>code -- span</code></p>\n"