nirum-0.3.0: test/Nirum/Docs/ReStructuredTextSpec.hs

{-# LANGUAGE QuasiQuotes #-}
module Nirum.Docs.ReStructuredTextSpec where

import Test.Hspec.Meta
import Text.InterpolatedString.Perl6 (q)

import Nirum.Docs.ReStructuredText (ReStructuredText, render)
import Nirum.DocsSpec (sampleDocument)

expectedRst :: ReStructuredText
expectedRst = [q|Hello
=====

Tight list\:

- List test
- test2

Loose list\:

1. a

2. b

A `complex link <http://nirum.org/>`_\.
|]

spec :: Spec
spec =
    describe "Docs.ReStructuredText" $
        specify "render" $
            render sampleDocument `shouldBe` expectedRst