SynopsisSpec.hs

-- |
--
-- Module      : Mdoc.Data.SynopsisSpec
-- Copyright   : (c) 2026 Patrick Brisbin
-- License     : AGPL-3
-- Maintainer  : pbrisbin@gmail.com
-- Stability   : experimental
-- Portability : POSIX
module Mdoc.Data.SynopsisSpec
  ( spec
  ) where

import Mdoc.Prelude

import Mdoc.Data.Synopsis qualified as Synopsis
import Mdoc.Test.Render
import Test.Hspec

spec :: Spec
spec = do
  it "renders an empty synopsis" $ do
    let synopsis = Synopsis.fromList []

    synopsis
      `shouldRender` [ ".Nm"
                     , ".Bk -words"
                     , ".Ek"
                     ]