emanote-1.4.0.0: test/Emanote/Pandoc/Renderer/CalloutSpec.hs

module Emanote.Pandoc.Renderer.CalloutSpec where

import Emanote.Pandoc.Renderer.Callout
import Hedgehog
import Relude
import Test.Hspec
import Test.Hspec.Hedgehog

spec :: Spec
spec = do
  describe "callout" $ do
    it "type" . hedgehog $ do
      parseCalloutType "[!tip]" === Just Tip
      parseCalloutType "[!Note]" === Just Note
      parseCalloutType "[!INFO]" === Just Info