htoml-megaparsec-1.0.1.7: test/Test.hs

module Main where

import           Prelude               hiding (readFile)
import           Test.Tasty            (defaultMain, testGroup)

import qualified BurntSushi
import           Test.Hspec
import           Text.Toml.Parser.Spec
import           Text.TomlSpec


main :: IO ()
main = do
  hspec hspecTests
  parserSpec <- tomlParserSpec
  bsTests <- BurntSushi.tests

  defaultMain $ testGroup "" $
    [ parserSpec
    , bsTests
      --, quickCheckSuite
      -- A QuickCheck suite for a parser is possible. The internet knows.
    ]