module Main where

import           Blocks
import           Inline
import           Test.Hspec
import           Test.Hspec.QuickCheck
import           Test.QuickCheck

import           Control.DeepSeq
import           Data.Text                      (pack)

import           Text.Commonmark.Parser
import           Text.Commonmark.Parser.Options
import           Text.Commonmark.Syntax

main :: IO ()
main = do
    hspec $ do
        testInline
        testBlock

        describe "Properties" $ do
            prop "Any sequence of characters is a valid input"
                (\t -> commonmarkToDoc [] (pack t) `deepseq` True)